ToggleVerticalText 方法

将指定的艺术字中的文字排列从水平切换为垂直，反之亦然。

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

说明

使用 ToggleVerticalText 方法可以交换代表艺术字的 Shape 对象的 Width 和 Height 属性的值，但不改变 Left 和 Top 属性。

Shape 对象的 Flip 方法和 Rotation 属性以及 TextEffectFormat 对象的 RotatedChars 属性和 ToggleVerticalText 方法都影响代表艺术字的 Shape 对象的文字排列的方向。您可能需要多次试验，才能找出组合这些属性和方法的效果的方法以获得预期结果。

示例

本示例向 myDocument 中添加包含“Test”文本的艺术字，并且将水平文字排列（指定艺术字的默认字体，msoTextEffect1）切换为垂直文字排列。

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.ToggleVerticalText