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

Posted by obzor under Basic, VBA, Софт

Выделяю группу (сгруппированы 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.

тема на форуме

Похожие статьи

• Макрос пакетной конвертации docx в doc
• Как запретить Юзеру лезть в колонтитулы?
• Как убрать висячие предлоги в Word?
• Слияние для нескольких строк (VBA)
• Выделение цветом нескольких фрагментов текста