AddTextEffect Method [Excel 2003 VBA Language Reference]
Creates a WordArt object. Returns a Shape 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.
MsoPresetTextEffect
| 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.
MsoTriState
| MsoTriState can be one of these MsoTriState constants. |
| msoCTrue |
| msoFalse |
| msoTriStateMixed |
| msoTriStateToggle |
| msoTrue |
MsoTriState
| MsoTriState can be one of these MsoTriState constants. |
| msoCTrue |
| msoFalse |
| msoTriStateMixed |
| msoTriStateToggle |
| msoTrue |
Left Required Single. The position (in points) of the upper-left corner of the WordArt's bounding box relative to the upper-left corner of the document.
Top Required Single. The position (in points) of the upper-left corner of the WordArt's bounding box relative to the top of the document.
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 = Worksheets(1)
Set newWordArt = myDocument.Shapes.AddTextEffect( _
PresetTextEffect:=msoTextEffect1, Text:="Test", _
FontName:="Arial Black", FontSize:=36, _
FontBold:=msoFalse, FontItalic:=msoFalse, Left:=10, _
Top:=10)
Applies to | Shapes Collection