Shape.Rotate method - Developer Area

API Documentation > CorelDRAW > 2021 > Shape > IVGShape

Shape.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 the number of degrees to rotate the shape

Remarks:

The Rotate method rotates a shape. The center of rotation is specified by the Shape.RotationCenterX and Shape.RotationCenterY properties of the shape.

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

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