Selecting Autoshapes in Excel 2003

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Varne - 22 May 2008 18:10 GMT

Hello!

If we select an autoshape object in Excel 2003 for instance a rectangle on
sheet1 something like 'Activesheet.Shapes("Rectangle 6").Select will get
written on Visual Basic coding sheets. The problem to me is this code would
not work if that rectangle was replaced with an other one because the new one
will be "Rectangle7".

Can an expert help me on this?

Thanks.

Varne M

Reply to this Message

L. Howard Kittle - 22 May 2008 18:42 GMT

Hi Varne,

Not an expert but this may help. I entered several rectangles on a sheet
and then named then, Rec1, Rec2, Rec3 etc.

Then I made a list in an unused column of the Rec's. In a adjacent cell I
made a drop down using the list of Rec's as source. Select a Rec in F1 and
run this macro and it should select that Rec.

Sub ShapeSelect()
Dim i As Variant
i = Range("F1").Value
ActiveSheet.Shapes(i).Select
End Sub

HTH
Regards
Howard

> Hello!
>
[quoted text clipped - 11 lines]
>
> Varne M

Reply to this Message

Varne - 24 May 2008 13:53 GMT

Hi Howard

That is enough.

Thank you.

M varnendra

> Hi Varne,
>
[quoted text clipped - 30 lines]
> >
> > Varne M

Reply to this Message