ToggleVerticalText 方法

       

使指定的艺术字对象的文字在水平排列方式和垂直排列方式之间转换。

expression.ToggleVerticalText

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

说明

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

Shape 对象的 Flip 方法和 Rotation 属性以及 TextEffectFormat 对象的 RotatedChars 属性和 ToggleVerticalText 方法都会影响艺术字 Shape 对象中的字符方向和文字排列方向。可能需要进行实验,以便适当地组合这些属性和方法,从而获得所需的效果。

示例

本示例向 myDocument 中添加包含“Test”的艺术字对象,并将其水平文字排列方向(对于指定的艺术字样式 msoTextEffect1,这是默认的文字排列方向)更改为垂直文字排列方向。

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