Picture Method Example

This example sets the bullets in the text box specified by shape two on slide one to a bitmap picture of a blue rivet.

With ActivePresentation.Slides(1).Shapes(2).TextFrame
    With .TextRange.ParagraphFormat.Bullet
        .Type = ppBulletPicture
        .Picture ("C:\Windows\Blue Rivets.bmp")
    End With
End With