PresetTextEffect Property

Applies To

TextEffectFormat object.

Description

Returns or sets the style of the specified WordArt. The values for this property correspond to the formats in the WordArt Gallery dialog box (numbered from left to right, top to bottom). Read/write Long.

Can be one of the following MsoPresetTextEffect constants:

msoTextEffect1	msoTextEffect2
msoTextEffect3	msoTextEffect4
msoTextEffect5	msoTextEffect6
msoTextEffect7	msoTextEffect8
msoTextEffect9	msoTextEffect10
msoTextEffect11	msoTextEffect12
msoTextEffect13	msoTextEffect14
msoTextEffect15	msoTextEffect16
msoTextEffect17	msoTextEffect18
msoTextEffect19	msoTextEffect20
msoTextEffect21	msoTextEffect22
msoTextEffect23	msoTextEffect24
msoTextEffect25	msoTextEffect26
msoTextEffect27	msoTextEffect28
msoTextEffect29	msoTextEffect30
msoTextEffectMixed

Remarks

Setting the PresetTextEffect property automatically sets many other formatting properties of the specified shape.

Example

This example sets the style for all WordArt on myDocument to the first style listed in the WordArt Gallery dialog box.

Set myDocument = Worksheets(1)
For Each s In myDocument.Shapes
    If s.Type = msoTextEffect Then
        s.TextEffect.PresetTextEffect = msoTextEffect1
    End If
Next