New to VBA - creating code to paste photos from file to corresponding part # in Excel?

Hey guys,

I am new to VBA - trying to learn. I did a little bit of MATLAB in school, but I am mostly a complete beginner to all of this.

I have a folder with about 30,000 photos in it. These photos are labeled 00001 - 30,000. I have a spreadsheet that has corresponding part numbers (formatted as 00001 through 30000) along with tons of other data corresponding to the part number.

I would like to be able to simply import the photo from the folder into the Excel sheet to match with the corresponding part numbers. I suppose you would want the code to resize whatever cells you were placing the photo in as well.

I am not sure if this is something you guys can help with this limited amount of info, but anything is appreciated. I have a coworker who actually wrote this code already - but I am having a tough time keeping track of what is going on and I am wondering if I can write the code myself without getting lost.

Thanks!

Hi,

Something like this should work.

Please Login or Register  to view this content.

You will need to make some changes to the code.
- Change the file location
- Possible change the file type (I have assumed that they are all .jpg)
- I have assumed that the labels are in column A and that the pictures are in column B (Note I only used 5 pictures in my testing i.e. Range("B2:B6") with labels in A2:A6)
- Also note, I have resized the pictures to fit into the cell rather than fitting the cell around the pictures.

Thanks a lot I will play around with that a bit and see how it goes. These pictures are actually .tif files. So what is this code doing:
.Top = rng.Top
.Left = rng.Left
.Height = rng.Height
.Width = rng.Width

I understand some of this code such as defining your variables "range" and "file" in the beginning...but I get lost in some of the other parts of the code. I really ought to take some classes in VBA code - looks like a lot of fun once you know what your doing.

Hi,

The below code is resizing the picture to the dimension of the cell.

Please Login or Register  to view this content.