Automatically bringing a Shape into a Cell Using Shape Code

Hi Guys,

I am preparing a Bar Bending Schedule sheet. I have shape codes and each shape code for each shape.
I will be entering the shape code in a cell and excel should automatically find the shape and bring the shape in another cell. Check the below image for your reference.

BBS-Sample.jpg

The concept is I have created a lot of shapes and grouped them together. The shape also contains text boxes along with them to contain the respective values. Please find the attached image. In that image the shapes contained in the Cells S4, S5, S6, S7, S8, etc... are the various shapes i created. I have shown a shape by selecting that on the right side in the cells AG:AJ for your reference.

http://www.grantimage.com/out.php/i48860_bbs-sample.jpg

Now what I want is, Check the Column H. Which contains the Shape Code. 200 is the shape code for the shape in Cell S4. That shape contains 3 sides and so three values are required A, B, & C. Those values I have given in I4, J4 & K4. See those values are getting reflected in the shape text boxes S4.

If you consider the Shape code 900 which is in H8 and that shape contains 5 sides and so 5 values are required I8:M8.

Now what I want in macro is, I have created shapes and grouped them separately as Group 1, Group 2, etc... and its shape code will be 200, 201, etc....

Now If I enter 200 in H4 then automatically Group 1 shape should be available in the cell S4. It should resize the row height as per the shapes size. Then I want to link the Text boxes with the concerned values from I4:R4.

Also, if one shape group is repeating all the shape group name should be same. text boxes name should be same.. but the reference to the text box should be different.

any doubt please reply me.

Here I had attached the sample file... What I need exactly is if i enter the shape code in this file it should automatically update the cell in column S

Sample.xlsx

Thanks in advance.

Regards,

Sathish Justin