Wie ersetze ich Text durch entsprechende Bilder in Excel?
Angenommen, ich habe eine Liste mit Produktnamen in einem Arbeitsblatt und in einem Ordner befinden sich die entsprechenden Bilder der Produktnamen auf der Computerdiskette. Jetzt muss ich die Produktnamen in Excel suchen und durch ihre relativen Bilder ersetzen, ohne sie einzeln einzufügen, wie in den folgenden Screenshots gezeigt. Gibt es gute und schnelle Lösungen für diesen Job in Excel?
Ersetzen Sie Text durch entsprechende Bilder durch VBA-Code
Ersetzen Sie Text durch entsprechende Bilder mit Kutools for Excel
Ersetzen Sie Text durch entsprechende Bilder durch VBA-Code
Normalerweise gibt es für uns keine einfache und direkte Möglichkeit, die relativen Bilder basierend auf der Textzeichenfolge in Excel einzufügen. Der folgende VBA-Code kann Ihnen jedoch dabei helfen, den Text durch das entsprechende Bild zu ersetzen.
1. Presse- Alt + F11 um das anzuzeigen Microsoft Visual Basic für Applikationen Fenster.
2. Klicken Sie im Fenster auf Insert > Modul Um ein neues Modulfenster anzuzeigen, kopieren Sie den folgenden VBA-Code und fügen Sie ihn in das ein Modulen Fenster.
VBA-Code: Text durch entsprechende Bilder ersetzen
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. Dann drücken F5 Drücken Sie die Taste, um diesen Code auszuführen, und wählen Sie den Datenbereich aus, in den Sie die entsprechenden Bilder in das herausspringende Dialogfeld einfügen möchten, siehe Screenshot:
4. Und dann klick OK Klicken Sie auf die Schaltfläche, alle entsprechenden Bilder mit der gleichen Größe wie die Zellen werden durch den Originaltext ersetzt, siehe Screenshots:
Anmerkungen:
1. Im obigen Code müssen Sie den Ordnerpfad der Bilder entsprechend Ihren Anforderungen ändern. xPath = "C:\Benutzer\dt\Desktop\Fruits\".
2. Wenn keine entsprechenden Bilder zum Text vorhanden sind, wird die Fehlermeldung N/A angezeigt.
Ersetzen Sie Text durch entsprechende Bilder mit Kutools for Excel
Da der obige Code schwer zu beherrschen ist, stelle ich Ihnen hier ein einfaches und leistungsstarkes Tool vor: Kutools for ExcelMit seinen Spiele importieren Mit dieser Funktion können Sie die Bilder schnell und bequem passend zur Textliste einfügen.
Kutools for Excel : Mit mehr als 300 praktischen Excel-Add-Ins können Sie diese innerhalb von 30 Tagen ohne Einschränkung testen. |
Nach der Installation Kutools for ExcelBitte machen Sie Folgendes:
1. Klicken Sie Kutoolen Plus > Import Export > Spiele importieren, siehe Screenshot:
2. In dem Spiele importieren Dialogfeld, klicken Sie auf Klicken Sie auf die Schaltfläche, um den Bereich auszuwählen, den Sie mit den Bildern abgleichen möchten, siehe Screenshot:
3. Dann in der Spiele importieren Dialog, klicken Sie auf Speichern > Reichen Sie das or Mappe Um die Bilder zu finden, die Sie einfügen möchten, sehen Sie sich den Screenshot an:
4. Klicken Sie nach dem Einfügen der entsprechenden Bilder auf Größe importieren Schaltfläche im Folgenden Bildgröße importieren Geben Sie im Dialogfeld eine Option für die Größe Ihres Bildes an. Siehe Screenshot:
5. Dann klick OK > Import, und wählen Sie dann eine Zelle aus, um Ihre relativen Bilder aus der herausgesprungenen Zelle zu finden Spiele importieren Dialogfeld (Sie können auch die ursprüngliche Zelle des Textes auswählen), siehe Screenshot:
6. Und dann klick OK Alle Bilder, die zum Text passen, wurden in das Arbeitsblatt eingefügt, siehe Screenshot:
Anmerkungen:
1. Wenn keine übereinstimmenden Bilder mit dem Text vorhanden sind, wird in die Zelle nichts eingefügt.
2. Wenn Sie Bilder horizontal einfügen möchten, können Sie dies überprüfen Füllen Sie horizontal Zelle für Zelle der Importauftrag .
Laden Sie Kutools for Excel jetzt herunter und testen Sie es kostenlos!
Demo: Ersetzen Sie Text durch entsprechende Bilder mit Kutools für Excel
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, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!