Gå til hovedindhold

Hvordan udskiftes tekst med tilsvarende billeder i Excel?

doc erstat tekst med billede 1 2 doc erstat tekst med billede 2

Lad os sige, jeg har en liste over produktnavne i et regneark, og der er en mappe, der indeholder de tilsvarende billeder af produktnavne på computerdisken. Nu skal jeg finde og erstatte produktnavne med deres relative billeder i Excel uden at indsætte dem en efter en som følgende skærmbilleder vist. Er der nogen gode og hurtige løsninger til at håndtere dette job i Excel?

Erstat tekst med tilsvarende billeder med VBA-kode

Udskift tekst med tilsvarende billeder med Kutools til Excel


Erstat tekst med tilsvarende billeder med VBA-kode

Normalt er der ingen nem og direkte måde for os at indsætte de relative billeder baseret på tekststrengen i Excel, men den følgende VBA-kode kan hjælpe dig med at erstatte teksten med det tilsvarende billede.

1. Presse Alt + F11 for at vise Microsoft Visual Basic til applikationer vindue.

2. Klik på i vinduet indsatte > Moduler for at vise et nyt modulvindue, kopier og indsæt derefter følgende VBA-kode i modul vindue.

VBA-kode: erstat tekst med tilsvarende billeder

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. Tryk derefter på F5 tasten for at køre denne kode, og vælg det dataområde, som du vil indsætte de tilsvarende billeder i den udfoldede dialog, se skærmbillede:

doc erstat tekst med billede 3

4. Og klik derefter på OK knappen, vil alle de tilsvarende billeder med samme størrelse som cellerne blive erstattet med den originale tekst, se skærmbilleder:

doc erstat tekst med billede 4 2 doc erstat tekst med billede 5

Bemærkninger:

1. I ovenstående kode skal du ændre mappestien til billederne til dit behov, xPath = "C:\Users\dt\Desktop\Fruits\".

2. Hvis der ikke er nogen tilsvarende billeder, der matcher teksten, vises fejlen N/A.


Udskift tekst med tilsvarende billeder med Kutools til Excel

Da ovenstående kode er svær at mestre, vil jeg her introducere dig et nemt og kraftfuldt værktøj - Kutools til Excel, Med Match importbilleder funktion, kan du hurtigt og bekvemt indsætte billederne, så de matcher tekstlisten.

Kutools til Excel : med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage. 

Efter installation Kutools til Excelskal du gøre som dette:

1. Klik Kutools Plus > Import Eksport > Match importbilleder, se skærmbillede:

2. I Match importbilleder dialogboksen, klik doc erstat tekst knap 1 knappen for at vælge det område, du vil matche med billederne, se skærmbillede:

doc erstatte tekst med billede 7 7

3. Derefter i Match importbilleder dialog, klik Tilføj > filet or Folder for at finde de billeder, du vil indsætte, se skærmbillede:

doc erstatte tekst med billede 8 8

4. Når du har indsat de tilsvarende billeder, skal du klikke Importstørrelse i det følgende Importer billedstørrelse dialog, skal du angive en mulighed for størrelsen på dit billede. Se skærmbillede:

doc erstatte tekst med billede 9 9

5. Klik derefter på OK > Importere, og vælg derefter en celle for at finde dine relative billeder fra de poppede ud Match importbilleder dialog (du kan også vælge den originale celle i teksten), se skærmbillede:

doc erstatte tekst med billede 10 10

6. Og klik derefter på OK knappen, er alle de billeder, der matcher teksten, indsat i arbejdsarket, se skærmbillede:

doc erstatte tekst med billede 11 11

Bemærkninger:

1. Hvis der ikke er nogen matchende billeder med teksten, vil cellen ikke indsætte noget.

2. Hvis du vil indsætte billeder vandret, kan du markere Fyld vandret celle efter celle i Importer ordre sektion.

Download og gratis prøveversion Kutools til Excel nu!


Demo: Erstat tekst med tilsvarende billeder med Kutools til Excel

Kutools til Excel: med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage. Download og gratis prøveversion nu!

Bedste kontorproduktivitetsværktøjer

Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøj (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøj (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøj (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøj (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

kte-fane 201905


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations