查找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