Wie ersetzt man Text in Excel durch passende Bilder?
In der Praxis möchten Sie häufig automatisch passende Bilder in Excel anzeigen – etwa Produktbilder basierend auf Produktnamen oder entsprechende Symbole je nach Statusangabe. Da Excel keine integrierte „Text-zu-Bild“-Funktion bietet, sind spezielle Techniken erforderlich, um dieses Ziel zu erreichen. Im Folgenden stellen wir Ihnen zwei bewährte Lösungsansätze samt ihrer Optimierungsmöglichkeiten detailliert vor.
Ersetzen Sie Text durch entsprechende Bilder mithilfe von VBA-Code
Ersetzen Sie Text durch entsprechende Bilder mit Kutools für Excel
Ersetzen Sie Text durch entsprechende Bilder mit VBA-Code
Normalerweise bietet Excel keine einfache und direkte Möglichkeit, relative Bilder anhand eines Textstrings einzufügen. Mit dem folgenden VBA-Code können Sie den Text jedoch problemlos durch das entsprechende Bild ersetzen.
1. Drücken Sie „Alt + F11“, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.
2. Klicken Sie im Fenster auf „Einfügen“ > „Modul“, um ein neues Modulfenster zu öffnen, und fügen Sie anschließend den folgenden VBA-Code in dieses Fenster ein.
VBA-Code: Ersetzen Sie Text durch entsprechende Bilder
Sub ReplaceTextWithPictures()
'Updateby Extendoffice
Dim ws As Worksheet
Dim selectedRange As Range
Dim cell As Range
Dim pic As Picture
Dim picPath As String
Dim foundPic As Boolean
Dim fileExtensions As Variant
Dim ext As Variant
Const imageFolderPath As String = "C:\Users\skyyang\Desktop\Animal\"
fileExtensions = Array("png", "jpg", "jpeg", "bmp", "gif")
On Error Resume Next
Set selectedRange = Application.InputBox("Select the data range", "KutoolsforExcel", Type:=8)
On Error GoTo 0
If selectedRange Is Nothing Then
MsgBox "No valid cell range selected, operation cancelled.", vbExclamation
Exit Sub
End If
Set ws = selectedRange.Worksheet
For Each cell In selectedRange
If Not IsEmpty(cell.Value) Then
foundPic = False
For Each ext In fileExtensions
picPath = imageFolderPath & cell.Value & "." & ext
If Dir(picPath) <> "" Then
foundPic = True
Exit For
End If
Next ext
If foundPic Then
For Each pic In ws.Pictures
If pic.TopLeftCell.Address = cell.Address Then pic.Delete
Next pic
Set pic = ws.Pictures.Insert(picPath)
With pic
.Top = cell.Top
.Left = cell.Left
.Width = cell.Width
.Height = cell.Height
End With
End If
End If
Next cell
End Sub
3. Drücken Sie anschließend die Taste F5, um den Code auszuführen, und wählen Sie im erscheinenden Dialogfeld den Datenbereich aus, in den die entsprechenden Bilder eingefügt werden sollen (siehe Screenshot):
4. Klicken Sie danach auf die Schaltfläche „OK“. Alle entsprechenden Bilder ersetzen nun den Originaltext (siehe Screenshot):
Ersetzen Sie Text durch entsprechende Bilder mit Kutools für Excel
Wenn Sie mit VBA-Code nicht vertraut sind oder ihn lieber nicht verwenden möchten, probieren Sie Kutools für Excel aus. Dieses leistungsstarke Tool ermöglicht es Ihnen, Text mühelos durch passende Bilder zu ersetzen – und das mit nur wenigen Klicks. Mit Kutools verknüpfen Sie bestimmten Text direkt mit vorgegebenen Bildern, ganz ohne Code schreiben zu müssen. Zudem passen Sie die Bildgröße flexibel an Ihre Anforderungen an und erhalten so mehr Freiheit bei der Platzierung innerhalb Ihres Excel-Arbeitsblatts.
Nach der Installation von Kutools für Excel gehen Sie wie folgt vor:
1. Klicken Sie auf „KUTOOLS PLUS“ > „Import/Export“ > „Übereinstimmende importierte Bilder“ (siehe Screenshot):
2. Legen Sie im Dialogfeld „Übereinstimmende importierte Bilder“ die Optionen wie folgt fest:
- Klicken Sie im Textfeld „Übereinstimmungsbereich“, um den Zellbereich auszuwählen, der mit den Bildern abgeglichen werden soll;
- Klicken Sie anschließend auf die Schaltfläche „Hinzufügen“, um die gewünschten Bilddateien auszuwählen;
- Geben Sie die gewünschte Bildgröße über das Dropdown-Menü Importgröße an (hier können Sie je nach Bedarf „an Bildgröße anpassen“, „an Zellgröße anpassen“ oder „Bildgröße festlegen“ wählen);
- Wählen Sie die Importreihenfolge für Ihre Bilder aus;
- Klicken Sie abschließend auf die Schaltfläche „Importieren“.
3. Wählen Sie anschließend eine Zelle aus, in der die zugehörigen Bilder platziert werden sollen (Sie können auch die ursprüngliche Zelle des Textes verwenden) – der Dialog „Übereinstimmende importierte Bilder“ erscheint (siehe Screenshot):
4. Klicken Sie danach auf „OK“. Alle zum Text passenden Bilder wurden nun in das Arbeitsblatt eingefügt (siehe Screenshot):
- Wenn keine passenden Bilder zum Text verfügbar sind, wird die Zelle leer gelassen.
- Möchten Sie Bilder horizontal einfügen, aktivieren Sie im Abschnitt „Importreihenfolge“ einfach die Option „Zeile füllen, dann Spalte füllen“.
In Excel lässt sich die Arbeitseffizienz und Datenvisualisierung deutlich steigern, indem Text mithilfe von VBA-Code oder dem Tool Kutools für Excel durch passende Bilder ersetzt wird. Ob Sie eigene VBA-Skripte schreiben oder das Kutools-Plugin nutzen – beide Methoden ermöglichen eine schnelle Text-zu-Bild-Ersetzung und erfüllen so unterschiedlichste Anforderungen im Arbeitsalltag. Die richtige Methode macht Ihre Datenverarbeitung nicht nur effizienter, sondern auch intuitiver – und erhöht so spürbar die Qualität Ihrer Arbeit. Wenn Sie weitere Excel-Tipps und -Tricks entdecken möchten,bietet unsere Website Tausende von Anleitungen, mit denen Sie Excel meistern.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins