Shapes.Range(Array(...))

We start with some Excel 2007 VBA to draw a shape of several parts, and to group those parts. Somewhat condensed for legibility, the code so far looks like:

Please Login or Register  to view this content.

So far, so good.

Then

Please Login or Register  to view this content.

That works fine (even if I can't explain why it has a lower-case "s" on "shapes"). But then I run the code again and Excel reports
> Run-time error '1004':
> Grouping is disabled for the selected shapes.

My guess is that Excel 2007 is attempting to group the first-made items with names "Part1" and "Part2", which are already part of a group. Hence the failure.

Please, is it possible to specify the Shapes.Range(Array(...)) using the shape pointers (sh1 and sh2) rather than the names?

Thank you.

You're probably right, can't name multiple shapes the same thing. Do you need to? Maybe:

Please Login or Register  to view this content.

I just tried it and it worked. What is failing for you?

Yes, of course. My version creates another grouped set on top of the first, but move them out of the way and you'll see the new ones. This is an example, by NOT naming them, the macro will continue to work because it is attaching the sh1 and sh2 variable to the randomly named shapes as they are created, so it should work every time.

You just need to work out the rest of the undisclosed parameters... my macro shows a full example, yours did not.

Originally Posted by jdaw1_SG

Does it work for you if you run it a second time?

Are you running the whole code twice (i.e. recreating shapes each time), or just the group bit?

You're completely ignoring my suggestion as a whole. I set the sh1 and sh2 variables at the same moment the variables were created, so VBA already knows what they're called. So there is no need to "name" them at all, which appears to be what you are still struggling with.

Anyway, my approach works, but if you've got your own, that's good, too.

If that takes care of your need, please click EDIT in your original post, click GO ADVANCED and set the PREFIX box to SOLVED.

Yes, since it returns a Shape object too.