Delete every picture object from a presentation

  • Thread starter Thread starter Josh
  • Start date Start date
J

Josh

Is there an easy way to loop through each slide and delete every picture
object without having to know the name of the picture object?
 
Something like this maybe (aircode):

Sub piczap()
Dim osld As Slide
Dim Icount As Integer
For Each osld In ActivePresentation.Slides
For Icount = osld.Shapes.Count To 1 Step -1
If osld.Shapes(Icount).Type = msoPicture Then _
osld.Shapes(Icount).Delete
Next Icount
Next osld
End Sub
--

john ATSIGN PPTAlchemy.co.uk
Custom vba coding and PPT Makeovers
Free PPT Hints, Tips and Tutorials
http://www.pptalchemy.co.uk/powerpoint_hints_and_tips_tutorials.html
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Manually deleting an object underneath another in PowerPoint on mulitple slides 2
Flip template slide 180 degree? 0
How can check "lock Picture aspect ratio" option in PowerPoint 200 2
loop through all pictures on a selection of slides 1
Powerpoint Macro to save (export) individual images to files - 'cept... doesn't work! 7
Dealing with PP Automation and pictures... 1
Editing layers of pictures in PPT 2007 2
Can I export each bullet point of a Powerpoint presentation 0

Back
Top