傳回或設定 MsoTriState 常數，指出當您調整指定圖形大小時，指定的圖形是否保留其原始比例。 讀取/寫入。
語法
運算式。LockAspectRatio
expression 一個用於表示 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 支援與意見反應。