TextEffectFormat.ToggleVerticalText 方法 (Publisher)

將指定文字藝術師的文字流向從水平切換成垂直，反之亦然。

語法

運算式。ToggleVerticalText

運算式 代表 TextEffectFormat 物件的變數。

註解

使用 ToggleVerticalText 方法會交換代表文字藝術師之 Shape 物件的 Left 和 Top 屬性值，而讓 Width 和 Height 屬性保持不變。

Shape 物件的 Flip 方法和 Rotation 屬性以及 RotatedChars 屬性和 ToggleVerticalText 方法都會影響代表文字藝術師之 Shape 物件中的字元方向和文字流動方向。 您可能需要進行實驗，以便了解如何組合使用這些屬性和方法，取得需要的結果。

範例

此範例會將包含 Test 文字的文字藝術師新增至使用中的出版物，並從水平文字流程切換 (指定文字藝術師樣式的預設 msoTextEffect1) 垂直文字流程。

Dim shpTextEffect As Shape 
 
Set shpTextEffect = ActiveDocument.Pages(1).Shapes.AddTextEffect _ 
 (PresetTextEffect:=msoTextEffect1, Text:="Test", _ 
 FontName:="Arial Black", FontSize:=36, _ 
 FontBold:=False, FontItalic:=False, Left:=100, Top:=100) 
 
shpTextEffect.TextEffect.ToggleVerticalText

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。