Fine name of inserted picture

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi all,

Is there way to extract file names of pictures embedded in a PowerPoint
presentation. We use PowerPoint XP, PowerPoint 2003 and PowerPoint 2004. It
would be helpful to my group to be able pull up the information. I look
forward to any insights on this.

Thanks!
LaurenM
 
Does it not show in the custom animation pane if you add a temp animation to
it? It does for me, my problem was changing fie names fron eg "s23456_pt7a"
to something more obvious. I just discovered this can be done in the script
editor!
 
Thanks, that does work. It's too bad we have to go through an extra step but
at least I can do it.

Thanks so much!
Lauren
 
Hi John,

Here's another question. Is there a way to extract a list of the pictures
used in a whole PowerPoint file? Maybe there is a third party application
that will do this?

Thanks for your help!
LaurenM
 
I think you would need to use vba to do this. It (probably) wouldnt give you
the filenames but something like "On slide 3 - picture 3". I havent found any
way to read the displayname (which is the file name) in vba but maybe someone
else knows how.
 
Off the top of my head I think this would do it.
(How to use vba code - tutorial on PPTAlchemy)

Sub picfinder()
On Error GoTo ErrHandler
Dim osld As Slide
Dim oshp As Shape
Dim strsreport As String
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.Type = msoPicture Then
strsreport = strsreport + "On slide " & osld.SlideIndex _
& " " & oshp.Name & Chr$(13)
End If
Next oshp
Next osld
MsgBox strsreport
Exit Sub
ErrHandler:
MsgBox "Error:"
End Sub
 
Back
Top