Hoe tekst te vervangen door bijbehorende afbeeldingen in Excel?

In de praktijk willen we vaak automatisch bijbehorende 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). Omdat Excel zelf geen ingebouwde functie heeft voor "tekst-naar-afbeelding", moeten enkele technieken worden gebruikt om dit doel te bereiken. Hieronder zal dit artikel twee belangrijke oplossingen en hun optimalisatiemethoden uitgebreid behandelen.

Tekst vervangen door bijbehorende afbeeldingen met behulp van VBA-code

Tekst vervangen door bijbehorende afbeeldingen met Kutools voor Excel

Tekst vervangen door bijbehorende afbeeldingen met VBA-code

Normaal gesproken is er geen eenvoudige en directe manier om gerelateerde afbeeldingen in te voegen op basis van de tekststring in Excel, maar de volgende VBA-code kan u helpen om de tekst te vervangen door de bijbehorende afbeelding.

1. Druk op "Alt + F11" om het venster "Microsoft Visual Basic for Applications" weer te geven.

2. Klik in het venster op "Invoegen" > "Module" om een nieuw modulevenster te openen, kopieer en plak vervolgens de volgende VBA-code in het modulevenster.

VBA-code: tekst vervangen 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 vervolgens op de F5-toets om deze code uit te voeren en selecteer het gegevensbereik waarin u de bijbehorende afbeeldingen wilt invoegen in het pop-upvenster, zie screenshot:

4. Klik vervolgens op de knop OK en alle bijbehorende afbeeldingen zullen de oorspronkelijke tekst vervangen, zie screenshot:

Tekst vervangen door bijbehorende afbeeldingen met Kutools voor Excel

Als u niet bekend bent met of geen gebruik wilt maken van VBA-code, kunt u Kutools voor Excel proberen. Het biedt een krachtige en efficiënte oplossing waarmee u eenvoudig tekst kunt vervangen door bijbehorende afbeeldingen in slechts een paar klikken. Met Kutools kunt u specifieke tekst direct koppelen aan vooraf ingestelde afbeeldingen, zonder dat u enige code hoeft te schrijven. Bovendien kunt u de grootte van de afbeeldingen naar wens aanpassen, wat meer flexibiliteit biedt in hoe ze passen binnen uw Excel-werkblad.

Nadat u Kutools voor Excel hebt geïnstalleerd, doet u het volgende:

1. Klik op "Kutools Plus" > "Importeren & Exporteren" > "Overeenkomende afbeeldingen importeren", zie screenshot:

2. Stel in het dialoogvenster "Overeenkomende afbeeldingen importeren" de opties als volgt in:

• Selecteer in het tekstvak "Overeenkomstbereik" het celbereik dat u wilt koppelen aan de afbeeldingen;
• Klik vervolgens op de knop "Toevoegen" om de afbeeldingsbestanden te selecteren die u wilt importeren;
• Specificeer de grootte van de afbeelding die u wilt invoegen via de keuzelijst Importgrootte (hier kunt u kiezen uit "overeenkomstige afbeeldingsgrootte", "overeenkomstige celgrootte" of "specifieke afbeeldingsgrootte" zoals u nodig hebt);
• Selecteer de importvolgorde voor uw afbeeldingen;
• Klik ten slotte op de knop "Importeren".
  

3. Kies vervolgens één cel om uw bijbehorende afbeeldingen te plaatsen in het pop-upvenster "Overeenkomende afbeeldingen importeren" (u kunt ook de originele cel van de tekst selecteren), zie screenshot:

4. Klik vervolgens op de knop OK en alle afbeeldingen die overeenkomen met de tekst zijn ingevoegd in het werkblad, zie screenshot:

In Excel kan het gebruik van VBA-code of het hulpprogramma Kutools voor Excel om tekst te vervangen door bijbehorende afbeeldingen de werkzaamheden aanzienlijk verbeteren en de datavisualisatie versterken. Of het nu gaat om het schrijven van VBA-scripts of het gebruik van de Kutools-plug-in, beide methoden helpen gebruikers snel tekst-naar-afbeelding vervanging te bereiken, afgestemd op verschillende werkbehoeften. Het kiezen van de juiste methode kan het gegevensverwerken efficiënter en intuïtiever maken, waardoor de algehele werkkracht wordt verbeterd. Als u geïnteresseerd bent om meer tips en trucs voor Excel te ontdekken, onze website biedt duizenden handleidingen om u te helpen Excel onder de knie te krijgen.