Shape.LockAspectRatio 属性 (Publisher)

返回或设置一个 MsoTriState 常量，该常量指示指定形状在调整大小时是否保留其原始比例。 读/写。

语法

表达式。LockAspectRatio

表达 一个代表 Shape 对象的变量。

备注

LockAspectRatio 属性值可以是一个 MsoTriState 常量声明在 Microsoft Office 类型库，如下表所示。

常量	说明
msoFalse	在调整指定形状的大小时，高度和宽度的更改彼此独立。
msoTriStateMixed	一个返回值，该值指示指定形状范围的 msoTrue 和 msoFalse 的组合。
msoTriStateToggle	在 msoTrue 和 msoFalse 之间切换的设置值。
msoTrue	指定的形状在调整大小时其原始比例保持不变。

示例

以下示例将一个立方体添加到当前出版物。 可以移动立方体并调整其尺寸，但不能调整比例。

Dim shp As Shape 
 
Set shp = ActiveDocument.Pages(1).Shapes _ 
 .AddShape(Type:=msoShapeCube, _ 
 Left:=50, Top:=50, Width:=100, Height:=200) _ 
 
shp.LockAspectRatio = msoTrue

支持和反馈

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