I have this PPT vba script to delete all shapes in a region at the bottom left corner of each slide. It works but sometimes it leaves one shape in the area. If I run it again it will get rid of it, but I don't want to have to run it twice! How can I fix this?
Sub GoAwayDumbText()
Dim oPres As Presentation
Dim oSlides As Slides
Dim oSld As Slide
Dim oShp As Shape
Dim PathSep AsString
Dim sTempString AsString
#If Mac Then
PathSep =":"
#Else
PathSep =""
#EndIf
Set oPres = ActivePresentation
Set oSlides = oPres.Slides
ForEach oSld In oSlides
ForEach oShp In oSld.Shapes
If oShp.Left <=135And oShp.Top >=260Then
oShp.Delete
Else
EndIf
Next oShp
Next oSld
EndSub