PresetShape Property
Returns or sets the shape of the specified WordArt. Read/write MsoPresetTextEffectShape.
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