Edit

Share via

Shape.IncrementRotation method (Project)

  • Article

Rotates the shape around the z-axis by the specified number of degrees.

Syntax

expression. IncrementRotation (Increment)

expression A variable that represents a Shape object.

Parameters

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

Return value

Nothing

Remarks

The Increment parameter can be a value from -3600 to 3600.

Example

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

See also

Shape Object

Support and feedback

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.