AutoRotateNumbers Property Example
This example sets the text direction of shape three on the first slide to vertical text, and sets lateral column compression.
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(3).TextFrame
.Orientation = msoTextOrientationVerticalFarEast
.TextRange.Font.AutoRotateNumbers = True
End With