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