PowerPoint 2007 Page Numbering

[FrankieG]

I would like to have 9 slides that I will label A-H as a table of contents.
Then I would like the first activity slide (slide 10) to begin at page 1. I
have two master slide layouts working fine, one with numbers and one without.
PowerPoint still numbers all slides from the first (my A slide) to the last.
The page numbering format does not allow starting at negative 9. Any ideas
beyond entering a text box and manually making page numbers or Linking to
other ppt's - neither of these are an option for this particular presentation.

 

[Mark]

I would like to have 9 slides that I will label A-H as a table of contents.  
Then I would like the first activity slide (slide 10) to begin at page 1. I
have two master slide layouts working fine, one with numbers and one without.
 PowerPoint still numbers all slides from the first (my A slide) to thelast.
 The page numbering format does not allow starting at negative 9.  Any ideas
beyond entering a text box and manually making page numbers or Linking to
other ppt's - neither of these are an option for this particular presentation.

Nope. That's pretty much it. Enter the text manually, or separate each
section out to a separate presentation and linking them together.
(just had this same discussion with a co-worker)

If you do go the route of manually typing the page numbers, be aware
how much work it will be if your presentation is large and you add or
delete a slide near the beginning of the presentation. (this could be
automated somewhat with VBA if you know how). You might possibly be
able to use VBA to renumber the slides on-the-fly in slidewhow mode if
your sections are in Custom Shows.

 

[John Wilson]

AFAIK there's no way in the GUI to do this. In 2007 you can manually alter
the numbers but this might be a big job. You could have vba code do it for
you.

Sub nos()
'2007
Dim osld As Slide
Dim oshp As Shape
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.Type = msoPlaceholder Then
If oshp.PlaceholderFormat.Type = ppPlaceholderSlideNumber Then
If osld.SlideIndex < 10 Then
osld.HeadersFooters.SlideNumber.Visible = False
Else
osld.HeadersFooters.SlideNumber.Visible = True
oshp.TextFrame.TextRange = CStr(osld.SlideIndex - 9)
End If
End If
End If
Next oshp
Next osld
End Sub

How to use
http://www.pptalchemy.co.uk/vba.html