LockAspectRatio Property
MsoTrue if the specified shape retains its original proportions when you resize it. MsoFalse if you can change the height and width of the shape independently of one another when you resize it. Read/write MsoTriState.
| MsoTriState can be one of these MsoTriState constants. |
| msoCTrue |
| msoFalse |
| msoTriStateMixed |
| msoTriStateToggle |
| msoTrue |
expression.LockAspectRatio
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example adds a cube to myDocument. The cube can be moved and resized but not reproportioned.
Set myDocument = ActiveDocument
myDocument.Shapes.AddShape(msoShapeCube, _
50, 50, 100, 200).LockAspectRatio = msoTrue