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
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.