全部显示返回或设置指定“艺术字”的图形样式。MsoPresetTextEffectShape，可读写。
| MsoPresetTextEffectShape 可以是下列 MsoPresetTextEffectShape 常量之一： |
| 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 必需。该表达式返回一个 TextEffectFormat 对象。
如果设置 PresetTextEffect 属性，将自动设置 PresetShape 属性。
本示例将 myDocument 中所有“艺术字”图形设置为中点向下拉的 V 形样式。
Set myDocument = ActiveDocument
For Each s In myDocument.Shapes
If s.Type = msoTextEffect Then
s.TextEffect.PresetShape = msoTextEffectShapeChevronDown
End If
Next