Tracking Property Example

This example adds WordArt that contains the text "Test" to myDocument and specifies that the characters be very tightly spaced.

Set myDocument = ActiveDocument
Set newWordArt = _
    myDocument.Shapes.AddTextEffect( _
    PresetTextEffect:=msoTextEffect1, _
    Text:="Test", _
    FontName:="Arial Black", FontSize:=36, FontBold:=False, _
    FontItalic:=False, Left:=100, Top:=100)
newWordArt.TextEffect.Tracking = 0.8