Pull pictures from folder to excel sheet...HELP

I have an excel sheet where column B has a list of product codes. I also have a folder with pictures of each product and file name of the pictures are the product code. I would like to place the picture of each product in column A beside their respective codes. If possible, I would also like to reformat the pictures so they fit in the cell. (3.00 x 3.85)

Need a Macro that can run this.
I don't really know where to start and any help would be greatly appreciated! thanks

Hi,

The following code will insert a picture in the active cell of the work sheet.

Sub InsertPicture()
Dim sPicture As String, pic As Picture
sPicture = Application.GetOpenFilename _
    ("Pictures (*.gif; *.jpg; *.bmp; *.tif), *.gif; *.jpg; *.bmp; *.tif", _
     , "Select Picture to Import")
 
If sPicture = "False" Then Exit Sub

Set pic = ActiveSheet.Pictures.Insert(sPicture)
With pic
    .ShapeRange.LockAspectRatio = msoFalse
    .Height = ActiveCell.Height
    .Width = ActiveCell.Width
    .Top = ActiveCell.Top
    .Left = ActiveCell.Left
    .Placement = xlMoveAndSize
End With
Set pic = Nothing
 
End Sub

hope this helps.. let me know..

Originally Posted by moonsaga

Hi,

The following code will insert a picture in the active cell of the work sheet.

Sub InsertPicture()
Dim sPicture As String, pic As Picture
sPicture = Application.GetOpenFilename _
    ("Pictures (*.gif; *.jpg; *.bmp; *.tif), *.gif; *.jpg; *.bmp; *.tif", _
     , "Select Picture to Import")
 
If sPicture = "False" Then Exit Sub

Set pic = ActiveSheet.Pictures.Insert(sPicture)
With pic
    .ShapeRange.LockAspectRatio = msoFalse
    .Height = ActiveCell.Height
    .Width = ActiveCell.Width
    .Top = ActiveCell.Top
    .Left = ActiveCell.Left
    .Placement = xlMoveAndSize
End With
Set pic = Nothing
 
End Sub

hope this helps.. let me know..

where do I insert the -
-folder name with the pictures
-which column I want the pictures and which column has the style numbers (in my case a has the pics and b has the style numbers)

The code i provided uses the import picture feature of excel and puts the picture in the active cell of the sheet.

open a new excel workbook
right click on sheet1 tab
select view code
and paste the code in the open window
save workbook
go back to excel
then hit "ALT + F8" to open the run macro box
then highlight the macro
and click on run.

then you will see what the macro does.

Originally Posted by moonsaga

The code i provided uses the import picture feature of excel and puts the picture in the active cell of the sheet.

open a new excel workbook
right click on sheet1 tab
select view code
and paste the code in the open window
save workbook
go back to excel
then hit "ALT + F8" to open the run macro box
then highlight the macro
and click on run.

then you will see what the macro does.

What I want to be able to do is as follows:
I have a sheet
Column B has 50 style numbers (ex: "AK12323)
In folder "C:\Documents and Settings\Admin\Desktop\Images For Stock List" on my PC I have 50 pictures with the style numbers as the file name.
I want to be able to press for example "Ctrl+Q" and column A will populate with the corresponding pictures from the folder on my pc.
Ive seen it done a long time ago ,so I know its possible.