Свойство Shape.LockAaspect Ratio (проект)

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

Синтаксис

выражение. LockAspectRatio

выражение Переменная, представляющая объект Фигура.

Примечания

Значение 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 и обратная связь.