Share via

LockAspectRatio Property

  • Article

MsoTriState

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

Applies to | InlineShape Object | Shape Object | ShapeRange Collection Object