Excel VBA | Referencing grouped objects, based on Long variable

[Young Grasshopper]

Hi world,

I have a bunch of text boxes grouped together with other objects, and want to write a code that referance the grouped objects trough a long variable.

The grouped objects is named "PreviewGroup1", and have a text box called "HeadlinesPreview" grouped toghether with multiple other stuff.
Let's say I want to make a with statment. I'm trying to do something like this:

Sub Preview()
With ThisWorkbook.Worksheets("CustomerPreview").Shapes("PreviewGroup1")

.Shapes("HeadlinesPreview").TextFrame.Characters.Text = "x"

End with
End

But I only get error messages...
How should this with statment be?

Also;
Let's say i have multiple groups called PreviewGroup1, PreviewGroup2, PreviewGroup3, PreviewGroup4 etc.
would it be possible to referance them trough a Long variable like:

Dim i as Long

For i = 1 to 10
With ThisWorkbook.Worksheets("CustomerPreview").Shapes("PreviewGroup(i)")

This above probobly don't make sense, but hopefully explains somewhat what I'm trying to say.

Would appreciate any help

 

[Domenic]

For the first one, you can use the GroupItems property of the Shape object...

    With ThisWorkbook.Worksheets("CustomerPreview").Shapes("PreviewGroup1")
        .GroupItems("HeadlinesPreview").TextFrame.Characters.Text = "x"
    End With

For your second one . . .

    Dim i As Long
    Dim shp As Shape
    
    For i = 1 To 3
        Set shp = ThisWorkbook.Worksheets("CustomerPreview").Shapes("PreviewGroup" & i)
        'etc
        '
        '
    Next i

. . . where again you can use the GrouptItems property of the Shape object to access your grouped items.

Hope this helps!

 

[Young Grasshopper]

Yes, yes and thank you, sir!
Both works perfect!
Thanks, Domenic

 

[Domenic]

You're very welcome, I'm glad I could help.

Cheers!