Sub numbers()
Dim osld As Slide
Dim i as Integer
For Each osld In ActivePresentation.Slides
If osld.SlideShowTransition.Hidden = False Then
i = i + 1
osld.HeadersFooters.Footer.Text = "Slide " & i
Else
osld.HeadersFooters.Footer.Text = "Slide " & i & "H"
End If
Next
End Sub
--
Amazing PPT Hints, Tips and Tutorials
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.