ShapeRange.Rotate method - Developer Area

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

ShapeRange.Rotate method

Rotates the shape by adding the amount to the current rotation value

Syntax:

Sub Rotate(ByVal Angle As Double)

Parameters:

Name	Type	Description
Angle	Double	Specifies, in degrees, the amount to rotate the shape range

Remarks:

The Rotate method rotates all of shapes in a shape range, treating the group as a single object.

The center of rotation is specified by the RotationCenterX and RotationCenterY properties, while RotateEx allows specifies the center of rotation directly.

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.SetRotationCenter 1, 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.SetRotationCenter ActivePage.SizeWidth / 2, 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