PowerPoint VBA教程:Tracking属性

返回或设置指定艺术字中每个字符的水平间隔相对于字符宽度的比例。该比例可为从 0 到 5 之间的值。(为该属性指定的值越大,字符间的空间越大;小于 1 的值会产生字符重叠)。可读写。Single 类型。

以下表格相对于用户界面上的可选设置给出 Tracking属性的值。

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

VBA示例

本例向myDocument 中添加包含“Test”文本的艺术字,并且指定该字符紧密排列。


Set myDocument = ActivePresentation.Slides(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

上页:PowerPoint VBA教程:ToY属性 下页:PowerPoint VBA教程:Transparency属性

PowerPoint VBA教程:Tracking属性

PowerPoint VBA教程:Transparency属性 PowerPoint VBA教程:TransparencyColor属性
PowerPoint VBA教程:TransparentBackground属性 PowerPoint VBA教程:TriggerDelayTime属性
PowerPoint VBA教程:TriggerShape属性 PowerPoint VBA教程:TriggerType属性
PowerPoint VBA教程:Type属性 PowerPoint VBA教程:Underline属性
PowerPoint VBA教程:UpdateLinksOnSave属性 PowerPoint VBA教程:UseFormat属性
PowerPoint VBA教程:UseLongFileNames属性 PowerPoint VBA教程:UseTextColor属性
PowerPoint VBA教程:UseTextFont属性 PowerPoint VBA教程:Value属性
PowerPoint VBA教程:VBASigned属性 PowerPoint VBA教程:VBE属性
PowerPoint VBA教程:VBProject属性 PowerPoint VBA教程:Version属性
PowerPoint VBA教程:VerticalAnchor属性 PowerPoint VBA教程:VerticalFlip属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号