次の方法で共有

TextEffectFormat.ToggleVerticalText メソッド (Excel)

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

構文

式。ToggleVerticalText

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

注釈

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

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