Word VBA教程:Tracking属性

该属性返回或设置指定的“艺术字”中分配给每个字符的水平间距与字符宽度之比。可取从 0(零)至 5 之间的数值(该属性值越大则字符间距越宽,其值小于 1 将导致字符相互重叠)。Single 类型,可读写。

expression.Tracking

expression  必需。该表达式返回一个TextEffectFormat对象。

说明

下表给出与用户界面中的有效设置相对应的 Tracking属性值。

用户界面设置 等效的 Tracking属性值
很紧 0.8
紧密 0.9
常规 1.0
稀疏 1.2
很松 1.5

VBA示例

本示例将包含文本“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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号