Shapes disappear from Excel 2000 to 2003?

I use the following routine to put selected images from the web on a
spreadsheet:

Public Sub Get_Image(wsSheet As Object, strURL As String)
Dim shape As shape

Set shChart = wsSheet.Shapes.AddPicture(strURL, False, True, 200,
100, 600, 400)

For Each shape In wsSheet.Shapes
shape.Placement = xlFreeFloating
shape.Visible = msoTrue
Next

shChart.ScaleWidth 1#, msoTrue, msoScaleFromTopLeft
shChart.ScaleHeight 1#, msoTrue, msoScaleFromTopLeft

Set shChart = Nothing
End Sub

When I call this routine in Excel 2000 (v. 9), no problem, each shape
appears as it should on sheet wsSheet. However, when I run the same
thing in Excel 2003 (v. 11), the shapes are there because I can click
on them and see the selection boxes, but they are not visible on the
page. I added the "shape.visible" line above thinking that would help,
but no joy.

I believe I can right-click the image in Excel 11 and select "Reset"
and then the picture appears. However, "reset" does not seem to be a
method for shapes in Office 2000 (where the development is taking
place).

Any thoughts on how I can get these images to show up programmatically
would be greatly appreciated.

Hi,
works fine for me when I use this to call it...

Get_Image Sheet1, "http://www.footyprogs.fsnet.co.uk/everton.gif"

XL2002/XP...
OJ

On 30 Mar 2005 18:03:13 -0800, "OJ" <[email protected]> wrote:

>Hi,
>works fine for me when I use this to call it...
>
>Get_Image Sheet1, "http://www.footyprogs.fsnet.co.uk/everton.gif"
>
>XL2002/XP...
>OJ

Hi OJ,

Thanks. Your example above worked for me too with XP/Excel 2003. I'm
going to dig into my code and see if I can find a specific URL that
fails.

Thanks again.

Did ya like the picture? ;o)
COME ON YOU TOFFEES!!