Разгруппировать кнопки (фигуры) с помощью VBA

Question

Я использую следующий VBA, чтобы вставить два buttons в свой лист Excel и сгруппировать их вместе:

    Sub Insert_Buttons()

    Sheet1.Select
    Dim Button_01 As Button
    Set Button_01 = Sheet1.Buttons.Add(423.75, 0, 48, 15)
    Dim Range_Button_01 As Range
    Set Range_Button_01 = Sheet1.Range("B6:D7")
    Button_01.Name = "Button_01"
    With Button_01
    .Top = 30
    .Left = 76
    .Width = 50
    .Height = 20
    .Text = "Button_01"
    End With

    Sheet1.Select
    Dim Button_02 As Button
    Set Button_02 = Sheet1.Buttons.Add(423.75, 0, 48, 15)
    Dim Range_Button_02 As Range
    Set Range_Button_02 = Sheet1.Range("B6:D7")
    Button_02.Name = "Button_02"
    With Button_02
    .Top = 5
    .Left = 76
    .Width = 50
    .Height = 10
    .Text = "Button_02"

    Sheet1.Shapes.Range(Array("Button_01", "Button_02")).Group

    End Sub

Все это прекрасно работает.

---

Однако теперь яЯ хочу использовать другой VBA для разгруппирования buttons, который я вставил с вышеуказанным VBA.Поэтому я попытался пойти со следующим:

Sub Ungroup_Buttons()
Sheet1.Shapes.Range(Array("Button_01", "Button_02")).Ungroup
End Sub

Однако с этим VBA я получаю runtime error 1004.
Что мне нужно изменить в моем коде, чтобы я мог разгруппировать кнопки?

Answer 1

Возможно, попробуйте:

Sub Ungroup_Buttons()

Set ButtonList = Sheet1.Shapes.Range(Array("Button_01", "Button_02")).Group

ButtonList.Name= "ListToUnGroup"

Sheet1.Shapes.Range("ListToUnGroup").Ungroup


End Sub