Propriedade Shape.LockAspectRatio (Project)

Obtém ou define um valor que indica se a forma mantém as proporções originais quando a redimensiona; ou seja, se a proporção da forma está bloqueada. MsoTriState de Leitura/Escrita

Sintaxe

expressão. LockAspectRatio

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

Comentários

O valor LockAspectRatio é msoTrue se a forma mantiver as proporções originais quando é redimensionada. Se conseguir alterar a altura e a largura da forma de forma independente, o valor é msoFalse.

Exemplo

O exemplo seguinte cria dois triângulos do mesmo tamanho. O triângulo esquerdo tem a proporção desbloqueada e o triângulo direito tem a proporção bloqueada. A Figura 1 mostra o resultado quando cada triângulo é redimensionado pela 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, está selecionada a forma correta com a proporção bloqueada.

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

Valor de propriedade

MSOTRISTATE

Confira também

Shape ObjectShapeRange.LockAspectRatio PropertyMsoTriState

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.