AddTextEffect Method

Microsoft PowerPoint Visual Basic

object that represents the new WordArt object.

expression.AddTextEffect(PresetTextEffect, Text, FontName, FontSize, FontBold, FontItalic, Left, Top)

expression    Required. An expression that returns one of the objects in the Applies To list.

PresetTextEffect   Required MsoPresetTextEffect. The preset text effect.

MsoPresetTextEffect can be one of these MsoPresetTextEffect constants.
msoTextEffect1
msoTextEffect2
msoTextEffect3
msoTextEffect4
msoTextEffect5
msoTextEffect6
msoTextEffect7
msoTextEffect8
msoTextEffect9
msoTextEffect10
msoTextEffect11
msoTextEffect12
msoTextEffect13
msoTextEffect14
msoTextEffect15
msoTextEffect16
msoTextEffect17
msoTextEffect18
msoTextEffect19
msoTextEffect20
msoTextEffect21
msoTextEffect22
msoTextEffect23
msoTextEffect24
msoTextEffect25
msoTextEffect26
msoTextEffect27
msoTextEffect28
msoTextEffect29
msoTextEffect30
msoTextEffectMixed

Text    Required String. The text in the WordArt.

FontName    Required String. The name of the font used in the WordArt.

FontSize    Required Single. The size (in points) of the font used in the WordArt.

FontBold   Required MsoTriState. Determines whether the font used in the WordArt is set to bold.

MsoTriState can be one of these MsoTriState constants.
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue Sets the font used in the WordArt to bold.

FontItalic   Required MsoTriState. Determines whether the font used in the WordArt is set to italic.

MsoTriState can be one of these MsoTriState constants.
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue Sets the font used in the WordArt to italic.

Left    Required Single. The position, measured in points, of the left edge of the WordArt's bounding box relative to the left edge of the slide.

Top    Required Single. The position, measured in points, of the top edge of the WordArt's bounding box relative to the top edge of the slide.

Remarks

When you add WordArt to a document, the height and width of the WordArt are automatically set based on the size and amount of text you specify.

Example

This example adds WordArt that contains the text "Test" to myDocument.

Set myDocument = ActivePresentation.Slides(1)
Set newWordArt = myDocument.Shapes _
    .AddTextEffect(PresetTextEffect:=msoTextEffect1, _
    Text:="Test", FontName:="Arial Black", FontSize:=36, _
    FontBold:=msoFalse, FontItalic:=msoFalse, Left:=10, Top:=10)