Shape.RotationCenterX

Property RotationCenterX As Double

Member of Shape

The RotationCenterX returns or specifies the x-coordinate of the center of rotation for a 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

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