Use the AddTextEffect to add a WordArt. The WordArt item uses 54-point bold ITC Avant Garde Gothic. : Slide Text « PowerPoint « VBA / Excel / Access / Word






Use the AddTextEffect to add a WordArt. The WordArt item uses 54-point bold ITC Avant Garde Gothic.

 
Sub add()
    Dim QASlide As slide
    With ActivePresentation
        Set QASlide = .Slides.add(Index:=.Slides.Count + 1, Layout:=ppLayoutBlank)
        QASlide.Shapes.AddTextEffect PresetTextEffect:=msoTextEffect28, _
            Text:="Questions " + Chr$(CharCode:=13) + "Answers", _
            FontName:="Garde Gothic", FontSize:=54, FontBold:=msoTrue, _
            FontItalic:=msoFalse, Left:=230, Top:=125
    End With
End Sub

 








Related examples in the same category

1.Use the AddTextbox Method to add a text box to the eighth slide and assign text to it
2.Check whether the text frame contains text. To do so, check that the HasText property of the TextFrame object is msoTrue
3.Returning and Setting the Text in a Text Range
4.Returns the second through fifth words from the first shape on the first slide in the active presentation:
5.Set the text of the second paragraph in the second shape on the sixth slide in the presentation
6.Formatting the Text in a Text Range
7.Formatting the Bullets for 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