无法删除PPT2016 (MAC )中的VBA超链接

Question

我发现了许多应该工作的示例脚本。

Sub DeleteLinks()
    Dim oSl As Slide
    Dim x As Long

    For Each oSl In ActivePresentation.Slides
        For x = oSl.Hyperlinks.Count To 1 Step -1
            oSl.Hyperlinks(x).Delete
        Next
    Next

End Sub

然而，当我试图在Mac上的Powerpoint上运行这个程序时，它给了我如下信息：

编译错误:未找到方法或数据成员

这是否意味着Mac中不存在此功能？

Answer 1

约翰SR威尔逊在微软答案论坛上找到了解决这个问题的方法，所以我决定把它发回这里，以防有人想知道。

See if this works on your Mac

Sub killMacLinks()
Dim ohl As Hyperlink
Dim osld As Slide
Dim asT As ActionSetting
Set osld = ActiveWindow.Selection.SlideRange(1)
For Each ohl In osld.Hyperlinks
Set asT = ohl.Parent
asT.Action = ppActionNone
Next
End Sub

If it works you can easily loop through all slides.
www.pptalchemy.co.uk

全归功于约翰·SR·威尔逊！