Excel VBA教程:Tracking属性

返回或设置指定的艺术字对象中分配给每个字符的水平空间与字符宽度的比例。可为 0(零)到 5 之间的值(本属性的值越大,表示字符的水平间距越大;如果本属性的值小于 1,则字符将重叠)。Single 类型,可读写。

下表给出 Tracking属性的值与用户界面设置之间的对应关系。

用户界面设置 等价的 Tracking属性值
很紧 .8
紧密 .9
普通 1.0
稀疏 1.2
很松 1.5

Excel VBA教程:Tracking属性·示例

本示例向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

上页:Excel VBA教程:TotalsAnnotation属性 下页:Excel VBA教程:TrackStatus属性

Excel VBA教程:Tracking属性

Excel VBA教程:TrackStatus属性 Excel VBA教程:TransitionExpEval属性
Excel VBA教程:TransitionFormEntry属性 Excel VBA教程:TransitionMenuKey属性
Excel VBA教程:TransitionMenuKeyAction属性 Excel VBA教程:TransitionNavigKeys属性
Excel VBA教程:Transparency属性 Excel VBA教程:TransparencyColor属性
Excel VBA教程:TransparentBackground属性 Excel VBA教程:TreeviewControl属性
Excel VBA教程:TwoInitialCapitals属性 Excel VBA教程:Type属性
Excel VBA教程:Underline属性 Excel VBA教程:UnlockedFormulaCells属性
Excel VBA教程:UpBars属性 Excel VBA教程:UpdateLinks属性
Excel VBA教程:UpdateLinksOnSave属性 Excel VBA教程:UpdateRemoteReferences属性
Excel VBA教程:UsableHeight属性 Excel VBA教程:UsableWidth属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号