通过

Shape.LockAspectRatio 属性 (Word)

  • 项目

MsoTrue 如果指定的形状在调整尺寸时保持其原始比例。 MsoFalse 如果在调整尺寸时，可以更改高度和另一个形状的宽度。 读/写 MsoTriState 。

语法

表达式。LockAspectRatio

expression 是必需的。 一个代表 Shape 对象的变量。

示例

本示例向 myDocument 添加一个立方体。 可以移动此立方体并调整其大小，但不能重新设置其比例。

Set myDocument = ActiveDocument 
myDocument.Shapes.AddShape(msoShapeCube, _ 
 50, 50, 100, 200).LockAspectRatio = msoTrue

另请参阅

形状对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。