Propriedade Shape.LockAspectRatio (Project)

Obtém ou define um valor que indica se a forma mantém suas proporções originais quando você a redimensiona; isto é, se a proporção da forma está bloqueada. Leitura/gravação MsoTriState

Sintaxe

mais simples. LockAspectRatio

expressão Uma variável que representa um objeto Shape.

Comentários

O valor de LockAspectRatio será msoTrue se a forma mantiver suas proporções originais ao ser redimensionada. Se você puder alterar a altura e a largura da forma independentemente, o valor será msoFalse.

Exemplo

O exemplo a seguir cria dois triângulos do mesmo tamanho. O triângulo esquerdo tem a taxa de proporção desbloqueada e o triângulo direito tem a taxa de proporção bloqueada. A Figura 1 mostra o resultado quando cada triângulo é redimensionado na mesma quantidade.

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

Na Figura 1, a forma correta com a taxa de proporção bloqueada é selecionada.

Figura 1. Redimensionar uma forma quando a proporção está desbloqueada ou bloqueada

Valor de propriedade

MSOTRISTATE

Confira também

Objeto de FormaPropriedade ShapeRange.LockAspectRatioMsoTriState

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.