TextEffectFormat.PresetShape Property (Excel)
Returns or sets the shape of the specified WordArt. Read/write MsoPresetTextEffectShape.
Syntax
expression .PresetShape
expression A variable that represents a TextEffectFormat object.
Remarks
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 |
msoTextEffectShapeDeflateInflateDeflate |
msoTextEffectShapeDoubleWave1 |
msoTextEffectShapeFadeDown |
msoTextEffectShapeFadeRight |
msoTextEffectShapeInflate |
msoTextEffectShapeInflateTop |
msoTextEffectShapePlainText |
msoTextEffectShapeRingOutside |
msoTextEffectShapeSlantUp |
msoTextEffectShapeTriangleDown |
msoTextEffectShapeWave1 |
msoTextEffectShapeDeflateInflate |
msoTextEffectShapeDeflateTop |
msoTextEffectShapeDoubleWave2 |
msoTextEffectShapeFadeLeft |
msoTextEffectShapeFadeUp |
msoTextEffectShapeInflateBottom |
msoTextEffectShapeMixed |
msoTextEffectShapeRingInside |
msoTextEffectShapeSlantDown |
msoTextEffectShapeStop |
msoTextEffectShapeTriangleUp |
msoTextEffectShapeWave2 |
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 = Worksheets(1)
For Each s In myDocument.Shapes
If s.Type = msoTextEffect Then
s.TextEffect.PresetShape = msoTextEffectShapeChevronDown
End If
Next