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

FlashPoint · 01-05-2018, 07:03 AM

Quote:

Originally Posted by JohnWilson

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

Thanks for help but can u explain a little more how can I use it?