Comment remplacer du texte par des images correspondantes dans Excel?

Disons que j'ai une liste de noms de produits dans une feuille de calcul et qu'un dossier contient les images correspondantes des noms de produits sur le disque de l'ordinateur. Maintenant, je dois trouver et remplacer les noms de produits par leurs images relatives dans Excel sans les insérer un par un comme les captures d'écran suivantes. Existe-t-il des solutions bonnes et rapides pour gérer ce travail dans Excel?

Remplacez le texte par les images correspondantes avec le code VBA

Remplacez le texte par les images correspondantes avec Kutools for Excel

Remplacez le texte par les images correspondantes avec le code VBA

Normalement, il n'y a pas de moyen simple et direct pour nous d'insérer les images relatives basées sur la chaîne de texte dans Excel, mais le code VBA suivant peut vous aider à remplacer le texte par l'image correspondante.

1. Presse Alt + F11 pour afficher le Microsoft Visual Basic pour applications fenêtre.

2. Dans la fenêtre, cliquez sur insérer > Module pour afficher une nouvelle fenêtre de module, puis copiez et collez le code VBA suivant dans le module fenêtre.

Code VBA: remplacez le texte par les images correspondantes

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. Puis appuyez F5 clé pour exécuter ce code, et sélectionnez la plage de données dans laquelle vous souhaitez insérer les images correspondantes dans la boîte de dialogue pop-out, voir capture d'écran:

4. Et puis cliquez OK bouton, toutes les images correspondantes avec la même taille que les cellules seront remplacées par le texte d'origine, voir les captures d'écran:

Notes:

1. Dans le code ci-dessus, vous devez modifier le chemin du dossier des images selon vos besoins, xPath = "C: \ Users \ dt \ Desktop \ Fruits \".

2. S'il n'y a pas d'images correspondantes correspondant au texte, l'erreur N / A s'affichera.

Remplacez le texte par les images correspondantes avec Kutools for Excel

Comme le code ci-dessus est difficile à maîtriser, ici, je vais vous présenter un outil simple et puissant - Kutools for Excel, Avec son Faire correspondre les images d'importation fonctionnalité, vous pouvez rapidement et facilement insérer les images pour correspondre à la liste de texte.

Après l'installation de Kutools for Excel, veuillez faire comme ceci:

1Cliquez sur Kutools Plus > Import & Export > Faire correspondre les images d'importation, voir capture d'écran:

2. Dans le Faire correspondre les images d'importation boîte de dialogue, cliquez sur  bouton pour sélectionner la plage que vous souhaitez faire correspondre avec les images, voir capture d'écran:

3. Puis dans le Faire correspondre les images d'importation dialogue, cliquez sur Ajouter > Déposez votre dernière attestation or Dossier pour trouver les images que vous souhaitez insérer, voir capture d'écran:

4. Après avoir inséré les images correspondantes, cliquez sur Importer la taille bouton, dans ce qui suit Importer la taille de l'image boîte de dialogue, spécifiez une option pour la taille de votre image. Voir la capture d'écran:

5. Puis clique OK > Importer, puis choisissez une cellule pour localiser vos images relatives à partir de la sortie Faire correspondre les images d'importation dialogue (vous pouvez également sélectionner la cellule d'origine du texte), voir capture d'écran:

6. Et puis cliquez OK bouton, toutes les images qui correspondent au texte ont été insérées dans la feuille de calcul, voir capture d'écran:

Notes:

1. Si aucune image ne correspond au texte, la cellule n'insère rien.

2. Si vous souhaitez insérer des images horizontalement, vous pouvez cocher Remplir horizontalement cellule après cellule dans le Commande d'importation .

Téléchargez et essayez gratuitement Kutools for Excel Now!

Démo : remplacez le texte par les images correspondantes avec Kutools for Excel