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

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

Синтаксис

expression. LockAspectRatio

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

Замечания

Значение LockAspectRatio имеет значение msoTrue, если диапазон фигур сохраняет исходные пропорции при изменении размера. Если вы можете изменить высоту и ширину диапазона фигур независимо друг от друга, значением будет msoFalse.

Пример

В следующем примере создаются два диапазона фигур с треугольником и шестеренкой одинакового размера в каждом диапазоне фигур. В левом диапазоне фигур разблокированы пропорции, а для правого диапазона фигур — пропорции заблокированы. На рисунке 1 показан результат при изменении размера каждого диапазона фигур на одну и ту же величину.

Изменения диапазона фигур применяются к каждой фигуре в диапазоне.

Sub ResizeShapeRanges()
    Dim shapeReport As Report
    Dim reportName As String
    Dim triangle1 As shape
    Dim triangle2 As shape
    Dim gear1 As shape
    Dim gear2 As shape
    Dim sRange1 As ShapeRange
    Dim sRange2 As ShapeRange
    
    reportName = "ShapeRange resize report"
    Set shapeReport = ActiveProject.Reports.Add(reportName)
    
    With shapeReport.Shapes
        Set triangle1 = .AddShape(msoShapeIsoscelesTriangle, 10, 10, 100, 100)
        Set gear1 = .AddShape(msoShapeGear6, 10, 120, 100, 100)
        Set triangle2 = .AddShape(msoShapeIsoscelesTriangle, 150, 10, 100, 100)
        Set gear2 = .AddShape(msoShapeGear6, 150, 120, 100, 100)
        
        gear2.BackgroundStyle = msoBackgroundStylePreset3
        
        Set sRange1 = .Range(Array(1, 2))
        Set sRange2 = .Range(Array(3, 4))
    End With
       
    sRange1.LockAspectRatio = msoFalse
    sRange1.height = 200
    
    ' Set a yellow shape style for gear1.
    sRange1(2).ShapeStyle = msoShapeStylePreset26
    
    sRange2.LockAspectRatio = msoTrue
    sRange2.height = 200
    
    sRange2.Select
End Sub

На рис. 1 выбран правильный диапазон фигур с пропорциями блокировки.

Рис. 1. Изменение размера диапазона фигур при разблокировке или блокировке пропорций

Значение свойства

MSOTRISTATE

См. также

ShapeRange ObjectShape.LockAspectRatio PropertyMsoTriState

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

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