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. Actualités 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.
| Kutools for Excel : avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation en 30 jours. |
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 > L’, 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 l' 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
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
