LockAspectRatio Property
Determines whether the specified shape retains its original proportions when you resize it. Read/write MsoTriState.
| MsoTriState can be one of these MsoTriState constants. |
| msoCTrue |
| msoFalse You can change the height and width of the shape independently of one another when you resize it. |
| msoTriStateMixed |
| msoTriStateToggle |
| msoTrue The specified shape retains its original proportions when you resize it. |
Example
This example adds a cube to myDocument. The cube can be moved and resized, but not reproportioned.
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddShape(msoShapeCube, 50, 50, 100, 200) _
.LockAspectRatio = msoTrue