How can I select all shapes using their names and aligh them?

I am having some difficulty grabbing a group of shapes to later align them and group them.

Here are some of the approaches taken.
1. A loop adds shape names to array. Then later I want to select them for alignment using this line...

HTML Code: 

This did not work.
2. Add shape names to array and comma delimit them for selection

HTML Code: 

This also did not work.

The recorded macro that did the trick I need looks like this,

HTML Code: 

I want to achieve the same results using a programmable array range.

Any help is greatly appreciated. I have been fighting with this for two days. Thanks.

When you say 'grabbing', do you mean you want to select the shapes with the mouse and then have VBA do something to the group you selected? Or will everything be in the macro?

Are the shapes drawn manually, or in VBA?

I want to select the shapes with the mouse and then have VBA do something to the group you selected with a macro.

All shapes drawn using VBA

The code you show works fine, but as you've already selected what you want, leave the first line out. I've added a check that something relevant is selected first to prevent error messages if no shapes are selected.

Please Login or Register  to view this content.