Returns or sets an MsoTriState constant indicating whether the specified shape retains its original proportions when you resize it. Read/write.
| MsoTriState can be one of these MsoTriState constants. |
| msoCTrue Not used with this property. |
| msoFalse The height and width of the shape change independently of one another when you resize it. |
| msoTriStateMixed Return value indicating a combination of msoTrue and msoFalse for the specified shape range. |
| msoTriStateToggle Set value which toggles between msoTrue and msoFalse. |
| msoTrue The specified shape retains its original proportions when you resize it. |
expression.LockAspectRatio
expression Required. An expression that returns one of the objects in the Applies To list.
This example adds a cube to the active publication. The cube can be moved and resized, but not reproportioned.
Dim shp As Shape
Set shp = ActiveDocument.Pages(1).Shapes _
.AddShape(Type:=msoShapeCube, _
Left:=50, Top:=50, Width:=100, Height:=200) _
shp.LockAspectRatio = msoTrue