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