TextEffect Property

Microsoft Publisher Visual Basic

object that represents the text formatting properties of a WordArt object.

expression.TextEffect

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

Example

This example adds a WordArt object to the active publication and formats and inserts additional into it.

Sub AddFormatNewWordArt()
    With ActiveDocument.Pages(1).Shapes.AddTextEffect( _
            PresetTextEffect:=msoTextEffect1, Text:="Test", _
            FontName:="Snap ITC", FontSize:=30, FontBold:=msoTrue, _
            FontItalic:=msoFalse, Left:=150, Top:=130)
        .Rotation = 90
        With .TextEffect
            .RotatedChars = msoTrue
            .Text = "This is a " & .Text
        End With
        .Width = 250
    End With
End Sub