ShapeRange.LockAspectRatio property (PowerPoint)
Determines whether the specified shape retains its original proportions when you resize it. Read/write.
expression.LockAspectRatio
expression A variable that represents a ShapeRange object.
MsoTriState
The value of the LockAspectRatio property can be one of these MsoTriState constants.
| Constant | Description |
|---|---|
| msoFalse | You can change the height and width of the shape independently of one another when you resize it. |
| msoTrue | The specified shape retains its original proportions when you resize it. |
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
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.