Reputation: 1
I was sent some PowerPoint 2007 files with approximately 75 slides in each. On each slide is one photo. I need to extract the photo from each slide to save in a folder on my system. How can it be achieved?
Upvotes: 0
Views: 1734
Reputation: 14809
If for some reason you NEED to do the job using VBA, follow the link David's provided.
If it's a one-shot need to extract the images, make a copy of the PPTX file to begin with. Let's call it COPY.PPTX for purposes of argument. Rename COPY.PPTX to COPY.ZIP or even COPY.PPTX.ZIP
Now open the zip file, browse to the media folder and there you'll find the images in the file. Drag them out to wherever you want to store them and you're done.
Upvotes: 2
Reputation: 2087
For Each Slide in ActivePresentation.Slides
Slide.Shapes(1).Export FileName:="folderPath\imageName.jpg" _
Filter:=ppShapeFormatJPG
Next Slide
Upvotes: 2