Run-time error '1004' Unable to get the Insert property of Pictures class

[mancubus]

hi all.

below code works fine at home but gives RTE 1004 when used in the office.

when i copy the image link in the browser's address bar, the image is displayed. and also there is no problem copying the image to a folder via some other code.

is it stg related with internet policy or do i have to reference to a library/application from tools in VBE. or stg else?


[vba]
Sub pixadd()

Dim cll As Range
Dim pth As String
Dim pix As Object

For Each cll In Worksheets("Sheet1").Range("A2:A10")
pth = "http://xxx.com/images/" & cll.Value & ".jpg"
Set pix = Worksheets("Sheet2").Pictures.Insert(pth)
Next

End Sub[/vba]

[IBihy]

Hello,

First of all, I'm using Excel2003, and I have not found a Pictures property, neither within the worksheet object, nor a range object.

[mancubus]

thanks for the reply ibihy.
property is "Insert", and class is "Picture".


ps:
- code works in xl2003.
- but not in xl2007 (when i try with office pc. again no problem with my own pc at home.).

[shrivallabha]

Maybe even this went out of the "window" like application.filesearch. Try it with macro recorder in xl2007, see where it does it go?

[mancubus]

thanks shrivallabha.

recorder produces nothing.

[vba]
Sub Macro1()
'
' Macro1 Macro
'
'
End Sub[/vba]

[shrivallabha]

Not a good sign. Same here. I tried with XL2003 and it does show the code above so probably, this class and method are not available anymore.

Maybe we should wait for expert comment here and it will be better to post on MSDN's social forum to see if there's any workaround for this.

And I hope, you are not serious @ URL above !

[mancubus]

thanks.
but interesting point is, it works in 2007 with home pc.

[mancubus]

and when i copy the url to (insert/picture) "file name:" the image is inserted.

and yes.
not serious about xxx.com. even did not check if it is a valid url.

[mancubus]

one more.

if the path to image is a hdd/server folder, there is no problem with insert property.

this works fine:
[vba]

Sub pixadd()

Dim pth As String
Dim pix As Object

pth = "H:\images\image1.jpg"
Set pix = Worksheets("Sheet2").Pictures.Insert(pth)

End Sub

[/vba]

[shrivallabha]

It stayed at the back of my mind. See here:
http://social.msdn.microsoft.com/For...a-281611e56552