AutoRotateNumbers Property

Microsoft PowerPoint Visual Basic

Returns or sets lateral compression. Read/write MsoTriState.

MsoTriState can be one of these MsoTriState constants.
msoCTrue
msoFalse Half-width numbers will not be compressed in lateral columns.
msoTriStateMixed
msoTriStateToggle
msoTrue Displays half-width numbers within vertical text in two-character lateral columns.

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 = msoTrue
End With