2017-04-26 2 views
0

Wie finden Sie alle Hyperlinks in einem PowerPoint-Dokument gleichzeitig?Suchen von Hyperlinks in Microsoft PowerPoint 2010

Ctrl + f gibt mir nur die Werte, aber ich bin nicht in der Lage alle der Hyperlinks auf einmal zu finden, die im gesamten Dokument sind

+0

Wenn Sie suchen eine Möglichkeit dies zu tun, ohne Code zu schreiben, ist dies der falsche Ort, um zu fragen. Versuchen Sie stattdessen die Schwester-SuperUser-Website. Wenn Sie nach einem Weg suchen, dies im Code zu tun, erwartet die Community von Ihnen zumindest ein wenig Anstrengung. HInt: google POWERPOINT SHOW HYPERLINK und es wird mindestens einen Treffer auf der ersten Ergebnisseite geben, der VBA enthält, um Hyperlinks aufzulisten. –

Antwort

0

Kopieren Sie einfach-Einfügen von HERE

offenbar Sie tun können es mit 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 

es gibt einen Durchlauf, wie in Powerpoint VBA-Code verwenden HERE

Verwandte Themen