constant that represents 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 can be one of these MsoPresetTextEffect constants. |
| msoTextEffect1 |
| msoTextEffect10 |
| msoTextEffect11 |
| msoTextEffect12 |
| msoTextEffect13 |
| msoTextEffect14 |
| msoTextEffect15 |
| msoTextEffect16 |
| msoTextEffect17 |
| msoTextEffect18 |
| msoTextEffect19 |
| msoTextEffect2 |
| msoTextEffect20 |
| msoTextEffect21 |
| msoTextEffect22 |
| msoTextEffect23 |
| msoTextEffect24 |
| msoTextEffect25 |
| msoTextEffect26 |
| msoTextEffect27 |
| msoTextEffect28 |
| msoTextEffect29 |
| msoTextEffect3 |
| msoTextEffect30 |
| msoTextEffect4 |
| msoTextEffect5 |
| msoTextEffect6 |
| msoTextEffect7 |
| msoTextEffect8 |
| msoTextEffect9 |
| msoTextEffectMixed |
expression.PresetTextEffect
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example sets the text effect style for the first shape on the first page of the active publication. This example assumes that there is at least one shape on the first page of the active publication.
Sub ChangeTextEffect()
With ActiveDocument.Pages(1).Shapes(1)
If .Type = msoTextEffect Then
.TextEffect.PresetTextEffect = msoTextEffect1
End If
End With
End Sub