返回或设置指定的艺术字对象中分配给每个字符的水平空间与字符宽度的比例。可为 0(零)到 5 之间的值(本属性的值越大,表示字符的水平间距越大;如果本属性的值小于 1,则字符将重叠)。Single 类型,可读写。
下表给出 Tracking 属性的值与用户界面设置之间的对应关系。
用户界面设置 | 等价的 Tracking 属性值 |
---|---|
很紧 | .8 |
紧密 | .9 |
普通 | 1.0 |
稀疏 | 1.2 |
很松 | 1.5 |
本示例向 myDocument
中添加包含“Test”的艺术字对象,并使该对象中的字符非常紧密地排列。
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