TextRange2中的Actionsettings在哪裏？

Question

我需要提取超鏈接文本從在PowerPoint 2007中運行，我知道我能做到這樣使用： TextFrame.TextRange.ActionSettings[PpMouseActivation.ppMouseClick].Hyperlink

然而，我的代碼，這是相當漫長的，使用TextFrame2及其相應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