该属性返回或设置指定的“艺术字”中分配给每个字符的水平间距与字符宽度之比。可取从 0（零）至 5 之间的数值（该属性值越大则字符间距越宽，其值小于 1 将导致字符相互重叠）。Single 类型，可读写。
expression.Tracking
expression 必需。该表达式返回一个 TextEffectFormat 对象。
下表给出与用户界面中的有效设置相对应的 Tracking 属性值。
| 用户界面设置 | 等效的 Tracking 属性值 |
|---|---|
| 很紧 | 0.8 |
| 紧密 | 0.9 |
| 常规 | 1.0 |
| 稀疏 | 1.2 |
| 很松 | 1.5 |
本示例将包含文本“Test”的艺术字添至活动文档中，然后将字符间距设为很紧。
Set newWordArt = ActiveDocument.Shapes.AddTextEffect( _
PresetTextEffect:=msoTextEffect1, Text:="Test", _
FontName:="Arial Black", FontSize:=36, FontBold:=False, _
FontItalic:=False, Left:=100, Top:=100)
newWordArt.TextEffect.Tracking = 0.8