Свойство Shape.LockAspectRatio (Project)

Возвращает или задает значение, указывающее, сохраняет ли фигура исходные пропорции при изменении размера; то есть, заблокировано ли пропорции фигуры. Чтение и запись MsoTriState

Синтаксис

expression. 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

См. также

ShapeRange.LockAspectRatio PropertyMsoTriState

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.