返回或设置横向压缩。 读/写。
语法
expression。 AutoRotateNumbers
表达 一个代表 Font 对象的变量。
返回值
MsoTriState
备注
AutoRotateNumbers 属性的值可以是其中一个 MsoTriState 常量。
| 常量 | 说明 |
|---|---|
| msoFalse | 在横向栏中不压缩半角数字。 |
| msoTrue | 在双字符横向栏中显示竖排文字中的半角数字。 |
示例
本示例将第一张幻灯片上第三个形状的文本方向设置为竖排文字，并设置横向栏压缩。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(3).TextFrame
.Orientation = msoTextOrientationVerticalFarEast
.TextRange.Font.AutoRotateNumbers = msoTrue
End With
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。