Propriedade ShapeRange.LockAspectRatio (Excel)

True se a forma especificada mantiver suas proporções originais após o redimensionamento. False se você puder alterar a altura e a largura da forma, separadamente, ao redimensioná-la. MsoTriState de leitura/gravação.

Sintaxe

expressão. LockAspectRatio

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

Exemplo

Este exemplo adiciona um cubo a myDocument. O cubo pode ser movido e redimensionado, mas não na mesma proporção.

Set myDocument = Worksheets(1) 
myDocument.Shapes.AddShape(msoShapeCube, _ 
    50, 50, 100, 200).LockAspectRatio = msoTrue

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.