Insert multiple picture file in excel with vba

[junkyman98]

Hi,

I want to thanks every one for helping me out and your help is highly appreciated!

I am creating an excel sheet, where I have to insert hundreds of picture beside the data, how would I do that? I have no experience with VBA or Macros at all and I would like to have code of it please.

Here is the cache, my picture file is not as same as my product name completely but I would like to have the VBA matches the data with picture by using the 1st 6 Alphanumeric. For instance, my data name is A12345 but the picture name is A12345bkl.jpg.

I would like to have my picture listed on column B and file name will on column D. Also auto reduce picture to cell size like column 15 X row 73.

Thank you very much

Peter

[patel45]

this is an example to be arranged

Please Login or Register  to view this content.

[junkyman98]

Hi patel45,

Thank you very much for the code, but the message box show up
Picture " & xName & " not available.

Then another message show up in VBA
Compile error message:
Sub or Function not defined

I change the directory path to my picture location but it does not work so I have create D:\Photo\ directory and put all my picture in there and it does not work as well

It shows the yellow highlight on
Function InsertPicture(xRange As String, xRigo As Integer, xPatName As String, dRange As String)

and blue highlight on
DelBandiera ("image" & xRigo)

Sorry I'm a VBA dummy does not have any clue of how to modify the code, except change the directory path.

Please help
Thank you

[patel45]

attach your file, I'll adapte the macro

[junkyman98]

I can't reply with attachment file. I'm posting a new one with attachment.

http://www.excelforum.com/excel-prog...99#post2891599

Thank you

[patel45]

two changes
xRigo = 0 ' was 1
eliminate DelBandiera ("image" & xRigo)

[junkyman98]

Hi Patel45,
Thank you very much for the code, but I have couple of questions
1: Does the picutre file name have to be exactly the same as data name? My file name only matches 1st 5 alphanumeric so some of the file did not appear in the cell.
2: Can the picture be loaded with auto resize into column size 15 X row size 75?
Thank you once again.

[patel45]

1: Does the picutre file name have to be exactly the same as data name? - YES, absolutely
2: Can the picture be loaded with auto resize into column size 15 X row size 75? - change the line
Selection.ShapeRange.Height = 15 ' was xHeight

[junkyman98]

Thank you so much patel45
Please help me with one more question, how do I make a picture auto size to 2.41cm X 2.41cm?
Thank you very very much