求教VBA代码 如何写群组？

sxppx

Dim s1，s2，s3，s4 As Shape

' 矩形内元素智能群组
Set s1 = ActivePage.SelectShapesFromRectangle(**, **, **, **, False)
s1.Shapes.All.Group

' 矩形内元素智能群组
Set s2 = ActivePage.SelectShapesFromRectangle(**, **, **, **, False)
s2.Shapes.All.Group

' 矩形内元素智能群组
Set s3 = ActivePage.SelectShapesFromRectangle(**, **, **, **, False)
s3.Shapes.All.Group

' 矩形内元素智能群组
Set s4 = ActivePage.SelectShapesFromRectangle(**, **, **, **, False)
s4.Shapes.All.Group


请教大佬， 如何写VBA代码把四个矩形范围智能群组的对象， 再次群组为一个对象？

sxppx

自己搞定了， 麻烦群组删帖吧，感谢论坛提供求教平台