PresetShape Property

Microsoft Excel Visual Basic

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

expression.PresetShape

expression    Required. An expression that returns one of the objects in the Applies To list.

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 = Worksheets(1)
For Each s In myDocument.Shapes
    If s.Type = msoTextEffect Then
        s.TextEffect.PresetShape = msoTextEffectShapeChevronDown
    End If
Next