Character Property Example

This example sets the bullet character for shape two on slide one in the active presentation.

Set frame2 = ActivePresentation.Slides(1).Shapes(2).TextFrame
With frame2.TextRange.ParagraphFormat.Bullet
    .Character = 8226
    .Visible = True
End With