Propriedade Shape.LockAspectRatio (Word)

MsoTrue se a forma especificada retém suas proporções originais quando você a redimensiona. MsoFalse se você pode alterar a altura e largura da forma independentemente uma da outra, ao redimensioná-la. MsoTriState para leitura/gravação.

Sintaxe

expressão. LockAspectRatio

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

Exemplo

Este exemplo adiciona um cubo a myDocument. O cubo pode ser movido e redimensionado, mas suas proporções não podem ser alteradas.

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

Confira também

Objeto Shape

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.