TPE

Tavvafi@gmail.com

≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡

Sub ShowMeHyperlinks()

    Dim x As Long
    Dim oSl As Slide
    For Each oSl In ActivePresentation.Slides
        Debug.Print oSl.Name
        With oSl.Hyperlinks
            Debug.Print .Count & " hyperlinks"
            For x = 1 To .Count
                With .Item(x)
                    Debug.Print .Address
                    Select Case .Type
                        Case Is = msoHyperlinkInlineShape
                            Debug.Print "Inline shape"  ' at a guess, only found in word
                        Case Is = msoHyperlinkRange
                            Debug.Print "Text Range"
                        Case Is = msoHyperlinkShape
                            Debug.Print "Shape"
                    End Select
                End With    ' .Item(x)
            Next x
        End With    ' oSl.Hyperlinks
    Next oSl

End Sub