PPT 2007: Macro to delete all hidden slides?

  • Thread starter Thread starter rickrcomm
  • Start date Start date
R

rickrcomm

Well, this must have been done, but after looking for 30 min, I couldn't find
it. Does csomeone have one?

Thanks,

Rick
 
To delete them try

Sub zaphidden()
Dim i As Integer
For i = ActivePresentation.Slides.Count To 1 Step -1
If ActivePresentation.Slides(i) _
..SlideShowTransition.Hidden = True Then
ActivePresentation.Slides(i).Delete
End If
Next i
End Sub

To unhide them substitute
ActivePresentation.Slides(i).SlideShowTransition.Hidden=False
where it says
ActivePresentation.Slides(i).Delete
 
Boy, have I been missing a valuable resource! That's FAST response. If you
need any HP info, email me (rickrcomm ATSIGN YA HOO DOT COM).

Thanks,

Rick
 
Back
Top