LockAspectRatio Property 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 = True