次の方法で共有

TextEffectFormat.ToggleVerticalText メソッド (Publisher)

指定したワードアートの横書きと縦書きを切り替えます。

構文

式。ToggleVerticalText

表現TextEffectFormat オブジェクトを表す変数。

解説

ToggleVerticalText メソッドを使用すると、ワードアートを表す Shape オブジェクトの Left プロパティと Top プロパティの値が入れ替わり、Width プロパティと Height プロパティは変更されません。

Shape オブジェクトの Flip メソッドと Rotation プロパティ、および RotationChars プロパティと 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 のサポートおよびフィードバックを参照してください。

  • Last updated on