Shape.IncrementRotation method (Project)
Rotates the shape around the z-axis by the specified number of degrees.
expression. IncrementRotation (Increment)
expression A variable that represents a Shape object.
| Name | Required/Optional | Data type | Description |
|---|---|---|---|
| Increment | Required | Single | The number of degrees the shape is to be rotated. A positive value rotates the shape clockwise; a negative value rotates it counterclockwise. |
| Increment | Required | FLOAT | |
| Name | Required/Optional | Data type | Description |
Nothing
The Increment parameter can be a value from -3600 to 3600.
The following example shows the difference between rotating a shape and rotating a shape range. The example creates a shape range that contains two cylinders, rotates the shape range 30 degrees clockwise, and then rotates the second shape in the range 30 degrees counterclockwise. If you set a breakpoint on the last IncrementRotation statement, and then step through the code, you can see how the rotation works.
Sub RotateShapes()
Dim theReport As Report
Dim shp1 As shape
Dim shp2 As shape
Dim shpGroup As shape
Dim reportName As String
Dim sRange1 As ShapeRange
reportName = "Rotate Report"
Set theReport = ActiveProject.Reports.Add(reportName)
Set shp1 = theReport.Shapes.AddShape(msoShapeCan, 20, 30, 100, 100)
Set shp2 = theReport.Shapes.AddShape(msoShapeCan, 140, 30, 100, 100)
Set sRange1 = theReport.Shapes.Range(Array(1, 2))
sRange1.IncrementRotation 30
sRange1(2).IncrementRotation -30
End Sub
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.