矩形内组（群组矩形内的所有图形）SelectShapesFromRectangle

在 CorelDRAW 中，可以通过 Page 对象的 SelectShapesFromRectangle 方法选中某个矩形范围内的所有其他形状，选中后得到选中的形状，再执行群组，就实现了矩形内组。
参考代码如下：
Sub testInnerGroup()
Dim sh As Shape, s As Shape
Set s = ActiveShape ' 这是当前选中的矩形（请先在页面中选中）
Set sh = ActivePage.SelectShapesFromRectangle(s.LeftX, s.TopY, s.RightX, s.BottomY, False)
' 将选中的全部形状进行群组
sh.Shapes.All.Group
MsgBox "矩形内组完成！"
End Sub