Что вы имеете в виду под «взглянуть на них»?
Вопрос можно интерпретировать по-разному.
Самый простой - открыть проводник рисования. Он покажет вам структуру вашего рисунка, включая группы и подфигуры. https://support.microsoft.com/en-us/office/edit-your-drawing-using-the-drawing-explorer-window-81502ef3-6cac-423e-b4f1-1c19a5126e70?ui=en-us&rs=en-us&ad=us
Возможно, вам нужна форма, в которой вы отображаете группы чертежа. Тогда вам нужно будет их идентифицировать. Самый простой способ - перебрать все формы чертежа и проверить, есть ли у них подфигуры.
Sub find_groups()
Dim shp As Shape
For Each shp In ActivePage.Shapes
If shp.Shapes.Count > 0 Then
Debug.Print shp.ID; " is a group"
Else
Debug.Print shp.ID; " is not a group"
End If
Next shp
End Sub
Или, может быть, вам нужен отчет о группах, тогда вам нужно сначала пометить их как группы с помощью поле, которое вы заполняете чем-то вроде приведенного выше кода.
... так много интерпретаций.