通过

TextEffectFormat.ToggleVerticalText 方法 (Excel)

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

语法

表达式。ToggleVerticalText

表达 一个代表 TextEffectFormat 对象的变量。

备注

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

Shape 对象的 Flip 方法和 Rotation 属性以及 TextEffectFormat 对象的 RotatedChars 属性和 ToggleVerticalText 方法都影响表示艺术字的 Shape 对象中的字符方向和文本方向。 可能需要经过试验才能找到组合使用这些属性和方法的最佳方式，从而达到预期效果。

示例

本示例将包含文本 Test 的艺术字添加到 myDocument ，并从水平文本流 (指定艺术字样式 的默认值 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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。