Hoe vervangt u tekst door de bijbehorende afbeeldingen in Excel?
In de praktijk willen we vaak automatisch overeenkomstige afbeeldingen in Excel weergeven op basis van de tekst in een bepaalde cel (bijvoorbeeld productafbeeldingen weergeven op basis van productnamen of bijbehorende pictogrammen tonen op basis van statussen). Aangezien Excel zelf geen ingebouwde „tekst-naar-afbeelding"-functie heeft, moeten er enkele technieken worden gebruikt om dit doel te bereiken. Hieronder beschrijft dit artikel uitvoerig twee hoofdoplossingen en hun optimalisatiemethoden.
Vervang tekst door bijbehorende afbeeldingen met behulp van VBA-code
Vervang tekst door bijbehorende afbeeldingen met Kutools voor Excel
Vervang tekst door bijbehorende afbeeldingen met VBA-code
Normaal gesproken is er geen eenvoudige en directe manier om relatieve afbeeldingen in te voegen op basis van een tekstreeks in Excel, maar met de volgende VBA-code kunt u de tekst automatisch vervangen door de bijbehorende afbeelding.
1. Druk op „Alt + F11” om het venster „Microsoft Visual Basic for Applications” te openen.
2. Klik in het venster op 'Invoegen' > 'Module' om een nieuw modulevenster te openen, en kopieer en plak de volgende VBA-code in dat venster.
VBA-code: vervang tekst door bijbehorende afbeeldingen
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. Druk daarna op de toets F5 om deze code uit te voeren. Selecteer in het pop-updialoogvenster het gegevensbereik waarin u de bijbehorende afbeeldingen wilt invoegen, zie schermafbeelding:
4. Klik daarna op de knop OK – alle bijbehorende afbeeldingen vervangen dan de Oorspronkelijke Tekst. Zie de schermafbeelding:
Vervang tekst door bijbehorende afbeeldingen met Kutools voor Excel
Als u niet bekend bent met VBA-code of deze liever niet wilt gebruiken, kunt u Kutools voor Excel proberen. Dit biedt een krachtige en efficiënte oplossing waarmee u eenvoudig tekst kunt vervangen door bijbehorende afbeeldingen met slechts enkele klikken. Met Kutools kunt u specifieke tekst direct koppelen aan vooraf ingestelde afbeeldingen, zonder dat u code hoeft te schrijven. Daarnaast kunt u de grootte van de afbeeldingen aanpassen aan uw wensen, wat meer flexibiliteit biedt bij het plaatsen ervan in uw Excel-werkblad.
Na installatie van Kutools voor Excel gaat u als volgt te werk:
1. Klik op „Kutools Plus” > „Importeren/Exporteren” > „Overeenkomende afbeeldingen importeren”, zie de schermafbeelding:
2. Stel in het dialoogvenster „Overeenkomende afbeeldingen importeren” de opties als volgt in:
- Klik in het tekstvak „Overeenkomstbereik” om het celbereik te selecteren dat u wilt koppelen aan de afbeeldingen;
- Klik vervolgens op de knop „Toevoegen” om de afbeeldingsbestanden te selecteren die u wilt importeren;
- Geef de gewenste afbeeldingsgrootte op via de keuzelijst Importgrootte (hier kunt u kiezen voor „passend bij de Afbeeldingsgrootte”, „passend bij de celgrootte” of „specificeer de Afbeeldingsgrootte”, afhankelijk van uw behoeften);
- Selecteer de Importvolgorde voor uw afbeeldingen;
- Klik ten slotte op de knop ‘Importeren’.
3. Kies daarna één cel om uw bijbehorende afbeeldingen in te voegen via het pop-updialoogvenster „Overeenkomende afbeeldingen importeren” (u kunt ook de oorspronkelijke cel van de tekst selecteren). Zie schermafbeelding:
4. Klik daarna op de knop OK – alle afbeeldingen die overeenkomen met de tekst zijn nu ingevoegd in het werkblad. Zie de schermafbeelding:
- Als er geen afbeeldingen overeenkomen met de tekst, wordt er niets in de cel ingevoegd.
- Als u afbeeldingen horizontaal wilt invoegen, vinkt u „Vullen per rij, dan per kolom” aan in het gedeelte „Importvolgorde”.
In Excel kunt u met VBA-code of de tool
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins