StartValue Property Example

This example sets the bullets in the text box specified by shape two on slide one to start with the number five.

With ActivePresentation.Slides(1).Shapes(2).TextFrame
    With .TextRange.ParagraphFormat.Bullet
        .Type = ppBulletNumbered
        .StartValue = 5
    End With
End With