Shape.RotationCenterX

Property RotationCenterX As Double

Member of Shape

The RotationCenterX returns or sets the x-coordinate of the center of rotation for a shape.

The following code 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.cpl") 
 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