J Josh Jan 14, 2009 #1 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?
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 Jan 14, 2009 #2 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
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
