Mega Code Archive

 

Categories / VisualBasic Script / Powerpoint

 

Formatting the Bullets for a Text Range

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