UseTextColor Property Example

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