Object selection VBA code amendment needed if shape is not on active sheet

[kelly mort]

I am using this code to create a shape on a sheet defined here as sh.

sh.Shapes.AddShape(msoShapeRectangle, 10, 15, 650, 800).Select

There is no problem with the above line for now since I don’t get any errors.

Then I wanted to manipulate the shape so I did:

Selection.ShapeRange.Line.Visible = msoFalse

And if the sh is not the active sheet, I get an error message object doesn’t support this………….

How do I fix that please?

Because I get same error on this block too when I comment out the previous line:

With Selection.ShapeRange.Fill


End With

 

[RoryA]

Why are you using Selection at all? The AddShape method returns a reference to the created Shape, so store that in a variable and use it directly.

 

[kelly mort]

@RoryA
How do I store it to the variable?

 

[RoryA]

Something like:

Dim theShape as Shape
Set theShape = sh.Shapes.AddShape(msoShapeRectangle, 10, 15, 650, 800)

then use theShape wherever you need it.

 

[kelly mort]

Something like:

Dim theShape as Shape
Set theShape = sh.Shapes.AddShape(msoShapeRectangle, 10, 15, 650, 800)

then use theShape wherever you need it.

That’s amazing. Problem solved

Thanks