ShapeRange.RotationCenterY property - Developer Area

API Documentation > CorelDRAW > 2022-v24.1 > ShapeRange > IVGShapeRange

ShapeRange.RotationCenterY property

Gets or sets the vertical center of rotation (Y) for the shape range 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 for the center of rotation for a shape range.

See also the ShapeRange.SetRotationCenter method.

Examples:

The following VBA example creates a "flower" by duplicating circles. It then creates a larger flower by duplicating this group of six circles five more times to form six petals of different colors.

Sub Test()
  Dim n As Long
  Dim sr As New ShapeRange, sr1 As ShapeRange
  Dim s As Shape
  Set s = ActiveLayer.CreateEllipse2(0, 0, 0.5)
  s.RotationCenterX = 1
  s.RotationCenterY = 1
  For n = 1 To 5
    sr.Add s.Duplicate
    s.Rotate 60
  Next n
  sr.Add s
  sr.ApplyUniformFill CreateRGBColor(255, 0, 0)
  sr.RotationCenterX = ActivePage.SizeWidth / 2
  sr.RotationCenterY = ActivePage.SizeHeight / 2
  For n = 0 To 4
    Set sr1 = sr.Duplicate
    sr1.ApplyUniformFill CreateRGBColor(255, 255 * (1 - n / 5), 0)
    sr.Rotate 60
  Next n
End Sub

Version Information:

CorelDRAW:	X7.4, X7, X7.6, X8, 2017, 2018, 2019, 2019.2, 2020, 2021, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25
Corel DESIGNER:	X7, 2017.1, 20.1, 2019.2, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25