ShapeRange.LockAspectRatio Property
Determines whether the specified shape retains its original proportions when you resize it. Read/write.
Namespace: Microsoft.Office.Interop.PowerPoint
Assembly: Microsoft.Office.Interop.PowerPoint (in Microsoft.Office.Interop.PowerPoint.dll)
Syntax
'Declaration
Property LockAspectRatio As MsoTriState
Get
Set
'Usage
Dim instance As ShapeRange
Dim value As MsoTriState
value = instance.LockAspectRatio
instance.LockAspectRatio = value
MsoTriState LockAspectRatio { get; set; }
Property Value
Type: Microsoft.Office.Core.MsoTriState
MsoTriState
Remarks
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. |
Examples
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