Microsoft Office Forums - View Single Post - Delete all objects in a certain zone of the slide

bugifa · 12-11-2021, 02:06 PM

Quote:

Originally Posted by JohnWilson

You can do this but you will need to specify what area you mean

MAKE SURE YOU EXPERIMENT ON A COPY

eg to delete anything that is in the top left 1 inch

NOTE 1 inch is 72 points

Code:

Sub killtop()
Dim L As Long
Dim osld As Slide
For Each osld In ActivePresentation.Slides
For L = osld.Shapes.Count To 1 Step -1
With osld.Shapes(L)
If .Left < 72 And .Top < 72 Then .Delete
End With
Next L
Next osld
End Sub

tnx, tomorrow I'll try and let you know!