Numbering Every Other Slide

[Rome]

Hello,
I'm looking for a way to number every other slide in PowerPoint sequentially. For example:

• Slide 1 = <no page number>
• Slide 2 = Page 1
• Slide 3 = <no page number>
• Slide 4 = Page 2
• Slide 5 = <no page number>
• Slide 6 = Page 3
• and so on...

Is this possible? Any ideas?

Thanks a lot,
Rome

[Cosmo]

This will set the footer to the page number

Dim i As Integer 
Dim j As Integer 
For i = 1 To ActiveWindow.Presentation.Slides.Count 
    j = i * 2 
    If j <= ActiveWindow.Presentation.Slides.Count Then 
        With ActiveWindow.Presentation.Slides(j).HeadersFooters.Footer 
            .Text = "Page " & i 
            .Visible = msoTrue 
        End With 
        With ActiveWindow.Presentation.Slides(j - 1).HeadersFooters.Footer 
            .Text = "" 
        End With 
    End If 
Next i 
 

VBA tags courtesy of www.thecodenet.com

[Rome]

Thanks a lot Cosmo! Appreciate the quick reply.

[Rome]

Follow up question - Is there a way to modify the code so that Page 1 starts on Slide 3?

[John Wilson]

Sub nums() 
    Dim i As Integer 
    Dim num As Integer 
    For i = 3 To ActivePresentation.Slides.Count Step 2 
        num = num + 1 
        With ActivePresentation.Slides(i).HeadersFooters.Footer 
            .Visible = True 
            .Text = "Slide " & num 
        End With 
    Next 
End Sub 

VBA tags courtesy of www.thecodenet.com

[Rome]

Perfect