Hi,

I have a group that is copied several times on a spreadsheet, the group
contains several shapes (shapea, shapeb, shapec and shaped) when the user
clicks the group I would like, ask which shape to bring to front of that
group, so far I have tried

groupname = Application.Caller
whichshape= Application.InputBox ("Which Shape")

msgbox (groupname )

But the groupname displays the actual underlining shape not the group, is it
possible to get the actual group name?

Thanks!

This should get you started.

Sub test()
Dim myShape As Shape
Dim myShape1 As Shape

For Each myShape In ActiveSheet.Shapes
Debug.Print myShape.Name
Debug.Print myShape.GroupItems.Count
For Each myShape1 In myShape.GroupItems
Debug.Print myShape1.Name
Next myShape1

Next myShape

End Sub


HTH,
Barb Reinhardt

"Excel User" wrote:

Hi,

I have a group that is copied several times on a spreadsheet, the group
contains several shapes (shapea, shapeb, shapec and shaped) when the user
clicks the group I would like, ask which shape to bring to front of that
group, so far I have tried

groupname = Application.Caller
whichshape= Application.InputBox ("Which Shape")

msgbox (groupname )

But the groupname displays the actual underlining shape not the group, is it
possible to get the actual group name?

Thanks!

Barb,

Thanks for your reply, I still do not seem to get this working, the
myShape.Name gives the name of the object within the group - how can I get
the group name?

Thanks

"Barb Reinhardt" wrote in message
...
This should get you started.

Sub test()
Dim myShape As Shape
Dim myShape1 As Shape

For Each myShape In ActiveSheet.Shapes
Debug.Print myShape.Name
Debug.Print myShape.GroupItems.Count
For Each myShape1 In myShape.GroupItems
Debug.Print myShape1.Name
Next myShape1

Next myShape

End Sub


HTH,
Barb Reinhardt

"Excel User" wrote:

Hi,

I have a group that is copied several times on a spreadsheet, the group
contains several shapes (shapea, shapeb, shapec and shaped) when the user
clicks the group I would like, ask which shape to bring to front of that
group, so far I have tried

groupname = Application.Caller
whichshape= Application.InputBox ("Which Shape")

msgbox (groupname )

But the groupname displays the actual underlining shape not the group, is
it
possible to get the actual group name?

Thanks!

Hi,

Have you tried this ?

MsgBox Sheet1.Shapes(Application.Caller).ParentGroup.Name




"Excel User" a écrit dans le message de groupe de discussion :
...
Hi,

I have a group that is copied several times on a spreadsheet, the group
contains several shapes (shapea, shapeb, shapec and shaped) when the user
clicks the group I would like, ask which shape to bring to front of that
group, so far I have tried

groupname = Application.Caller
whichshape= Application.InputBox ("Which Shape")

msgbox (groupname )

But the groupname displays the actual underlining shape not the group, is it
possible to get the actual group name?

Thanks!

Mich,

I have tried this but get an error message:

Run-time error
The item with the specified name wasn't found.

any ideas?

"MichDenis" wrote in message
...
Hi,

Have you tried this ?

MsgBox Sheet1.Shapes(Application.Caller).ParentGroup.Name




"Excel User" a écrit dans le message de groupe de
discussion :
...
Hi,

I have a group that is copied several times on a spreadsheet, the group
contains several shapes (shapea, shapeb, shapec and shaped) when the user
clicks the group I would like, ask which shape to bring to front of that
group, so far I have tried

groupname = Application.Caller
whichshape= Application.InputBox ("Which Shape")

msgbox (groupname )

But the groupname displays the actual underlining shape not the group, is
it
possible to get the actual group name?

Thanks!