Share via

PresetTextEffect Property [Publisher 2003 VBA Language Reference]

  • Article

MsoPresetTextEffect

MsoPresetTextEffect can be one of these MsoPresetTextEffect constants.
msoTextEffect1
msoTextEffect10
msoTextEffect11
msoTextEffect12
msoTextEffect13
msoTextEffect14
msoTextEffect15
msoTextEffect16
msoTextEffect17
msoTextEffect18
msoTextEffect19
msoTextEffect2
msoTextEffect20
msoTextEffect21
msoTextEffect22
msoTextEffect23
msoTextEffect24
msoTextEffect25
msoTextEffect26
msoTextEffect27
msoTextEffect28
msoTextEffect29
msoTextEffect3
msoTextEffect30
msoTextEffect4
msoTextEffect5
msoTextEffect6
msoTextEffect7
msoTextEffect8
msoTextEffect9
msoTextEffectMixed

expression.PresetTextEffect

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

Example

This example sets the text effect style for the first shape on the first page of the active publication. This example assumes that there is at least one shape on the first page of the active publication.

Sub ChangeTextEffect()
    With ActiveDocument.Pages(1).Shapes(1)
        If .Type = msoTextEffect Then
            .TextEffect.PresetTextEffect = msoTextEffect1
        End If
    End With
End Sub

Applies to | TextEffectFormat Object