| MsoPresetTextEffectShape can be one of these MsoPresetTextEffectShape constants. |
| msoTextEffectShapeArchDownCurve |
| msoTextEffectShapeArchDownPour |
| msoTextEffectShapeArchUpCurve |
| msoTextEffectShapeArchUpPour |
| msoTextEffectShapeButtonCurve |
| msoTextEffectShapeButtonPour |
| msoTextEffectShapeCanDown |
| msoTextEffectShapeCanUp |
| msoTextEffectShapeCascadeDown |
| msoTextEffectShapeCascadeUp |
| msoTextEffectShapeChevronDown |
| msoTextEffectShapeChevronUp |
| msoTextEffectShapeCircleCurve |
| msoTextEffectShapeCirclePour |
| msoTextEffectShapeCurveDown |
| msoTextEffectShapeCurveUp |
| msoTextEffectShapeDeflate |
| msoTextEffectShapeDeflateBottom |
| msoTextEffectShapeDeflateInflate |
| msoTextEffectShapeDeflateInflateDeflate |
| msoTextEffectShapeDeflateTop |
| msoTextEffectShapeDoubleWave1 |
| msoTextEffectShapeDoubleWave2 |
| msoTextEffectShapeFadeDown |
| msoTextEffectShapeFadeLeft |
| msoTextEffectShapeFadeRight |
| msoTextEffectShapeFadeUp |
| msoTextEffectShapeInflate |
| msoTextEffectShapeInflateBottom |
| msoTextEffectShapeInflateTop |
| msoTextEffectShapeMixed |
| msoTextEffectShapePlainText |
| msoTextEffectShapeRingInside |
| msoTextEffectShapeRingOutside |
| msoTextEffectShapeSlantDown |
| msoTextEffectShapeSlantUp |
| msoTextEffectShapeStop |
| msoTextEffectShapeTriangleDown |
| msoTextEffectShapeTriangleUp |
| msoTextEffectShapeWave1 |
| msoTextEffectShapeWave2 |
expression.PresetShape
expression Required. An expression that returns a TextEffectFormat object.
Remarks
Setting the PresetTextEffect property automatically sets the PresetShape property.
Example
This example sets the shape of all WordArt on myDocument to a chevron whose center points down.
Set myDocument = ActiveDocument
For Each s In myDocument.Shapes
If s.Type = msoTextEffect Then
s.TextEffect.PresetShape = msoTextEffectShapeChevronDown
End If
Next