ToggleVerticalText Method Example
This example adds WordArt that contains the text "Test" to myDocument
, and switches from horizontal text flow (the default for the specified WordArt style, msoTextEffect1) to vertical text flow.
Set myDocument = ActivePresentation.Slides(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