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. Médias 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 > L’, 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!


Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe Créer une liste de diffusion et envoyer des emails ...
  • Super Formula Bar (éditez facilement plusieurs lignes de texte et de formule); Disposition de lecture (facilement lire et éditer un grand nombre de cellules); Coller à la gamme filtrée...
  • Fusionner les cellules / rangées / colonnes sans perdre de données; Contenu des cellules divisées; Combiner les lignes / colonnes en double... Prévenir les cellules en double; Comparer les plages...
  • Sélectionnez Dupliquer ou Unique Des rangées; Sélectionnez les lignes vierges (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux cahiers d'exercices; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de la formule; Créer automatiquement des références à plusieurs feuilles; Insérer des balles, Cases à cocher et plus ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre contenu de cellules et commentaires...
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial en gras, en italique ...
  • Combinaison de classeurs et de feuilles de calcul; Fusionner les tables en fonction des colonnes clés; Fractionner les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
  • Plus que de puissantes fonctionnalités 300. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Fonctionnalités complètes Essai gratuit du jour 30.
kte tab 201905

Office Tab apporte une interface à onglets à Office et simplifie grandement votre travail

  • Activer l'édition par onglets et la lecture 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 le nombre de clics de souris pour vous chaque jour!
fond officetab
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.