TextEffectFormat.PresetShape Property

Excel Developer Reference

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.

Visual Basic for Applications
  Set myDocument = Worksheets(1)
For Each s In myDocument.Shapes
    If s.Type = msoTextEffect Then
        s.TextEffect.PresetShape = msoTextEffectShapeChevronDown
    End If
Next

See Also