Hvordan udskiftes tekst med tilsvarende billeder i Excel?
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:
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:
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 knappen for at vælge det område, du vil matche med billederne, se skærmbillede:
3. Derefter i Match importbilleder dialog, klik Tilføj > File (Felt) or Folder for at finde de billeder, du vil indsætte, se skærmbillede:
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:
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:
6. Og klik derefter på OK knappen, er alle de billeder, der matcher teksten, indsat i arbejdsarket, se skærmbillede:
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
Bedste kontorproduktivitetsværktøjer
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...
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!