Determine which links occur on which slides

User avatar
Rudi
gamma jay
Posts: 25455
Joined: 17 Mar 2010, 17:33
Location: Cape Town

Determine which links occur on which slides

Post by Rudi »

Hi,

I have someone who is building a custom solution where part of this solution needs to map which links occurs on which slides. The Edit Links dialog lists the links, but does not indicate which link occurs on which slide? Is there a way that VBA can create output (on a slide, in a txt file, in Excel, etc) that would list each link in the presentation in a column, and in a second column which slide (slide title or number) the link occurs on?

TIA
Regards,
Rudi

If your absence does not affect them, your presence didn't matter.

User avatar
StuartR
Administrator
Posts: 12577
Joined: 16 Jan 2010, 15:49
Location: London, Europe

Re: Determine which links occur on which slides

Post by StuartR »

This macro will list the information you asked for in the debug window - can you just copy and paste from there?

Code: Select all

Public Sub ListHyperlinks()
Dim i As Integer
Dim hyp As Hyperlink
    For i = 1 To ActivePresentation.Slides.Count
        If ActivePresentation.Slides(i).Hyperlinks.Count > 0 Then
            For Each hyp In ActivePresentation.Slides(i).Hyperlinks
                Debug.Print i & ": " & hyp.Address
            Next hyp
        End If
    Next i
End Sub
StuartR


User avatar
Rudi
gamma jay
Posts: 25455
Joined: 17 Mar 2010, 17:33
Location: Cape Town

Re: Determine which links occur on which slides

Post by Rudi »

TX Stuart...
I made a few small tweaks to your code to include the sub-address and hyperlink name as well.

Its working great!
Cheers!
Regards,
Rudi

If your absence does not affect them, your presence didn't matter.