TextEffectFormat.ToggleVerticalText メソッド (Publisher)

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

構文

式。ToggleVerticalText

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

注釈

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

Shape オブジェクトの Flip メソッドと Rotation プロパティ、RotatedChars プロパティ、ToggleVerticalText メソッドはすべて、ワードアートを表す Shape オブジェクトの文字の向きとテキスト フローの方向に影響します。 期待どおりの結果を得るために、場合によっては、これらのプロパティとメソッドを実際に組み合わせて実行し、その効果を確認する必要があります。

例

この例では、テストというテキストを含むワードアートをアクティブな文書に追加し、水平方向のテキスト フロー (指定したワードアート スタイルの既定値である 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