View Single Post
 
Old 09-01-2013, 08:18 AM
JohnWilson JohnWilson is offline Windows 7 64bit Office 2010 32bit
Programmer
 
Join Date: Nov 2008
Location: UK
Posts: 1,914
JohnWilson has a spectacular aura aboutJohnWilson has a spectacular aura about
Default

The only way would be to use vba code.

IF the links are all of type link to slide xx (NOT NEXT, PREVIOUS etc)

You could try this to add the links as text just off slide.

Code:
Sub chexLinks()
Dim osld As Slide
Dim ohl As Hyperlink
Dim txtBox As Shape
Dim strLinks As String
Dim lngID As Long
Dim lngPos As Long
Dim b_found As Boolean
Call removeall
For Each osld In ActivePresentation.Slides
For Each ohl In osld.Hyperlinks
If ohl.Address = "" Then 'internal
lngPos = InStr(ohl.SubAddress, ",")
lngID = CLng(Left(ohl.SubAddress, lngPos - 1))
If lngPos > 0 Then
b_found = True
strLinks = strLinks & "Link to Slide " & ActivePresentation.Slides.FindBySlideID(lngID).SlideIndex & vbCrLf
End If
End If
Next ohl
If b_found Then
Set txtBox = osld.Shapes.AddLabel(msoTextOrientationHorizontal, -120, 10, 120, 100)
txtBox.TextFrame.TextRange = strLinks
txtBox.TextFrame.TextRange.Font.Size = 12
txtBox.Name = "Link report"
End If
b_found = False
strLinks = ""
Next osld
End Sub

Sub removeall()
Dim osld As Slide
For Each osld In ActivePresentation.Slides
On Error Resume Next
osld.Shapes("Link report").Delete
Next osld
End Sub

Don't know what to do with the code?
__________________
Microsoft PowerPoint MVP 2007-2023
Free Advanced PowerPoint Tips and Tutorials

Last edited by JohnWilson; 09-01-2013 at 12:48 PM.
Reply With Quote