Maybe...

Sheet1.OLEObjects("Image1").Object.Picture _
= LoadPicture("\\WIN2K3\IMAGES\8000\8029.JPG")

End Sub

Rupesh wrote:

I am trying to add image based on the parameters. but it gives me error

automation error / unspecified error

-2147467259(80004005)

following is my code (tring to run hardcoded image file)

Sub Addimage()
Sheet1.Image1.Picture = Nothing
Sheet1.Image1.Picture = LoadPicture("\\WIN2K3\IMAGES\8000\8029.JPG")

End Sub

Request Pls help ASAP

Thankyou

--

Dave Peterson