This example adds WordArt that contains the text "Test" to myDocument
and specifies that the characters be very tightly spaced.
Set myDocument = Worksheets(1)
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