Shape.LockAspectRatio プロパティ (Project)

図形のサイズを変更する際にその元の比率を保持するかどうか、つまり、図形の縦横比をロックするかどうかを示す値を取得するか設定します。 MsoTriState の読み取り/書き込み

構文

式。LockAspectRatio

式Shape オブジェクトを表す変数。

注釈

図形のサイズを変更しても元の比率を保持する場合、LockAspectRatio 値は msoTrue です。 図形の高さと幅を個別に変更できる場合、値は msoFalse です。

例

次の例では、同じサイズの三角形を 2 つ作成します。 左の三角形は縦横比がロック解除され、右の三角形は縦横比がロックされています。 図 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 のサポートおよびフィードバックを参照してください。