TextEffectFormat.ToggleVerticalText method (Word)
Switches the text flow in the specified WordArt from horizontal to vertical, or vice versa.
Syntax
expression. ToggleVerticalText
expression Required. A variable that represents a 'TextEffectFormat' object.
Remarks
Using the ToggleVerticalText method swaps the values of the Width and Height properties of the Shape object that represents the WordArt and leaves the Left and Top properties unchanged.
The Flip method and Rotation property of the Shape object and the RotatedChars property and ToggleVerticalText method of the TextEffectFormat object all affect the character orientation and the direction of text flow in a Shape object that represents WordArt. You may have to experiment to find out how to combine the effects of these properties and methods to get the result you want.
Example
This example adds WordArt that contains the text "Test" to the active document and switches from horizontal text flow (the default for the specified WordArt style, msoTextEffect1) to vertical text flow.
Dim newWordArt As Shape
Set newWordArt = _
ActiveDocument.Shapes.AddTextEffect( _
PresetTextEffect:=msoTextEffect1, Text:="Test", _
FontName:="Arial Black", FontSize:=36, FontBold:=False, _
FontItalic:=False, Left:=100, Top:=100)
newWordArt.TextEffect.ToggleVerticalText
See also
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.
Feedback
https://aka.ms/ContentUserFeedback.
Coming soon: Throughout 2024 we will be phasing out GitHub Issues as the feedback mechanism for content and replacing it with a new feedback system. For more information see:Submit and view feedback for