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
 
Top