Microsoft Office Forums - View Single Post - [Solved] Macro To Delete Instance across multiple slides.

JohnWilson · 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