View Single Post
 
Old 01-09-2012, 07:13 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

As you may know you can see and edit the links by going to File > Info > Edit Links (right pane)

This won't tell you which slide the links are on though. I think code is the only way to get that.

Here's an example

Sub list_links()
Dim oshp As Shape
Dim osld As Slide
Dim strReport As String
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.Type = msoLinkedOLEObject Then
If InStr(oshp.OLEFormat.ProgID, "Excel") > 0 Then
strReport = strReport & "On Slide " & osld.SlideIndex & _
"> Link = " & oshp.LinkFormat.SourceFullName & vbCrLf
End If
End If
Next oshp: Next osld
If strReport <> "" Then
MsgBox strReport
Else
MsgBox "No Excel links"
End If
End Sub

Dont know how to use this? Go Here!
__________________
Microsoft PowerPoint MVP 2007-2023
Free Advanced PowerPoint Tips and Tutorials
Reply With Quote