Table of contents
TOC
Collapse the table of content
Expand the table of content

TextEffectFormat.PresetShape Property (PowerPoint)

office 365 dev account|Last Updated: 6/12/2017
|
1 Contributor

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

Syntax

expression. PresetShape

expression A variable that represents a TextEffectFormat object.

Return Value

MsoPresetTextEffectShape

Remarks

Setting the PresetTextEffect property automatically sets the PresetShape property.

The value of the PresetShape property 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| |msoTextEffectShapeDoubleWave2| |msoTextEffectShapeFadeDown| |msoTextEffectShapeFadeLeft| |msoTextEffectShapeFadeRight| |msoTextEffectShapeFadeUp| |msoTextEffectShapeInflate| |msoTextEffectShapeInflateBottom| |msoTextEffectShapeInflateTop| |msoTextEffectShapeMixed| |msoTextEffectShapePlainText| |msoTextEffectShapeRingInside| |msoTextEffectShapeRingOutside| |msoTextEffectShapeSlantDown| |msoTextEffectShapeSlantUp| |msoTextEffectShapeStop| |msoTextEffectShapeTriangleDown| |msoTextEffectShapeTriangleUp| |msoTextEffectShapeWave1| |msoTextEffectShapeWave2| |msoTextEffectShapeDoubleWave1|

Example

This example sets the shape of all WordArt on myDocument to a chevron whose center points down.

Set myDocument = ActivePresentation.Slides(1)

For Each s In myDocument.Shapes

    If s.Type = msoTextEffect Then

        s.TextEffect.PresetShape = msoTextEffectShapeChevronDown

    End If

Next

See also

Concepts

TextEffectFormat Object

© 2018 Microsoft