LockAspectRatio Property [Excel 2003 VBA Language Reference]
MsoTriState
MsoTriState can be one of these MsoTriState constants. |
msoCTrue |
msoFalse You can change the height and width of the shape independently of one another when you resize it. |
msoTriStateMixed |
msoTriStateToggle |
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.
Example
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
Applies to | Graphic Object | Shape Object | ShapeRange Collection