#1
|
|||
|
|||
Delete all objects in a certain zone of the slide
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! |
#2
|
|||
|
|||
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 |
#3
|
|||
|
|||
Quote:
|
|
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 |