Shape.LockAspectRatio 属性 (Project)

获取或设置一个值，该值指示形状在调整大小时是否保留其原始比例;即是否锁定形状的纵横比。 读/写 MsoTriState

语法

表达式。LockAspectRatio

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

备注

如果形状在调整大小时保留其原始比例， 则 LockAspectRatio 值为 msoTrue 。 如果可以单独更改形状的高度和宽度，则值为 msoFalse。

示例

以下示例创建两个大小相同的三角形。 左三角形已解锁纵横比，右侧三角形已锁定纵横比。 图 1 显示了每个三角形的大小相同时的结果。

Sub ResizeTriangles()
    Dim shapeReport As Report
    Dim reportName As String
    Dim triangle1 As shape
    Dim triangle2 As shape

    reportName = "Triangle resize report"
    Set shapeReport = ActiveProject.Reports.Add(reportName)
    
    With shapeReport.Shapes
        Set triangle1 = .AddShape(msoShapeIsoscelesTriangle, 10, 10, 100, 100)
        Set triangle2 = .AddShape(msoShapeIsoscelesTriangle, 150, 10, 100, 100)
    End With
    
    triangle1.Select
    triangle1.LockAspectRatio = msoFalse
    triangle1.height = 200
    
    triangle2.Select
    triangle2.LockAspectRatio = msoTrue
    triangle2.height = 200
End Sub

在图 1 中，选择了具有锁定纵横比的右形状。

图 1. 解除锁定或锁定纵横比时调整形状的大小

属性值

MSOTRISTATE

另请参阅

Shape 对象ShapeRange.LockAspectRatio 属性MsoTriState

支持和反馈

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