Jak nahradit text odpovídajícími obrázky v aplikaci Excel?

Řekněme, že mám v listu seznam názvů produktů a existuje složka obsahující odpovídající obrázky názvů produktů na disku počítače. Teď musím najít a nahradit názvy produktů jejich relativními obrázky v aplikaci Excel, aniž bych je vkládal jeden po druhém, jak ukazuje následující snímek obrazovky. Existují nějaká dobrá a rychlá řešení pro řešení této úlohy v aplikaci Excel?

Nahraďte text odpovídajícími obrázky kódem VBA

Nahraďte text odpovídajícími obrázky pomocí programu Kutools pro Excel

Nahraďte text odpovídajícími obrázky kódem VBA

Za normálních okolností neexistuje žádný snadný a přímý způsob, jak vložit relativní obrázky založené na textovém řetězci v aplikaci Excel, ale následující kód VBA vám může pomoci nahradit text odpovídajícím obrázkem.

1. Stisknout Alt + F11 pro zobrazení Microsoft Visual Basic pro aplikace okno.

2. V okně klikněte na Vložit > Modul zobrazíte nové okno modulu, poté zkopírujte a vložte následující kód VBA do souboru modul okno.

Kód VBA: nahraďte text odpovídajícími obrázky

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. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a vyberte rozsah dat, do kterého chcete vložit odpovídající obrázky ve vyskakovacím dialogu, viz snímek obrazovky:

4. A pak klikněte na tlačítko OK tlačítko, všechny odpovídající obrázky o velikosti stejné jako buňky budou nahrazeny původním textem, viz snímky obrazovky:

Poznámky:

1. Ve výše uvedeném kódu musíte změnit cestu ke složce obrázků podle potřeby, xPath = "C:\Users\dt\Desktop\Fruits\".

2. Pokud neexistují žádné odpovídající obrázky odpovídající textu, zobrazí se chyba N/A.

Nahraďte text odpovídajícími obrázky pomocí programu Kutools pro Excel

Vzhledem k tomu, že výše uvedený kód je obtížné zvládnout, zde vám představím snadný a výkonný nástroj - Kutools pro Excel, S jeho Porovnat importované obrázky můžete rychle a pohodlně vložit obrázky tak, aby odpovídaly seznamu textu.

Po instalaci Kutools pro Excel, udělejte prosím toto:

1, klikněte Kutools Plus > Import Export > Porovnat importované obrázky, viz screenshot:

2. V Porovnat importované obrázky , klepněte na tlačítko OK  tlačítko pro výběr rozsahu, který chcete porovnat s obrázky, viz snímek obrazovky:

3. Pak v Porovnat importované obrázky dialog, klepněte na tlačítko přidat > Soubor or Desky obrázky, které chcete vložit, najdete na snímku obrazovky:

4. Po vložení příslušných obrázků klikněte Velikost importu v následujícím Importovat velikost obrázku v dialogovém okně zadejte jednu možnost pro velikost obrázku. Viz snímek obrazovky:

5. Pak klikněte na tlačítko OK > importa poté vyberte jednu buňku k vyhledání vašich relativních obrázků z vyskakovacího okna Porovnat importované obrázky dialogové okno (můžete také vybrat původní buňku textu), viz screenshot:

6. A pak klikněte na tlačítko OK tlačítko, všechny obrázky, které odpovídají textu, byly vloženy do listu, viz snímek obrazovky:

Poznámky:

1. Pokud s textem nejsou žádné odpovídající obrázky, do buňky nic nevloží.

2. Pokud chcete vkládat obrázky vodorovně, můžete zaškrtnout Naplňte vodorovně buňku za buňkou v Importovat objednávku sekce.

Stáhněte si zdarma zkušební verzi Kutools pro Excel!

Demo: Nahraďte text odpovídajícími obrázky pomocí Kutools pro Excel