Project) (Shape.LockAspectRatio 屬性

取得或設定值，指出當您調整圖形大小時，圖形是否保留其原始比例;也就是圖形的長寬比是否已鎖定。 讀取/寫入 MsoTriState

語法

運算式。LockAspectRatio

expression 一個用於表示 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

另請參閱

圖形物件ShapeRange.LockAspectRatio 屬性MsoTriState

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。