如何在 coreldraw 宏中对某些形状进行分组？

Question

我在带有 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() 数组中的所有形状分组我感谢任何人分享的想法!!!

Answer 1

答案在这里您应该创建一个 New ShapeRange 然后将您的形状添加到其中并创建一个形状并在其中分组 ShapeRange 示例：

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

如何在 coreldraw 宏中对某些形状进行分组？

How to group some shapes in coerl draw macros?

macros

grouping

coreldraw