This example resets bullets in shape two on slide one in the active presentation to their default character, font, and color.
With ActivePresentation.Slides(1).Shapes(2)
With .TextFrame.TextRange.ParagraphFormat.Bullet
.RelativeSize = 1
.UseTextColor = True
.UseTextFont = True
.Character = 8226
End With
End With