次の方法で共有

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 のサポートおよびフィードバックを参照してください。