Reference a group of shapes within group

[spacebouncer]

Any idea how I can reference a group of shapes that exist within another group of shapes?

 

[dmt32]

Hi,
for guidance, look at GroupItems property in VBA helpfile.

some sample code which may also help:

Sub GroupedShapes()
    Dim i As Long
    Dim shp As Shape
    
    Set shp = Worksheets(1).Shapes("Group 1")
    For i = 1 To shp.GroupItems.Count
        MsgBox shp.GroupItems.Item(i).Name
    Next
End Sub

Dave

 

[spacebouncer]

Hi Dave, and thanks.

Unfortunately, the items given by GroupItems only return individual items, it won't return groups from within a group. I'm a little worried VBA might not be able to do this...