Where are the hyperlinks?
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.
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.