Delete every picture object from a presentation

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?
 
J

John Wilson

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

Embed the same Excel multiple times 0
Insert multiple objects at once ? 3
Need to run a looped presentation with continuous audio in powerpoint 2010 0
Merging from an Excel file with graphics 1
Word VBA - Delete text from bulleted paragraphs 1
Indenting every other paragraph in Word at the same time? 0
Can you hyperlink from one Powerpoint presentation to a Custom Showin a different presentation? 0
editing text of a picture inside power point 2

Top