Insert Image in an sheet

[Rupesh]

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]

Maybe...

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

End Sub

 

[Rupesh]

what i see problem as when we type
sheet1.image1. (then automatically dropdown of the related properties is
not coming & there may be some problem

Pls help
Rupesh

 

[Joel]

One of your problems with your code is you are setting image1 to nothing when
they is no image. You can test if newpict below is set to nothing after the
insert instruction below.

Sub Addimage()

Set newpict = Sheets("Sheet1").Pictures.Insert _
("\\WIN2K3\IMAGES\8000\8029.JPG")

End Sub

 

[Rupesh]

dear Joel
Thanks for reply.

However

image1 is already there as an =EMBED("Forms.Image.1","")

every time my macro resets its to nothing first & then adds an image based
on the user input.

I have used this earlier (may be on differnt machine) but today it gives me
an error

As i already mentioned auto dropdown when typing image1. is not coming
(may be that is creating problem )

thanks

 

[Dave Peterson]

Drop that "Sheet1.Image1.Picture = Nothing" line.

Then use a variable to represent the image.

Dim myImage As Image
Set myImage = Sheet1.Image1
myImage. and you should see the intellisense helping you.

 

[Joel]

You r picture may not be image one. to make sure you get rid of all pictures
no matter what they are called you can use the following

Sub delete_picture()

For Each pict In ActiveSheet.Shapes
If pict.Type = msoPicture Then
pict.Delete
End If
Next pict

End Sub

 

[Rupesh]

it worked fine for intellisense, but still facing same problem

myImage.Picture = LoadPicture("c:\rupesh\8022.JPG")

gives me automation error - unspecified error.

is it somthing to do with my Excel installation ? is somthing missing. I
have used this earlier also on different machine, long ago.

need to solve this ASAP

please help

 

[Joel]

I suspect yo don't have an image1 object in your worksheet any more. You may
of deleted the object or while you were debugging your problems created an
image2. You may need to add the picture as a new object

Set newpict = Sheets("Sheet1").Pictures.Insert _
("\\WIN2K3\IMAGES\8000\8029.JPG")

or

Set image1 = Sheets("Sheet1").Pictures.Insert _
("\\WIN2K3\IMAGES\8000\8029.JPG")

 

[Rupesh]

Image1 object is there on the shee1 .i sent this file to one of my frien & it
worked without any error on his machine.

it is giving me problem here.

 

[Joel]

May be you don't have permission to read the file. try adding this code

FName = Dir ("\\WIN2K3\IMAGES\8000\8029.JPG")
if FName = "" then
msgbox("Cannot Find file")
exit sub
end if

 

[Rupesh]

Instead of using image control i have now used

ActiveSheet.Pictures.Insert

and its working fine. only i need to adjust image size every time in proper
format.

Thanks a lot for all your help.

 

[Joel]

I always set a variable to any object that I add so I can easily add
properties to the object and make the code easier to read. like

Set newpict = Sheets("Sheet1").Pictures.Insert _
("\\WIN2K3\IMAGES\8000\8029.JPG
newpict.left = 12
newpict.top = 5

 

[Dave Peterson]

Did you try this suggestion:

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