How to replace text with corresponding pictures in Excel?

Let’s say, I have a list of product names in a worksheet, and there is a folder contains the corresponding pictures of the product names in the computer disk. Now, I need to find and replace the product names with their relative images in Excel without insert them one by one as following screenshots shown. Any there any good and quick solutions to deal with this job in Excel?

Replace text with corresponding pictures with VBA code

Replace text with corresponding pictures with Kutools for Excel

Replace text with corresponding pictures with VBA code

Normally, there is no easy and direct way for us to insert the relative pictures based on the text string in Excel, but, the following VBA code may help you to replace the text with its corresponding picture.

1. Press Alt + F11 to display the Microsoft Visual Basic for Applications window.

2. In the window, click Insert > Module to show a new module window, then copy and paste the following VBA code into the module window.

VBA code: replace text with corresponding pictures

Sub InsertPicture()
'Upadateby Extendoffice
Dim xPath As String
Dim xLastRow As Long
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
xPath = "C:\Users\dt\Desktop\Fruits\"
If Right(xPath, 1) <> "\" Then xPath = xPath & "\"
xLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For Each Rng In WorkRng
    If Rng.Value <> "" Then
        If Dir(xPath & Rng.Value & ".jpg") <> "" Then
            ActiveSheet.Pictures.Insert(xPath & Rng.Value & ".jpg").Select
            With Selection.ShapeRange
                .LockAspectRatio = msoFalse
                .Left = Rng.Left
                .Top = Rng.Top
                .Width = Rng.Width
                .Height = Rng.Height
            End With
            Rng.ClearContents
        Else
            Rng.Value = "N/A"
        End If
    End If
Next
Application.ScreenUpdating = True
End Sub

3. Then press F5 key to run this code, and select the data range that you want to insert the corresponding pictures in the popped out dialog, see screenshot:

4. And then click OK button, all the corresponding images with the size as the same as the cells will be replaced with the original text, see screenshots:

Notes:

1. In the above code, you need to change the folder path of the pictures to your need, xPath = "C:\Users\dt\Desktop\Fruits\".

2. If there are no corresponding pictures to match the text, the error N/A will display.

Replace text with corresponding pictures with Kutools for Excel

As the above code difficult to master, here, I will introduce you an easy and powerful tool - Kutools for Excel, with its Match Import Pictures feature, you can quickly and conveniently to insert the pictures to match the list of text.

After installing Kutools for Excel, please do as this:

1. Click Kutools Plus > Import & Export > Match Import Pictures, see screenshot:

2. In the Match Import Pictures dialog box, click  button to select the range that you want to match with the pictures, see screenshot:

3. Then in the Match Import Pictures dialog, click Add > File or Folder to find the pictures that you want to insert, see screenshot:

4. After inserting the corresponding images, then click Import size button, in the following Import Picture Size dialog, specify one option for the size of your picture. See screenshot:

5. Then click OK > Import, and then choose one cell to locate your relative images from the popped out Match Import Pictures dialog (you can also select the original cell of the text), see screenshot:

6. And then click OK button, all the pictures which match with the text have been inserted into the worksheet, see screenshot:

Notes:

1. If there are no matched pictures with the text, the cell will not insert anything.

2. If you want to insert pictures horizontally, you can check Fill horizontally cell after cell in the Import order section.

Download and free trial Kutools for Excel Now !

Demo: Replace text with corresponding pictures with Kutools for Excel