How do I automatically delete hidden slides?

[mcap74]

I am looking for code that will automatically delete the hidden slides
from my presentation. I viewed an older post that stated that this was
feasible (see post from Raymond Sim Thurs, Jul 10 2003 11:25 pm).
However, the post did not include the code to accomplish this. I tried
to reply to the post but it has been closed.

Any suggestions?

 

[Steve Rindsberg]

I am looking for code that will automatically delete the hidden slides
from my presentation. I viewed an older post that stated that this was
feasible (see post from Raymond Sim Thurs, Jul 10 2003 11:25 pm).
However, the post did not include the code to accomplish this. I tried
to reply to the post but it has been closed.

Any suggestions?

Air code, off top of head:

Sub DeleteHiddenSlides

Dim X as Long

For X = ActivePresentation.Slides.Count to 1 Step -1
If ActivePresentation.Slides(X).SlideShowTransition.Hidden Then
ActivePresentation.Slides(X).Delete
End If
Next

End Sub

 

[mcap74]

Steve,

It worked great. Thanks for the quick reply!