If I have a simple rectangle drawn, how would I modify it's width, from 200 pixels to 400 pixels?

Also, how do I detect what excel has "named" the rectangle so I can used it in the code above? For example, if I was to start recording a macro and than select a chart, I can see VB generate the following code: 
    ActiveSheet.ChartObjects("Chart 2").Activate
If I do the same thing and select the rectangle, no code is generated.........

Thank you