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!

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

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