Shape в группе. Как понять в VBA, что выделена не просто группа, но и Shape (объект на группе)?

[DBEER]

Выделяю группу (сгруппированы Shap'ы и надписи) щелчком.
По периметру высвечиваются 8 белых кружочков.
Все хорошо. Я в VB работаю, как с группой и надо мне сделать Ungroup.
И работает.
А вот если сгоряча щелкнуть дважды (в руке дрогнул пистолет),
то выделяется не просто группа, а еще и её элемент (он обрамляется своими ручками управления - серыми кружочками).
И вот в этом случае при попытке Ungroup получаю:
Run-time error...
Данный компонент недоступен на объекте из группы.
Как распознать ету ситуацию в VBA (Word 2003)?

[Казанский]

Я попробовал выделить группу и ее элемент - получается, что объект Selection в этом случае ссылается на элемент и не несет информации о группе, хотя на экране группа тоже выделена.
Различить тип выделения можно так

Sub ff()
  If TypeName(Selection) = "GroupObject" Then
    Selection.Ungroup
  Else
    MsgBox "дрогнул пистолет - выделите группу"
  End If
End Sub

Так в 2010.

[DBEER]

Спасибо, Казанский! Туда-то я и не поглядел.
Буду рыться.

[DBEER]

в случае выделения объекта на группе:

? TypeName(Selection.ShapeRange)
ShapeRange
? TypeName(Selection)
Selection

в случае выделения группы целиком - то же самое.
Даже приведенная в ответе конструкция не выдает "GroupObject"

[Вождь]

Если выбрана группа, то:
Selection.ShapeRange - собственно группа
Selection.ChildShapeRange - выбранные элементы группы (их может быть несколько, а может и не быть - выбрана только группа).

[DBEER]

Спасибо, Вождь!!
Вектор подсказал мне. ВОт что я изобразил для перехода от дочернего объекта к группе целиком:

'Переход от дочернего объекта к группе
Sub Fr_ChildToParent()
On Error GoTo ExErr
    If Selection.ChildShapeRange.Type = msoShapeTypeMixed Then
        Set oSel = Selection.ChildShapeRange(1).ParentGroup
        Selection.Collapse
        oSel.Select
    End If
ExErr:
End Sub

[Вождь]

Сообщение от DBEER

...для перехода от дочернего объекта к группе целиком...

Работает, но не всегда. Попробуйте ваш макрос:
1. На файлах Doc и Docx - удивитесь
2. На вложенных группах - группа в группе.
2. На объектах Shape и InLineShape.

[DBEER]

Вождь, приветствую тебя, хау!!
Перечисленные тобой экзо-ситуации не критичны для моего случая.
Речь идет о конкретной группе (типовой элемент узкоспецифичного документа) и в конкретной среде - только *.doc, а кто не спрятался - я не виноват.
Т.ч., всё равно, спасибо!!