Macros 如何在coerl draw宏中对某些形状进行分组？

我使用for循环在coreldraw宏中创建了一些形状：

Dim i, j As Double
    j = 1
    Dim t() As Shape
    For i = 1.575 To s4height - 1.575 Step 1.575
        ReDim t(j)
        Set t(j) = s5.Duplicate
        t(j).Move 0, i
        j = j + 1
    Next i

现在我想将s5形状和所有形状分组到t（）数组中 我很感激任何人的想法分享

答案就在这里 您应该创建一个新的ShapeRange，然后将您的形状添加到其中，并在其中创建一个形状和组ShapeRange 例如：

Dim OrigSelection As New ShapeRange
OrigSelection.Add s5
Dim gp1 As Shape
Set gp1 = OrigSelection.Group