查找Microsoft PowerPoint中的超链接

Question

如何一次查找电源点文档中的所有超链接？

按Ctrl + F只给了我的价值观，但我无法找到所有的一次是在整个文档内的超链接的

Answer 1

从HERE

只需复制粘贴你显然可以做它与VBA：

Sub ShowMeTheHyperlinks() 
' Lists the slide number, shape name and address 
' of each hyperlink 

    Dim oSl As Slide 
    Dim oHl As Hyperlink 

    For Each oSl In ActivePresentation.Slides 
     For Each oHl In oSl.Hyperlinks 
      If oHl.Type = msoHyperlinkShape Then 
       MsgBox "HYPERLINK IN SHAPE" _ 
        & vbCrLf _ 
        & "Slide: " & vbTab & oSl.SlideIndex _ 
        & vbCrLf _ 
        & "Shape: " & oHl.Parent.Parent.Name _ 
        & vbCrLf _ 
        & "Address:" & vbTab & oHl.Address _ 
        & vbCrLf _ 
        & "SubAddress:" & vbTab & oHl.SubAddress 
      Else 
       ' it's text 
       MsgBox "HYPERLINK IN TEXT" _ 
        & vbCrLf _ 
        & "Slide: " & vbTab & oSl.SlideIndex _ 
        & vbCrLf _ 
        & "Shape: " & oHl.Parent.Parent.Parent.Parent.Name _ 
        & vbCrLf _ 
        & "Address:" & vbTab & oHl.Address _ 
        & vbCrLf _ 
        & "SubAddress:" & vbTab & oHl.SubAddress 
      End If 
     Next ' hyperlink 
    Next ' Slide 

End Sub 

有一个关于如何使用VBA代码在PowerPoint HERE