PPT 2007: Macro to delete all hidden slides?

[rickrcomm]

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

Thanks,

Rick

 

[John Wilson]

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

 

[rickrcomm]

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