Microsoft Office Forums - View Single Post - How remove a repeated text box from all slides in PowerPoint

JohnWilson · 01-05-2018, 05:04 AM

Code:

Sub zapper()

Dim osld As Slide
Dim L As Long
For Each osld In ActivePresentation.Slides
For L = osld.Shapes.Count To 1 Step -1
If osld.Shapes(L).HasTextFrame Then
If osld.Shapes(L).TextFrame.HasText Then
' obviously use their address
If LCase(osld.Shapes(L).TextFrame.TextRange) Like Lcase( "*john@somewhere.com*" )Then osld.Shapes(L).Delete
End If
End If
Next
Next
End Sub