PP 2003 numbering select slides

  • Thread starter Thread starter Frank
  • Start date Start date
F

Frank

I am working with a briefing in PP2003, which has 50 slides. About half of
them are not needed to be shown. We make changes to the brief everyday and
have to manually change numbers everytime. I selected the slides to be shown
and applied numbers to those only but it still numbers them as if the hidden
slides are a part of the number scheme.

How can I select only certain number certain slides and have those numbers
stay in order without skipping numbers due to the hidden slides beign counted?

Thanks,
Frank
 
PowerPoint can't do this but vba can!

Try this code

Sub hiddennums()
Dim i As Integer
Dim c As Integer
Dim osld As Slide
Dim oshp As Shape
'delete old numbers if present
For Each osld In ActivePresentation.Slides
For c = osld.Shapes.Count To 1 Step -1
Set oshp = osld.Shapes(c)
If oshp.Name = "slidenum" Then oshp.Delete
Next c
Next osld
'add numbers to non hidden slides
For Each osld In ActivePresentation.Slides
If osld.SlideShowTransition.Hidden = False Then
i = i + 1
Set oshp = osld.Shapes.AddTextbox(msoTextOrientationHorizontal, 650, 500,
50, 20)
With oshp
..Name = "slidenum"
..TextFrame.TextRange.Text = CStr(i)
End With
End If
Next osld
End Sub

If you don't know how to use it have a look at the vba section on our site
or pptfaq
http://www.pptalchemy.co.uk/powerpoint_hints_and_tips_tutorials.html#vba
http://pptfaq.com/FAQ00033.htm
--
Amazing PPT Hints, Tips and Tutorials

http://www.PPTAlchemy.co.uk
http://www.technologytrish.co.uk
email john AT technologytrish.co.uk
 
Back
Top