LockAspectRatio Property [Publisher 2003 VBA Language Reference]
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