Formatting the Bullets for a Text Range : Slide Text « PowerPoint « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. PowerPoint
  3. Slide Text

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








Related examples in the same category

1.Use the AddTextEffect to add a WordArt. The WordArt item uses 54-point bold ITC Avant Garde Gothic.
2.Use the AddTextbox Method to add a text box to the eighth slide and assign text to it
3.Check whether the text frame contains text. To do so, check that the HasText property of the TextFrame object is msoTrue
4.Returning and Setting the Text in a Text Range
5.Returns the second through fifth words from the first shape on the first slide in the active presentation:
6.Set the text of the second paragraph in the second shape on the sixth slide in the presentation
7.Formatting the Text in a Text Range
8.To use a picture as a bullet, set the Type property of the BulletFormat object to ppBulletPicture and then use the Picture method with the Picture argument