Excel VBA give a name for a Group of shapes.

[countryfan_nt]

Hello friends, hope all is well!

please help me with the code below, I wish to name the Grouped shapes "Group1" please.
because everytime I run the code, I get a different name.

Thank you very much!

Sub GroupShapes(tp As Boolean)
Dim ws As Worksheet
If tp Then
    Set ws = Sheets("fshap")
    ws.Activate
    ws.Shapes.SelectAll
    Selection.Group
    Selection.ShapeRange.IncrementRotation 180
    DoEvents
    ws.Shapes(1).IncrementRotation 180
End If
End Sub

 

[RoryA]

You could use:

ws.shapes.selectall
selection.shaperange.group.name = "Group1"

 

[Skyybot]

Looks like you're calling this sub from another sub so I'm not sure if this is going to work, but try this:

Sub GroupShapes(tp As Boolean)
Dim ws As Worksheet
If tp Then
    Set ws = Sheets("fshap")
    ws.Activate
    ws.Shapes.SelectAll
    Selection.Name = "Group1"
    Selection.ShapeRange.IncrementRotation 180
    DoEvents
    ws.Shapes(1).IncrementRotation 180
End If
End Sub

 

[Skyybot]

Looks like you're calling this sub from another sub so I'm not sure if this is going to work, but try this:

Sub GroupShapes(tp As Boolean)
Dim ws As Worksheet
If tp Then
    Set ws = Sheets("fshap")
    ws.Activate
    ws.Shapes.SelectAll
    Selection.Name = "Group1"
    Selection.ShapeRange.IncrementRotation 180
    DoEvents
    ws.Shapes(1).IncrementRotation 180
End If
End Sub

Sorry. It's early still here. Looks like I forgot the rest of the line with .Name but it also looks like @RoryA beat me to it.

 

[countryfan_nt]

thank you so much! Very nice, but now I am getting the following error:

Error 438 – Object Doesn’t Support Property or Method​

 

[Skyybot]

thank you so much! Very nice, but now I am getting the following error:

Error 438 – Object Doesn’t Support Property or Method​

Did you try @RoryA solution?

 

[countryfan_nt]

Hello again
it works now, I did RoryA suggested, but had to make a little tweaking. thank you so much to all of you!

Sub GroupShapes(tp As Boolean)
Dim ws As Worksheet
If tp Then
    Set ws = Sheets("fshap")
    ws.Activate
    ws.Shapes.SelectAll
    Selection.Group
    Selection.ShapeRange.IncrementRotation 180
    DoEvents
    ws.Shapes(1).IncrementRotation 180

ws.Shapes.SelectAll
    Selection.ShapeRange.Name = "Group1"
    Selection.Name = "Group1"
End If


End Sub