本示例显示当前演示文稿中第一张幻灯片编号的改变对指定幻灯片编号的影响。

With Application.ActivePresentation
    .PageSetup.FirstSlideNumber = 1  'starts slide numbering at 1
    MsgBox .Slides(2).SlideNumber    'returns 2
    .PageSetup.FirstSlideNumber = 10  'starts slide numbering at 10
    MsgBox .Slides(2).SlideNumber     'returns 11
End With