Object Model Reference : Classes : A : Application : Methods : Application.CreateShapeRange
|
|
| Object Model Reference : Classes : A : Application : Methods : Application.CreateShapeRange |
Function CreateShapeRange() As ShapeRange
Member of Application
The CreateShapeRange creates an empty ShapeRange object.
The following VBA example creates six red ellipses and then rotates them.
Sub Test() |
Dim n As Long |
Dim sr As ShapeRange |
Dim s As Shape |
Set sr = CreateShapeRange |
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) |
End Sub |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.