LockAspectRatio Property [Excel 2003 VBA Language Reference]
|MsoTriState can be one of these MsoTriState constants.|
|msoFalse You can change the height and width of the shape independently of one another when you resize it.|
|msoTrue The specified shape retains its original proportions when you resize it.|
expression Required. An expression that returns one of the objects in the Applies To list.
This example adds a cube to
myDocument. The cube can be moved and resized, but not reproportioned.
Set myDocument = Worksheets(1) myDocument.Shapes.AddShape(msoShapeCube, _ 50, 50, 100, 200).LockAspectRatio = msoTrue