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)