Shape.Rotate

Sub Rotate(Angle As Double)

Member of Shape

The Rotate method rotates a shape. The center of rotation is specified by the Shape.RotationCenterX and Shape.RotationCenterY properties of the shape.


Parameter	Description
Angle	Specifies the number of degrees to rotate the shape

The following VBA example creates a flower with randomly colored petals.

Sub Test()

Const NumLeafs As Long = 11

Dim pal As Palette

Dim s As Shape

Dim i As Long, NumColors As Long

Set s = Nothing

If ActivePalette Is Nothing Then

Set pal = Palettes.Open(Application.SetupPath & "Custom\coreldrw.xml")

Else

Set pal = ActivePalette

End If

NumColors = pal.ColorCount

For i = 1 To NumLeafs

If s Is Nothing Then

Set s = ActiveLayer.CreateEllipse(5, 5, 7, 6)

s.RotationCenterX = 4

s.RotationCenterY = 5.5

Else

s.Duplicate

End If

s.Fill.ApplyUniformFill pal.Color(Rnd() * NumColors + 1)

s.Rotate 360 / NumLeafs

Next i

End Sub