need a vba code to insert pictures with a corresponding file name

**whan714** · 05-18-2015, 05:38 PM

Hello

im pretty new at VBA basically very little to no knowledge but i can get myself around easier codes.

my problem is that i have a folder with a lot of photos and i need to import them all and have them resized into my sheet. column A would have all my photos. column B has the corresponding filename info.

the cell height and width are 150, 30

is there any way i can have the code look for two parts of a filename so that it goes into the right cell?

**daffodil11** · 05-18-2015, 06:41 PM

Probably, but you'd need to give us a little more to go on. I can't just assume what those file parts are, how you've formatted the words, or where you'd like them to go. I'm not even really sure what Filename Info means. Is this a directory? You should attach a sample.

Let's pretend you had a list of filenames in B that were in the same folder as the Excel file and you wanted the pictures to be placed in A, you'd run with something like:

Please Login or Register  to view this content.

**whan714** · 05-18-2015, 07:06 PM

Hey Daffodil11

thanks for that info!

I am attaching a spreadsheet its very basic. but what i meant with the file parts was that if i can get the Style# and Color columns looked up into the sheet. Or do i have to name the photo just one of those columns because there can be duplicates in different colors etc.

the photos are not in the same area as the excel file.
I have a separate folder on the desktop where all the pictures should be pulled from.
I also need thees to be emailed and show the pictures when someone else opens this file.

let me know if you need anymore info!

**daffodil11** · 05-18-2015, 07:23 PM

Is STYLE supposed to be a filename?

As for dynamically pulling Exif-type from photos, you'd likely need to invoke some sort of program with Shell to force it to run, and then manipulate that program to figure out each photo's properties. That would be pretty tricky stuff. Something super involved and complex like that might be better fielded by Commercial Services.

Why would you need to reload the images when the file opens? Do you have a need to continually re-import the pictures?

Email is pretty easy and can be tailored around a lot of different actions. What do you want to email? To whom, and how?

Please Login or Register  to view this content.

**whan714** · 05-18-2015, 07:25 PM

STYLE would be the filename in the photos.

i read somewhere that the macros would have to be continually activated each time you opened the file?
unless i read that part wrong

**daffodil11** · 05-18-2015, 07:53 PM

Depends on the type of procedure. Some macros run once, do what you need, and then you don't need them anymore.

For example, if I want to know everytime someone opens one of my files, I might have an Event procedure that writes the date, time, and username of anyone who opens one of my workbooks to an Access database. I'd use Workbook_Open or _BeforeSave

In another example, I might want to send an email to every email address in Column D, with subject E, copying F, with a Body composed of G, H, & I. I'd do this one time only, to save myself a couple days of work, and then probably never again. This would just be a standard routine.

**whan714** · 05-18-2015, 08:04 PM

So what would be the full code to have the photos pull from a folder on my desktop. where do i put the file path name? in the first code you showed me?

**daffodil11** · 05-19-2015, 12:55 PM

We just remove the variable filepath string and put in a hardcoded one. This would pull in file names from Column B that exist in the filepath you list

Please Login or Register  to view this content.

**whan714** · 05-19-2015, 02:50 PM

so just tried this on my sheet and it keeps saying a error 400
i am using excel 2013

also did find a old code but can't seem to get this one to work either

Please Login or Register  to view this content.

this one just places the pictures in the cell right next to it.
I need it to pull data from Column B and the populate the pictures in Column A
attached a updated spreadsheet