求实例，熟悉【CorelDraw VBA】的朋友请帮下忙

[wmkandyk12374]

请问如果将所选的图形“焊接”在一起，图形的个数不一定！选到多少就“焊接”多个个为一个。
我自己写了段代码，但是老是有错误提示！希望有会的朋友帮忙看一下代码或是给一个正确的实例，谢谢。
这是我写的代码（不正确的）：

    Dim OrigSelection As ShapeRange
    Set OrigSelection = ActiveSelectionRange
    Dim iCount As Long
    Dim i As Long
    iCount = OrigSelection(2).Shapes.Count
    ReDim c(1 To iCount) As Shape
    Set c(1) = OrigSelection(2).Shapes.Item(1).Weld(OrigSelection(2).Shapes.Item(iCount), True, True)
    For i = 2 To iCount Step 1
    Set c(i) = OrigSelection(2).Shapes(c(i)).Weld(c(i - 1), True, False) '错误提示：类型不匹配，我看了Weld方法，返回的是Shape，但就是提示类型不匹配，
    Next i

[bcrun]

"我看了Weld方法，返回的是Shape",你这句指的是看的文档吧，建议返回到一个variant变量，然后在那处中断，查看一下返回的实际类型。

[wmkandyk12374]

还是没解决，使用variant得到的是一个IDrawShape和一个Nothing，但是我用OrigSelection(2).Shapes.Count输出得到的图形个数，明明就可以得到正确的数值，但是在循环里面就变成了Nothing，到现在还是没想到解决办法！ 不过版主说的使用variant变量，倒是解决了另一个问题，一个函数的参数有固定的几种类型，并且是用一些单词组成。我把这个参数设置为变量（String），但提示这些单词不可以是String，但是用变体就可以，还是很感谢的！

[bcrun]

因为对CorelDraw VBA了解太少，不太好推测。主要是依我开发OFFICE VBA及插件时接触到的类似问题，提供一些经验供参考：）