Accessing groups in sheet

[MBjorn]

Hi there,

I have a sheet with a number of groupes of shapes.

Is there a way to loop though all groups in a sheet/work book, like there is for say, checkboxes etc?

I'm am thinking like this:

for each group in WorkSheet.Groups
' ...
next group

This does not seem to work though.
Help much appreciated

 

[Comfy]

This will loop through all checkboxes on a particular sheet.

Dim cBox As Checkbox

For Each cBox in Worksheets("Sheet1").DrawingObjects
'Some Code
Next

 

[MBjorn]

I want to look through the groups, I used checkboxes as an example, because I know ti can be done for checkboxes

 

[Comfy]

Ah Yes, apologies.

 

[Comfy]

As I understand it grouping shapes basically makes them one shape so looping through those should work?

For Each sh In Worksheets("Sheet1").Shapes
'Code
Next

 

[MBjorn]

Thank you for your answer
Got it working with that and naming conventions

 

[MBjorn]

can you then loop through the objects inside a group, or will you have to ungroup first?

 

[Comfy]

Looking through the Locals of a grouped shape I can't see anything that might help.

As you say you would probably need to ungroup them first.

 

[Jon von der Heyden]

This example shows how to loop through the shapes in the first group in Sheet1. If these were say checkboxes then each checkbox value will be changed to True.

Sub Demo()
    Dim srng As ShapeRange
    Dim shp As Shape
    
    Set srng = Sheet1.Shapes.Range(1)
    
    For Each shp In srng.GroupItems
        Debug.Print shp.Name
        shp.OLEFormat.Object.Value = True
    Next shp
End Sub

 

[Comfy]

Awesome