Где же Actionsettings в TextRange2?

Question

Мне нужно извлечь гиперссылки из текстового прогона в PowerPoint 2007. Я знаю, что могу сделать это, используя: TextFrame.TextRange.ActionSettings[PpMouseActivation.ppMouseClick].Hyperlink

Тем не менее, мой код, который довольно длинный, использует TextFrame2 и соответствующий ему TextRange2, и я не смог найти ActionSettings в TextRange2.

Кто-нибудь знает, где он прячется?

Answer 1

Да, это немного сложно. Вот как их получить:

Sub GetLinks()
    Dim p As Presentation
    Set p = ActivePresentation
    Dim s As Slide
    Dim sh As Shape
    For Each s In p.Slides
        For Each sh In s.Shapes
            Dim tr As TextRange
            Set tr = sh.TextFrame.TextRange
            For I = 1 To tr.Runs.count
                link = tr.Runs(I).ActionSettings(ppMouseClick).Hyperlink.Address
                If Len(link) > 0 Then
                    Debug.Print "Link: " & link
                End If
            Next
        Next
    Next
End Sub