ParagraphFormat.Bullet (PowerPoint)

Returns a BulletFormat object that represents bullet formatting for the specified paragraph format.

Dim bftBullet As BulletFormat
Set bftBullet = ActiveWindow.Selection.TextRange.ParagraphFormat.Bullet