Returns or sets the style of the specified WordArt. The values for this property correspond to the formats in the WordArt Gallery dialog box (numbered from left to right, top to bottom). Read/write 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 |
expression.PresetTextEffect
expression Required. An expression that returns one of the objects in the Applies To list.
Remarks
Setting the PresetTextEffect property automatically sets many other formatting properties of the specified shape.
Example
This example sets the style for all WordArt on myDocument to the first style listed in the WordArt Gallery dialog box.
Set myDocument = ActivePresentation.Slides(1)
For Each s In myDocument.Shapes
If s.Type = msoTextEffect Then
s.TextEffect.PresetTextEffect = msoTextEffect1
End If
Next