点选的群组对象为何是cdrSelectionShape,不是cdrGroupShape

Sub test()
Dim x As Double, y As Double
Dim s1 As Shape
Dim shif As Long
ActiveDocument.GetUserClick x, y, shif, 10, False, cdrCursorPick
Set s1 = ActiveDocument.ActivePage.SelectShapesAtPoint(x, y, True)
MsgBox s1.Type
End Sub
运行此程序后，选择一个群组对象。Type类型为8（cdrSelectionShape）。怎么不是cdrGroupshape。如何转变为cdrSelectionShape类型。