Не удается удалить гиперссылки с VBA в PPT2016 (MAC OS)

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

Однако, когда я пытаюсь запустить это на Powerpoint на Mac, он дает мне следующее:

Ошибка компиляции: метод или данныеэлемент не найден

Означает ли это, что эта функциональность не существует в Mac PPT VBA?

Answer 1

Джон С.Р. Уилсон на форуме ответов Microsoft нашел способ обойти эту проблему, поэтому я решил опубликовать его здесь на тот случай, если кому-то будет интересно

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

Вся заслуга Джона С.Р. Уилсона!