返回或设置指定的艺术字对象的图形。MsoPresetTextEffectShape 类型，可读写。
| MsoPresetTextEffectShape 可为以下 MsoPresetTextEffectShape 常量之一。 |
| msoTextEffectShapeArchDownCurve |
| msoTextEffectShapeArchDownPour |
| msoTextEffectShapeArchUpCurve |
| msoTextEffectShapeArchUpPour |
| msoTextEffectShapeButtonCurve |
| msoTextEffectShapeButtonPour |
| msoTextEffectShapeCanDown |
| msoTextEffectShapeCanUp |
| msoTextEffectShapeCascadeDown |
| msoTextEffectShapeCascadeUp |
| msoTextEffectShapeChevronDown |
| msoTextEffectShapeChevronUp |
| msoTextEffectShapeCircleCurve |
| msoTextEffectShapeCirclePour |
| msoTextEffectShapeCurveDown |
| msoTextEffectShapeCurveUp |
| msoTextEffectShapeDeflate |
| msoTextEffectShapeDeflateBottom |
| msoTextEffectShapeDeflateInflateDeflate |
| msoTextEffectShapeDoubleWave1 |
| msoTextEffectShapeFadeDown |
| msoTextEffectShapeFadeRight |
| msoTextEffectShapeInflate |
| msoTextEffectShapeInflateTop |
| msoTextEffectShapePlainText |
| msoTextEffectShapeRingOutside |
| msoTextEffectShapeSlantUp |
| msoTextEffectShapeTriangleDown |
| msoTextEffectShapeWave1 |
| msoTextEffectShapeDeflateInflate |
| msoTextEffectShapeDeflateTop |
| msoTextEffectShapeDoubleWave2 |
| msoTextEffectShapeFadeLeft |
| msoTextEffectShapeFadeUp |
| msoTextEffectShapeInflateBottom |
| msoTextEffectShapeMixed |
| msoTextEffectShapeRingInside |
| msoTextEffectShapeSlantDown |
| msoTextEffectShapeStop |
| msoTextEffectShapeTriangleUp |
| msoTextEffectShapeWave2 |
expression.PresetShape
expression 必需。该表达式返回“应用于”列表中的对象之一。
设置 PresetTextEffect 属性将自动设置 PresetShape 属性。
本示例将 myDocument 中所有艺术字对象的图形设置为中点朝下的山形。
Set myDocument = Worksheets(1)
For Each s In myDocument.Shapes
If s.Type = msoTextEffect Then
s.TextEffect.PresetShape = msoTextEffectShapeChevronDown
End If
Next