PresetShape Property

Applies To

TextEffectFormat object.

Description

Returns or sets the shape of the specified WordArt. Read/write Long.

Can be one of the following 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

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