I make a group with the following code and the group created but CorelDraw shows that selected shape is shape1. How can I change the active selection to sGroup and next step to duplicate the whole group?
Dim sr As New ShapeRange Dim sGroup As Shape sr.Add shape1 sr.Add shape2 sr.Add shape3 sr.Add shape4 sr.Add shape5 sr.Add shape6 Set sGroup = sr.Group
try to add lines
sGroup.CreateSelectionsGroup.Duplicate x, y
X Specifies the horizontal distance to offset the duplicated shape. This parameter is optional, and its default value is 0.
Y Specifies the vertical distance to offset the duplicated shape. This parameter is optional, and its default value is 0