LockAspectRatio Property

Microsoft Word Visual Basic

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