Sure, but not using the standard page numbering box on the master slide.
Just insert this macro into your presentation and run it while in the
presentation before saving the file. An action setting works find to
activate the macro since it is not auto triggered, although it could be
built into a event capture routine.
It will replace whatever you have placed in the footer of your slide with
'page xx of xx', so .... There are several things that will cause it not to
work; so if it doesn't, drop us a line back and we'll walk you through them
Sub NumOfNum()
For x = 1 To ActivePresentation.Slides.Count
With ActivePresentation.Slides(x).HeadersFooters
.Footer.Text = "Page " & Str(x) & " of " &
Str(ActivePresentation.Slides.Count)
.Footer.Visible = msoTrue
.SlideNumber.Visible = msoFalse
End With
Next x
End Sub
B
--
Please spend a few minutes checking out
www.pptfaq.com This link will
answer most of our questions, before you think to ask them.
Change org to com to defuse anti-spam, ant-virus, anti-nuisance
misdirection.