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