Macro To Delete Instance across multiple slides.

JohnWilson · #2 03-01-2012, 12:42 AM

The first macro will delete any instance of the name found the second only on selected slides.

Code:

Sub delete_all()
Dim shpname As String
Dim osld As Slide
Dim i As Integer
shpname = "the name"
On Error Resume Next
For Each osld In ActivePresentation.Slides
osld.Shapes(shpname).Delete
Next osld
End Sub

Sub deleteFrom_Sel()
Dim shpname As String
Dim osld As Slide
Dim i As Integer
shpname = "the name"
On Error Resume Next
For Each osld In ActiveWindow.Selection.SlideRange
osld.Shapes(shpname).Delete
Next osld
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Animation across multiple slides - please help	jpscience	PowerPoint	3	12-13-2011 11:32 AM
Multiple Monitors/One Presentation/Different Slides	future	PowerPoint	0	12-12-2011 02:20 PM
Music in Powerpoint (multiple slides)	Karelia Suite	PowerPoint	1	11-05-2011 08:34 AM
How to create multiple pages, 1 instance of word window	cs_starter	Mail Merge	1	09-08-2011 12:52 AM
Resize video across multiple slides	joelas	PowerPoint	3	09-28-2010 07:59 PM