ShapeRange.Add

Sub Add(Shape As Shape)

The Add method adds a specified shape to a range.


Parameters	Description
Shape	Specifies the shape object to be added

The following code example creates a registration mark consisting of a circle and two lines, groups the objects, and then moves them to the center of the page:

Sub Test() 
 Dim sGroup As Shape 
 Dim sr As New ShapeRange 
 sr.Add ActiveLayer.CreateEllipse2(0, 0, 0.25) 
 sr.Add ActiveLayer.CreateLineSegment(-0.5, 0, 0.5, 0) 
 sr.Add ActiveLayer.CreateLineSegment(0, -0.5, 0, 0.5) 
 sr.SetOutlineProperties 0.03 
 Set sGroup = sr.Group 
 sGroup.Move ActivePage.SizeWidth / 2, ActivePage.SizeHeight / 2 
End Sub