AutoRotateNumbers 属性

       

返回或设置横向压缩。可读写。MsoTriState 类型。

示例

本示例将第一张幻灯片第三个形状的文本方向设置为竖排文字,并设置横向栏压缩。

Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(3).TextFrame
    .Orientation = msoTextOrientationVerticalFarEast
    .TextRange.Font.AutoRotateNumbers = msoTrue
End With