指定した図形のサイズを変更しても元の比率を保持するかどうかを示す MsoTriState 定数を返すか設定します。 値の取得と設定が可能です。
構文
式。LockAspectRatio
式: Shape オブジェクトを表す変数。
注釈
LockAspectRatio プロパティの値には、Microsoft Office のタイプ ライブラリで宣言されているし、次の表に示す msotristate クラス の定数のいずれかを指定できます。
| 定数 | 説明 |
|---|---|
| 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 のサポートおよびフィードバックを参照してください。