Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment remplacer le texte avec des images correspondantes dans Excel?

doc remplacer le texte par l'image 1  2 doc remplacer le texte par l'image 2

Disons, j'ai une liste de noms de produits dans une feuille de calcul, et il y a 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 avec leurs images relatives dans Excel sans les insérer un par un comme les captures d'écran ci-dessous. Y at-il des solutions bonnes et rapides pour faire face à ce travail dans Excel?

Remplacer le texte par des images correspondantes avec le code VBA

Remplacer le texte par des images correspondantes avec Kutools for Excel


Insérer des images en fonction des valeurs de cellule dans une colonne:

Avec Kutools for Excel's Importer des images importées utilitaire, vous pouvez insérer des images correspondantes en fonction des valeurs de cellules rapidement et facilement.

doc remplacer le texte par l'image 12

Kutools for Excel: avec plus que 200 compléments Excel pratiques, libre d'essayer sans limitation dans les jours 60. Téléchargez et essai gratuit maintenant!


Remplacer le texte par des 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 avec son 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, copiez et collez le code VBA suivant dans module fenêtre.

Code VBA: remplacer le texte par des images correspondantes

Sub InsertPicture()
'Upadateby20150423
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 que vous souhaitez insérer les images correspondantes dans la boîte de dialogue sauté, voir capture d'écran:

doc remplacer le texte par l&#39;image 3

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

doc remplacer le texte par l&#39;image 4  2 doc remplacer le texte par l&#39;image 5

À noter :

1. Dans le code ci-dessus, vous devez changer le chemin du dossier des images à votre besoin, xPath = "C: \ Users \ dt \ Desktop \ Fruits".

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


Remplacer le texte par des images correspondantes avec Kutools for Excel

Comme le code ci-dessus est difficile à maîtriser, ici, je vais vous présenter un outil facile et puissant - Kutools for Excel, avec sa fonction Match Importer des images, 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, libre d'essayer sans limitation dans 60 jours.

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

1. Cliquez Entreprise > Import / Export > Importer des images importées, voir capture d'écran:

doc remplacer le texte par l&#39;image 6 6

2. Dans le Importer des images importées boîte de dialogue, cliquez sur doc remplacer le bouton de texte 1 bouton pour sélectionner la plage que vous voulez faire correspondre avec les images, voir capture d'écran:

doc remplacer le texte par l&#39;image 7 7

3. Puis dans le Importer des images importées dialogue, cliquez sur Ajoutez > Fichier or Dossier pour trouver les images que vous souhaitez insérer, voir la capture d'écran:

doc remplacer le texte par l&#39;image 8 8

4. Après avoir inséré les images correspondantes, cliquez sur Taille d'importation bouton, dans le suivant Importer une taille d'image dialogue, spécifiez une option pour la taille de votre image. Voir la capture d'écran:

doc remplacer le texte par l&#39;image 9 9

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

doc remplacer le texte par l&#39;image 10 10

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:

doc remplacer le texte par l&#39;image 11 11

À noter :

1. S'il n'y a pas d'images correspondantes avec le texte, la cellule n'insèrera rien.

2. Si vous voulez insérer des images horizontalement, vous pouvez vérifier Remplir horizontalement la cellule après la cellule le Commande d'importation .

Télécharger et tester gratuitement Kutools for Excel maintenant!


Demo: Remplacer le texte par des images correspondantes avec Kutools for Excel

Kutools for Excel: avec plus que 200 compléments Excel pratiques, libre d'essayer sans limitation dans les jours 60. Téléchargez et essai gratuit maintenant!



Outils de productivité recommandés

Office Tab

étoile d&#39;or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d&#39;or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d&#39;or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d&#39;écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.