Delete all objects in a certain zone of the slide

bugifa · #1 12-10-2021, 11:01 AM

I have a problem in editing a long presentation (over 200 slides)

I should make room in the slide, and I would like to delete everything (textboxes, pictures, shapes etc) in a certain area of the slide where I know there are not update data (e.g. top left, bottom, etc)

Is there a way to make it through VBA?

Thanx!

JohnWilson · #2 12-11-2021, 01:18 AM

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

bugifa · #3 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!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to show hidden objects/images on slide show	JustSayHi	PowerPoint	3	07-16-2016 12:00 AM
Delete layout slide	IvyGrad	PowerPoint	2	04-21-2015 05:07 AM
Delete a slide from a presentation in PPT	phamh	PowerPoint	5	11-03-2014 01:25 PM
Animating objects on one slide independent of others	Fed	PowerPoint	1	08-16-2013 08:42 AM
Pivot Table:delete zero values when using calculated objects	Serge 007	Excel	1	06-05-2013 11:47 AM