VB code to insert picture when email picture not in excel

Hi T_BOLT

Please explain what it is your trying to do. For example, do you want the Image in the Email Body? Are you Emailing from Outlook through Excel? More information please.

No image in the email body and not email from within Excel. Just an excel file that could be emailed if needed and the pictures be in the excel file.

I am wanting a excel file with a button were a person can click on that button and it insert a picture by browsing their PC for the picture file and put that picture in at a cell and resize it and see the picture, preferable not embedded as and icon. Then they can press the button again and insert another picture and place it in the work sheet. Then once all the pictures are in the worksheet be able to email the saved excel file and have the picture still in the worksheet. It appears that what it is doing is inserting a link to the picture on the local computer.

The co-works seem to have a hard time doing this thru the Excel menu because they cant seem place the picture at a certain spot in the worksheet for the picture, meaning the pictures are all over the worksheet, instead of below the other etc. Also the people have a hard time when they insert the picture and it is 1200 X 1200 pixels they cant seem to resize it to a smaller size yet really maintain the actual resolution of the picture in the worksheet.

I would like also to on a different worksheet tab basically do the same with a pdf file. If I can get the code for the picture I think I could modify it for the pdf file. The worksheet might have 4 pictures and 1 pdf file one time the next time it may have 6 pictures and 2 pdf files.

If the above is not possible with 2010 If I could get code to insert "object" by the means of Insert Object > Create From File > Browse and the Link to File or Display as Icon unchecked that will work. I have found code that will just bring up the inset object dialog box but cant get code to bring up the browse window to allow you to browse the PC for the file you want to insert.

If either way can work, it would be very helpful for co-workers that have a hard time in inserting pictures in excel and have them paced in the worksheet in an orderly fashion and resized so the a small part of the inserted picture will not fill the complete computer screen of worksheet .

Thanks in advance for any possible help. Hope this helps in what I am trying to accomplish.

The code works great but if you save the Excel file and then you email the excel file the pictures are not in the worksheet there just an empty box with "The linked image cannot be displayed. The file may have been moved, renamed, or deleted. Verify that the link points to the correct file and location." in the empty box.
It shows the same thing on the computer if I save the excel file and if I then delete the picture and then reopen the Excel file the pictures are gone.

Maybe the insert Object is a better approach if I could get it to where the Browse PC for the file to come up, at least that way the picture is embedded and easly clicked on the move around the work sheet. They would just have to double click to see the actual picture.

Hi,

I suggest (albeit after a very rapid read of your post) that you look at the Ron de Bruin website and in particular the email with envelope option, emailing spreadsheet pages with images is a problem but Ron's code seems to handle it reasonably well