Enumerate Hyperlinks in a presentation and the associated shape/text range.

More about the Parent property: Returns the reference to the parent of any object.

e.g
Set oSld = ActivePresentation.Slides(1) and Set oSld = ActivePresentation.Slides(1).Shapes(1).Parent are equivalent because the return the same slide reference. In the 2nd statement we retrieve the reference of the parent of the given shape object which is the slide itself. You might wonder how this is useful. In the example for better explanation I traversed an addition level down and then came back up to arrive at the slide reference which is not good programming. But what if you were given a shape reference and needed to ascertain which was the parent presentation within a sub routine, would this property be very handy then? Using this property we can traverse in reverse to arrive at any top level object associated with the original object.

if you wanted to know if a shape resides on a slide or master.

If TypeName(ActiveWindow.Selection.ShapeRange(1).Parent) = "Master" Then
    Debug.Print "Shape is on a master slide"
Else
    Debug.Print "Shape is on a slide"
End If

If you want to get a reference to the top level presentation from a shape reference assuming oShp is a shape object.

Set oPres = oShp.Parent.Parent 'Shape->Slide->Presentation
 

Let's use this property to arrive at what we initially set out.

' --------------------------------------------------------------------------------
' Copyright ©1999-2009, Shyam Pillai, All Rights Reserved.
' --------------------------------------------------------------------------------
' You are free to use this code within your own applications, add-ins,
' documents etc but you are expressly forbidden from selling or 
' otherwise distributing this source code without prior consent.
' This includes both posting free demo projects made from this
' code as well as reproducing the code in text or html format.
' --------------------------------------------------------------------------------

Sub EnumHyperlinksParent()
    Dim oSld As Slide
    Dim I As Integer
    'Parent could be a shape or textrange hence we use object declaration
    Dim oParent As Object    

    For Each oSld In ActivePresentation.Slides
        Debug.Print "Slide number: " & oSld.SlideNumber
        Debug.Print "Hyperlink count: " & oSld.Hyperlinks.Count
        For I = 1 To oSld.Hyperlinks.Count
            'The parent object for a hyperlink is ActionSetting
            'The parent object for an ActionSetting is the PPT shape/textrange
            'By querying the type of oParent object, you can ascertain
            'if it is associated with shape or text.
            Set oParent = oSld.Hyperlinks(I).Parent.Parent 'Hyperlink->ActionSetting->Shape/TextRange
            Debug.Print CStr(I) & " Hyperlink: " & oSld.Hyperlinks(I).Address & _
                        oSld.Hyperlinks(I).SubAddress
            If TypeName(oParent) = "TextRange" Then
                Debug.Print "  Associated TextRange: " & oParent & _
                            ", of shape: " & oParent.Parent.Parent.Name 'TextRange->TextFrame->Shape
            Else
                Debug.Print "  Associated Shape : " & oParent.Name
            End If
        Next I
        Debug.Print 'Blank line
    Next oSld

' To make this example complete you need to enumerate the slide masters too but that 
' is left as exercise.
End Sub

Update: Bug in PPT 2007 - If there is a hyperlink present on a text range within a table then oParent.Parent.Parent.Name will fail.

Top