how to read path to linked image?

[ljb]

I'm using PowerPoint to build photo slide shows. I use Access to build the
initial slide show with photo captions. Then I want to re-arrange the slides
and export as text a photo list in their new order. The images are added to
the shape object with .addpicture. How do I read the image file path from
the shape object after the slides have been dragged into their new order?

thanks
LJB

 

[ljb]

I found my answer in
http://groups-beta.google.com/group/microsoft.public.powerpoint/msg/f2df51ab10a16a15

For Each Sld In ActivePresentation.Slides
For Each Shp In Sld.Shapes
With Shp
' If the shape's type is an linked image object then...
If .Type = msoLinkedPicture Then
' Extract the filename from the complete path.
With .LinkFormat
MsgBox .SourceFullName
End With
End If
End With
Next Shp
Next Sld

 

[Steve Rindsberg]

I'm using PowerPoint to build photo slide shows. I use Access to build the
initial slide show with photo captions. Then I want to re-arrange the slides
and export as text a photo list in their new order. The images are added to
the shape object with .addpicture. How do I read the image file path from
the shape object after the slides have been dragged into their new order?

You can't unless you've linked instead of inserting the images, but that adds
its own share of woes, so I wouldn't recommend it.

If you need to learn the image path later, add it as a tag to the image shape
when you insert it.

' Assuming a reference to the shape in oSh and the path
' in sImagePath:
With oSh.Tags.Add "ImagePath", sImagePath

Then later:

Msgbox oSh.Tags("ImagePath")

 

[ljb]

order?

You can't unless you've linked instead of inserting the images, but that adds
its own share of woes, so I wouldn't recommend it.

If you need to learn the image path later, add it as a tag to the image shape
when you insert it.

' Assuming a reference to the shape in oSh and the path
' in sImagePath:
With oSh.Tags.Add "ImagePath", sImagePath

Then later:

Msgbox oSh.Tags("ImagePath")

-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================

In my case they are all linked photos. I like your idea for solving the
other case.

thanks