Propriedade Shape.LockAspectRatio (Project)

Obtém ou define um valor que indica se a forma mantém suas proporções originais ao redimensioná-la; ou seja, se a proporção da forma está bloqueada. MsoTriState de leitura/gravação

Sintaxe

expressão. LockAspectRatio

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

Comentários

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

Exemplo

O exemplo a seguir cria dois triângulos do mesmo tamanho. O triângulo esquerdo tem a proporção de aspecto desbloqueada e o triângulo direito tem a proporção de aspecto 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, a forma correta com a proporção bloqueada é selecionada.

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

Valor de propriedade

MSOTRISTATE

Confira também

Propriedade Shape ObjectShapeRange.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.