Share via

LockAspectRatio Property [Publisher 2003 VBA Language Reference]

  • Article

MsoTriState

MsoTriState can be one of these MsoTriState constants.
msoCTrue Not used with this property.
msoFalse The height and width of the shape change independently of one another when you resize it.
msoTriStateMixed Return value indicating a combination of msoTrue and msoFalse for the specified shape range.
msoTriStateToggle Set value which toggles between msoTrue and msoFalse.
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 the active publication. The cube can be moved and resized, but not reproportioned.

Dim shp As Shape

Set shp = ActiveDocument.Pages(1).Shapes _
    .AddShape(Type:=msoShapeCube, _
    Left:=50, Top:=50, Width:=100, Height:=200) _

shp.LockAspectRatio = msoTrue

Applies to | Shape Object | ShapeRange Collection