Доступ к фигурам в группе индивидуально ИМЯ в Excel VBA

Question

Я вручную сгруппировал некоторые элементы в excel, чтобы упростить настройку некоторых элементов. Также я подумал, что некоторые вещи будут проще в VBA, но мне также нужно пройти по всем этим фигурам в группе, используя их имя, так как после группировки с использованием индексов они не будут работать, поскольку они не в нужном порядке.

Я использовал следующие вещи:

'Does not work
Sheet1.Shapes("Group1").GroupItems("Shape1").Top

'Works but not the wanted solution as they are unsorted.
Sheet1.Shapes("Group1").GroupItems(1).Top

Есть ли способ получить доступ к фигурам, которые находятся в группе индивидуально ИМЯ ?

Answer 1

Вы можете сделать это так, но не уверены, что можете напрямую получить доступ к имени.

Sub x()

Dim s1 As Shape
Dim s2 As Shape

For Each s1 In ActiveSheet.Shapes
    If s1.Type = msoGroup Then
        For Each s2 In s1.GroupItems
            If s2.Name = "Shape1" Then MsgBox s2.Top
        Next s2
    End If
Next s1

End Sub