constant that represents the shape of the specified WordArt. Read/write.
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 |
msoTextEffectShapeDeflateInflate |
msoTextEffectShapeDeflateInflateDeflate |
msoTextEffectShapeDeflateTop |
msoTextEffectShapeDoubleWave1 |
msoTextEffectShapeDoubleWave2 |
msoTextEffectShapeFadeDown |
msoTextEffectShapeFadeLeft |
msoTextEffectShapeFadeRight |
msoTextEffectShapeFadeUp |
msoTextEffectShapeInflate |
msoTextEffectShapeInflateBottom |
msoTextEffectShapeInflateTop |
msoTextEffectShapeMixed |
msoTextEffectShapePlainText |
msoTextEffectShapeRingInside |
msoTextEffectShapeRingOutside |
msoTextEffectShapeSlantDown |
msoTextEffectShapeSlantUp |
msoTextEffectShapeStop |
msoTextEffectShapeTriangleDown |
msoTextEffectShapeTriangleUp |
msoTextEffectShapeWave1 |
msoTextEffectShapeWave2 |
expression.PresetShape
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example sets the shape of the first shape on the first page of the active publication to a chevron whose center points down. For this example to work the first shape must be a WordArt shape.
Sub ChangeTextEffect()
With ActiveDocument.Pages(1).Shapes(1)
If .Type = msoTextEffect Then
.TextEffect.PresetShape = msoTextEffectShapeChevronDown
End If
End With
End Sub