切换指定“艺术字”的排列方式,将横排改为纵排,或将纵排改为横排。
expression.ToggleVerticalText
expression 必需。该表达式返回一个 TextEffectFormat 对象。
用 ToggleVerticalText 方法可交换代表“艺术字”的 Shape 对象的 Width 和 Height 属性,而该对象的 Left 和 Top 属性保持不变。
Shape 对象的 Flip 方法和 Rotation 属性以及 TextEffectFormat 对象的 RotatedChars 属性和 ToggleVerticalText 方法都会影响代表“艺术字”的 Shape 对象中的字符方向和文字排列方式。通常需要经过试验才能找到组合使用这些属性和方法的最佳途径以达到预期效果。
本示例将包含文本“Test”的“艺术字”添加到活动文档中,并将文字由横排(指定“艺术字”样式的默认值,即 msoTextEffect1)转换为纵排。
Dim newWordArt As Shape
Set newWordArt = _
ActiveDocument.Shapes.AddTextEffect( _
PresetTextEffect:=msoTextEffect1, Text:="Test", _
FontName:="Arial Black", FontSize:=36, FontBold:=False, _
FontItalic:=False, Left:=100, Top:=100)
newWordArt.TextEffect.ToggleVerticalText