Powerpoint VisualBasic Script

Sub bullet()
    With ActiveSlide.Shapes(1).TextFrame.TextRange.ParagraphFormat.bullet
        .Type = ppBulletUnnumbered
        .Character = 254
        With .Font
            .Name = "Wingdings"
            .Size = 44
            .Color = RGB(255, 255, 255)
        End With
    End With
End Sub