Where are the hyperlinks?

Problem

You want to list or otherwise work with each hyperlink in a presentation but the shapes on your slides don't seem to reveal this property.

Solution

Hyperlinks are not a property of shapes, they're a collection that's a property of the slide itself.

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

See How do I use VBA code in PowerPoint? to learn how to use this example code.

Search terms:hyperlink,vba,code,macro

---