Shape.RotateEx

Sub RotateEx(Angle As Double, CenterX As Double, CenterY As Double)

Member of Shape

The RotateEx method rotates a shape around a specified center of rotation.


Parameters	Description
Angle	Sets the angle measurement, in degrees, in which the shape is rotated
CenterX	Sets the x-coordinate for the center of rotation
CenterY	Sets the y- for 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.RotationCenterX = 4 
   s.RotationCenterY = 5.5 
  Else 
   s.Duplicate 
  End If 
  s.Fill.ApplyUniformFill pal.Color(Rnd() * NumColors + 1) 
  s.RotateEx 360 / NumLeafs, ActivePage.SizeHeight / 2, 
ActivePage.SizeWidth / 2 
 Next i 
End Sub