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