Où est Actionsettings dans TextRange2?

Question

J'ai besoin d'extraire du texte Hyperliens Runs dans PowerPoint 2007. Je sais que je pouvais le faire en utilisant: TextFrame.TextRange.ActionSettings[PpMouseActivation.ppMouseClick].Hyperlink

Cependant, mon code, ce qui est assez long, utilise TextFrame2 et son correspondant TextRange2, et je ne pouvais pas trouver ActionSettings en TextRange2.

Est-ce que quelqu'un sait où il se cache?

Answer 1

Oui, c'est un peu difficile. Voici comment les obtenir:

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