Compartir a través de


Propiedad Shape.LockAspectRatio (Publisher)

Devuelve o establece una constante MsoTriState que indica si la forma especificada conserva sus proporciones originales al cambiar su tamaño. Lectura y escritura.

Sintaxis

expresión. LockAspectRatio

expresión Variable que representa un objeto Shape.

Observaciones

El valor de la propiedad LockAspectRatio puede ser una de las constantes MsoTriState declaradas en la biblioteca de tipos de Microsoft Office y se muestra en la siguiente tabla.

Constante Descripción
msoFalse El alto y ancho de la forma cambian de manera independiente entre sí al cambiar el tamaño.
msoTriStateMixed Valor devuelto que indica una combinación de msoTrue y msoFalse para el intervalo de formas especificado.
msoTriStateToggle Valor establecido que cambia entre msoTrue y msoFalse.
msoTrue La forma especificada mantiene sus proporciones originales al cambiar su tamaño.

Ejemplo

En este ejemplo se agrega un cubo a la publicación activa. Es posible cambiar el tamaño del cubo y moverlo pero no se pueden cambiar sus proporciones.

Dim shp As Shape 
 
Set shp = ActiveDocument.Pages(1).Shapes _ 
 .AddShape(Type:=msoShapeCube, _ 
 Left:=50, Top:=50, Width:=100, Height:=200) _ 
 
shp.LockAspectRatio = msoTrue

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.