Embed image as resource and insert into new spreadsheet?

Hello,

If anyone can help me with this problem I would appreciate it.

I am working on macro script that imports header images that are located in the same directory as the spreadsheet. The code for this works.

The problem with this, however, is if someone by mistake removes the image folder, or opens the macro when it is in a compressed zip file, it will obviously not be able to import the images.

Is there a way to add images as resources, like in VB6, in a excel macro? What code would you use to insert the resource into the spreadsheet as an image if so?

Thanks.

Hi macro2014 and welcome to ExcelForum.com

Try the following which may help you. They both seemed to work for me in Excel 2003 on a Vista 32 bit system. Anecdotal evidence suggests that 'Pictures.Insert' may not be successful.

Lewis

Please Login or Register  to view this content.

Thanks for the response.

Is it possible to add the image as a resource or model though inside the macro script, so that I don't have to use sPathAndFileName = ThisWorkbook.Path & "\" & sTestFileNAME to locate / import it? I am trying to make everything in one macro, instead of having external images.

The code I provided was intended to provide a one time permanent import of images at design time, with no links to the original images in the destination Excel file.

I have no experience using the concept of 'resource files' in conjunction with Excel. The only scenario I can think of that would marginally fit your requirements, would be to imbed all the images in an Excel File that is in a protected directory (to prevent accidental file deletion). Each image could have it's own unique name, that could then be permanently imported into your working Excel file (with no link to the source image file).

I'm sorry I couldn't be of more help.

Lewis