Insert Product Images to Excel Workbook

[RockyRobin]

Hi All

Complete Newbie here and am trying to enhance my knowledge of excel to stop myself taking hours to do jobs.

I have a stocklist that is currently in excel with product codes in column B. (eg 60080U-090)
I want to insert product images into column A. The product images are labelled as the style code (eg 60080U-090)

Now this is where you will chuckle, previously we have spent hours manually adding each image into the relevant cell and resizing.

I dont know much about macros/VBA but am more than willing to start learning.

If its any help:

Images are saved on a folder in the desktop labelled "Imagery"
The excel workbook is saved in the same folder and labelled "Stock"

Hope you guys can help me out and enlighten me.

Thanks in advance.

 

[RockyRobin]

I can't reproduce that behaviour. How are you saving the workbook?

When I view the spreadsheet on another PC it says the link cannot be verified.
I would like to send the spreadsheet to other users without having to send the folder full of images too.

This is the last step I need to make this work.

Thanks for all your help so far Andrew.

 

[Andrew Poulsom]

For me saving the workbook saves the images embedded in it. I don't know why that wouldn't happen for you. What's the "VBA file"?

 

[RockyRobin]

For me saving the workbook saves the images embedded in it. I don't know why that wouldn't happen for you. What's the "VBA file"?

How do I find out what the "VBA file" is?
All I did was run the macro in the steps as mentioned before then "saved"

 

[Andrew Poulsom]

If the VBA code is in the workbook it will be saved with it (provided that the extension is xls, xlsm or xlsb).

 

[RockyRobin]

If the VBA code is in the workbook it will be saved with it (provided that the extension is xls, xlsm or xlsb).

Once I ve run the macro and the images appear is there anything I should be doing before saving the spreadsheet.
Also on the VBA programme do I need to do anything with that once I've pasted in the code you gave me.

sorry for the questions but as this is the first time I've done this I'm a little unsure of all the steps.

 

[RockyRobin]

Once I ve run the macro and the images appear is there anything I should be doing before saving the spreadsheet.
Also on the VBA programme do I need to do anything with that once I've pasted in the code you gave me.

sorry for the questions but as this is the first time I've done this I'm a little unsure of all the steps.

As an update: the issue of the images not being attached was due to the fact I was using Excel 2010:-
Below is the adjusted code that works for Excel 2010

Sub Test()
    Dim Rng As Range
    Dim Cell As Range
    Application.ScreenUpdating = False
    Set Rng = Range("B2:B" & Range("B" & Rows.Count).End(xlUp).Row)
    For Each Cell In Rng
        With Cell
            On Error Resume Next
            .Parent.Shapes.AddPicture ThisWorkbook.Path & Application.PathSeparator & .Value & ".jpg", False, True, .Offset(, -1).Left, .Offset(, -1).Top, .Offset(, -1).Width, .Offset(, -1).Height
            If Err <> 0 Then
                Err.Clear
            End If
            On Error GoTo 0
        End With
    Next Cell
    Application.ScreenUpdating = True
End Sub

Massive thanks to Andrew for helping find a solution to this request.!!!

 

[RockyRobin]

As an update: the issue of the images not being attached was due to the fact I was using Excel 2010:-
Below is the adjusted code that works for Excel 2010

Sub Test()
    Dim Rng As Range
    Dim Cell As Range
    Application.ScreenUpdating = False
    Set Rng = Range("B2:B" & Range("B" & Rows.Count).End(xlUp).Row)
    For Each Cell In Rng
        With Cell
            On Error Resume Next
            .Parent.Shapes.AddPicture ThisWorkbook.Path & Application.PathSeparator & .Value & ".jpg", False, True, .Offset(, -1).Left, .Offset(, -1).Top, .Offset(, -1).Width, .Offset(, -1).Height
            If Err <> 0 Then
                Err.Clear
            End If
            On Error GoTo 0
        End With
    Next Cell
    Application.ScreenUpdating = True
End Sub

Massive thanks to Andrew for helping find a solution to this request.!!!

Hi

When i try and apply a data filter to the spreadsheet, the filter applied to a particular column doesnt seem to adjust all the images correctly. Is there a way to ensure the filter works alongside the inserted images.

 

[Andrew Poulsom]

Set the pictures to 'Move and size with cells'. Use the macro recorder to get the VBA code.

 

[RockyRobin]

Set the pictures to 'Move and size with cells'. Use the macro recorder to get the VBA code.

Perfect. Thanks Andrew

 

[hubono]

This code is so beautiful. It brings a tear to my eyes
I have been trying and debugging code for the past week and always a run time error.

When I pasted this code it just worked. No hickups, no errors.

My project, item list file with item code, description, and item rates in excel.
Image directory that has jpg files that are named similarly to the excel item codes.

This macro helped me import the images and now I need to convert the images to base64 and then upload to our erp system.

As mentioned, I have imported the images successfuly and now im trying to convert the photos into base64 code and paste it into cell C.

I have tried some code but still am unable.

Please assist.


Cheers
Hussain