API Documentation > CorelDRAW > 2025-v26 > Shape > IVGShape
Shape.RotationCenterY property
Returns or sets the vertical center of rotation (Y) for the shape on the page
Syntax:
Property Get RotationCenterY() As Double
Property Let RotationCenterY(ByVal Value As Double)
Remarks:
The RotationCenterY returns or specifies the y-coordinate of the center of rotation for a shape. See also the Shape.SetRotationCenter method.
Examples:
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