Группировка

[hata77]

подскажите как с помошью VBA групировать shapes

[EducatedFool]

Включите запись макросов, и сгруппируйте несколько фигур (shapes)
Получите готовый макрос.

[hata77]

не, не катит
у меня получилось программно выделить все элементы и сгруппировать их
но после этого все объекты остались выделенными. Вопрос : как снять выделение ?
делаю так
Private Sub CommandButton1_Click()
buttom_flag = buttom_flag + 1
Shapes.SelectAll
If buttom_flag = 1 Then
Selection.Group
End If
End Sub

[EducatedFool]

Вот так будет работать без выделения фигур:

Sub test()
    On Error Resume Next
    ActiveSheet.DrawingObjects.Group
End Sub