Propriedade Shape.LockAspectRatio (Publisher)

Retorna ou define uma constante MsoTriState indicando se a forma especificada mantém suas proporções originais ao redimensioná-la. Leitura/gravação.

Sintaxe

expressão. LockAspectRatio

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

Comentários

O valor da propriedade LockAspectRatio pode ser uma das constantes MsoTriState declaradas na biblioteca de tipos do Microsoft Office e mostradas na tabela a seguir.

Constante	Descrição
msoFalse	A altura e a largura da forma mudam independentemente uma da outra quando você a redimensiona.
msoTriStateMixed	Um valor retornado que indica uma combinação de msoTrue e msoFalse para o intervalo de formas especificado.
msoTriStateToggle	Um valor definido que alterna entre msoTrue e msoFalse.
msoTrue	A forma especificada mantém as suas proporções originais ao ser redimensionada.

Exemplo

Este exemplo adiciona um cubo à publicação ativa. O cubo pode ser movido e redimensionado, mas não ter suas proporções alteradas.

Dim shp As Shape 
 
Set shp = ActiveDocument.Pages(1).Shapes _ 
 .AddShape(Type:=msoShapeCube, _ 
 Left:=50, Top:=50, Width:=100, Height:=200) _ 
 
shp.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.