Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Powerpoint 1

Status
Not open for further replies.
adamsr

adamsr

Technical User
Dec 2, 2002
6
0
0
US
After macro updates file, I have updated slides, and some empty slides.
what is the code to find and delete any empty ones?
Thanks in advance.
 
Sort by date Sort by votes
Hi,

This may help...
Code: 
Sub DeleteBlankSlides()
    Dim pr As Presentation, sl As Slide
    
    For Each pr In Presentations
        For Each sl In pr.Slides
            If sl.Shapes.Count = 0 Then sl.Delete
        Next
    Next
End Sub
I hope :) Skip,
SkipAndMary1017@mindspring.com
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

remeng
  • Locked
  • Question
run PowerPoint macro on open
Replies
0
Views
49
remeng
remeng
DBDivaAuto
  • Locked
  • Question
Run VBA after Presentation in PowerPoint Opens
Replies
8
Views
222
DBDivaAuto
DBDivaAuto
j.iverson
  • Locked
  • Question
VBA Macro in PowerPoint to Differentiate Duplicate Slide Titles 1
Replies
2
Views
60
j.iverson
j.iverson
only412c
  • Locked
  • Question
Extract data from Alt Text in PowerPoint presentation
Replies
3
Views
66
strongm
strongm
remeng
  • Locked
  • Question
Goto Shape name in powerpoint via vba
Replies
2
Views
52
SkipVought
S

Part and Inventory Search

Sponsor

Back
Top