Word VBA教程:ToggleVerticalText方法

切换指定“艺术字”的排列方式,将横排改为纵排,或将纵排改为横排。

expression.ToggleVerticalText

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

说明

用 ToggleVerticalText方法可交换代表“艺术字”的 Shape对象的 Width 和 Height属性,而该对象的 Left 和 Top属性保持不变。

Shape对象的Flip方法和Rotation属性以及 TextEffectFormat对象的RotatedChars属性和 ToggleVerticalText方法都会影响代表“艺术字”的 Shape对象中的字符方向和文字排列方式。通常需要经过试验才能找到组合使用这些属性和方法的最佳途径以达到预期效果。

VBA示例

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

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号