Выделение нескольких объектов в группе

не разгруппировывая группу можно выделить лишь один объект - с нажатым Ctrl клацнуть мышкой. При использовании VBA, если я не ошибаюсь, можно выделить произвольное количество объектов внутри группы "набрав" объектов в переменную типа ShapeRange и вызвав метод .CreateSelection

Хорошая тема, кстати, частенько бывает хочу такую штучку...
Ещё хочу регулярно, чтобы один объект с группы можно было сдублировать по быстрому, чтоб он оказался вне группы, и без буфера обмена чтоб - стопудово - удобно было-бы

kuterma2, держи макрос для такого случая

Sub Out_Copy
Dim s As Shape
Dim s1 As Shape
     Set s = ActiveShape
     If Not s Is Nothing Then
         Set s1 = s.ParentGroup
         If Not s1 Is Nothing Then
             Set s = s.Duplicate
             s.OrderFrontOf s1
             s.CreateSelection
         End If
     End If
End Sub