Character Property

Returns or sets the Unicode character value that is used for bullets in the specified text. Read/write Long.

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