Previous Document Next Document

Object Model Reference : Classes : S : Shape : Properties : Shape.RotationCenterX


Shape.RotationCenterX

Property RotationCenterX As Double

Description

Member of Shape

The RotationCenterX returns or specifies the x-coordinate of the center of rotation for a shape.

 
See also the Shape.SetRotationCenter method.
VBA example

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
 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

Previous Document Next Document Back to Top

Copyright 2013 Corel Corporation. All rights reserved.