Application.CreateShapeRange

Function CreateShapeRange() As ShapeRange

The CreateShapeRange creates an empty ShapeRange object.

The following code 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