Shape.SetRotationCenter

Sub SetRotationCenter(x As Double, y As Double)

Member of Shape

The SetRotationCenter method specifies both the horizontal and veritcal position of the center of rotation for a shape.

See also RotationCenterX and RotationCenterY properties


Parameters	Description
x	Defines the x-coordinate of the center of rotation
y	Defines the y-coordinate of the center of rotation

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 
 Set s = Nothing 
 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.SetRotationCenter 4, 5.5 
  Else 
   s.Duplicate 
 End If 
  s.Fill.ApplyUniformFill pal.Color(Rnd() * NumColors + 1) 
  s.Rotate 360 / NumLeafs 
 Next i 
End Sub