Mega Code Archive

 

Categories / VisualBasic Script / Powerpoint

 

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