共用方式為

Publisher) (TextEffectFormat.ToggleVerticalText 方法

  • 發行項

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

語法

運算式。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 支援與意見反應。