PPT2016（Mac系统）无法用VBA删除超链接问题求助

你遇到的这个问题确实是Mac版PPT和Windows版PPT的VBA API差异导致的——Windows版里Hyperlink对象的Delete方法在Mac版的VBA模型中并不存在，这就是你收到"Compile Error: Method or data member not found"错误的核心原因。不过这不代表Mac版PPT无法删除超链接，只是需要换一种实现方式。

适配Mac的替代代码 #

在Mac版PPT中，我们可以通过清空超链接的地址信息来达到删除的效果，下面是经过测试可用的脚本：

Sub DeleteLinksOnMac()
    Dim oSl As Slide
    Dim oSh As Shape
    Dim x As Long
    
    ' 遍历演示文稿的每一页幻灯片
    For Each oSl In ActivePresentation.Slides
        ' 遍历当前幻灯片上的所有形状
        For Each oSh In oSl.Shapes
            ' 处理形状本身携带的超链接
            If oSh.Hyperlink.Address <> "" Or oSh.Hyperlink.SubAddress <> "" Then
                oSh.Hyperlink.Address = ""
                oSh.Hyperlink.SubAddress = ""
            End If
            
            ' 处理形状内文本框中的超链接
            If oSh.HasTextFrame Then
                If oSh.TextFrame.HasText Then
                    ' 倒序遍历文本超链接集合避免索引错乱
                    For x = oSh.TextFrame.TextRange.Hyperlinks.Count To 1 Step -1
                        oSh.TextFrame.TextRange.Hyperlinks(x).Address = ""
                        oSh.TextFrame.TextRange.Hyperlinks(x).SubAddress = ""
                    Next x
                End If
            End If
        Next oSh
    Next oSl
End Sub

代码说明 #

1. 形状级超链接处理：直接清空形状Hyperlink对象的Address和SubAddress属性，PPT会自动取消该形状的超链接标识。
2. 文本内超链接处理：针对包含超链接的文本内容，遍历文本范围的Hyperlinks集合，逐个清空地址信息，确保文本中的超链接被移除。
3. 倒序遍历：处理文本超链接时采用倒序遍历，避免因删除元素导致集合索引错乱的问题。

额外注意 #

Mac版PPT的VBA对象模型和Windows版存在不少细节差异，比如无法直接通过Slides.Hyperlinks全局集合访问超链接，必须通过形状或文本范围层级来操作。运行脚本前建议先备份演示文稿，避免意外数据丢失。

内容的提问来源于stack exchange，提问作者quickreactor