Normally Excel?, Er det ingen enkel og direkte måte for oss å sette de relative bildene basert på tekststrengen i Excel, men, kan følgende VBA-kode hjelpe deg å erstatte teksten med den tilsvarende bildet.
en. Trykk Alt + F11 for å vise Microsoft Visual Basic for Applications vinduet.
2. I vinduet klikker du Sett inn > Modul for å vise en ny modul vindu, og deretter kopiere og lime inn følgende VBA-kode i modulvinduet
VBA-kode. Erstatte tekst med tilsvarende Bilder fra Sub InsertPicture () 'Upadateby20150423Dim xPath Som StringDim xLastRow Som LongDim RNG Som RangeDim WorkRng Som RangeOn Error Resume NextxTitleId = "KutoolsforExcel" Set WorkRng = Application.SelectionSet WorkRng = Application.InputBox ("Range", xTitleId, WorkRng.Address, Type: = 8) Application.ScreenUpdating = FalsexPath = "C: \\ Users \\ dt \\ Desktop \\ Frukt \\ "Hvis Høyre (xPath, 1) < > "\\" Så xPath = xPath & "\\" xLastRow = Cells (Rows.Count, "A") End (xlUp) .RowFor Hver RNG I WorkRng Hvis Rng.Value. < > "" Så hvis Dir (xPath & Rng.Value & ".jpg") < > "" Så ActiveSheet.Pictures.Insert (xPath & Rng.Value & ".jpg") Velg Med 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 IfNextApplication.ScreenUpdating = TrueEnd Sub3. Deretter trykker F5 for å kjøre denne koden, og velg dataområdet som du vil sette inn de tilsvarende bildene i spratt ut dialogboksen, se skjermbilde:
4. Og klikk deretter på OK-knappen, vil alle de tilsvarende bilder med størrelse som det samme som cellene erstattes med den opprinnelige teksten, se skjermbilder:
Merknader:
1. I koden ovenfor, må du endre mappebanen av bildene til ditt behov, XPath = "C: \\ Users \\ dt \\ Desktop \\ Frukt \\"
2.. Hvis det ikke finnes tilsvarende bilder som passer til teksten, vil feil N /A vise.

Erstatt tekst med tilsvarende bilder med Kutools for Excel
Som koden ovenfor vanskelig å mestre, her, jeg vil introdusere deg en enkel og kraftig verktøy - Kutools for Excel, med sin Match Import Pictures funksjonen, kan du raskt og enkelt å sette inn bildene for å matche listen over teksten
Kutools for Excel: med mer enn 120 praktiske Excel-tillegg. , gratis å prøve uten begrensning i 60 dager. Få det nå . Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce Etter installering Kutools for Excel, kan du gjøre som dette :( Gratis Last ned Kutools for Excel nå)
1. Klikk Enterprise > Import /Export > Kamp Importer bilder, se skjermbilde:
to. I Match Import Pictures dialogboksen, klikker du knappen for å velge området som du ønsker å matche med bildene, se skjermbilde:
tre. Så i dialogboksen Match Import Pictures, klikk på Legg til > Fil eller mappe for å finne de bildene du vil sette inn, se skjermbilde:
4. Når du har satt de tilsvarende bildene, og klikk deretter Importer størrelsesknapp, i følgende Import Bildestørrelse dialogboksen, angi ett alternativ for størrelsen på bildet. Se skjermbilde:
5. Klikk OK > Import, og velg deretter en celle for å finne dine relative bildene fra spratt ut dialogen Match Import Pictures (du kan også velge den opprinnelige cellen av teksten), se skjermbilde:
6. Og klikk deretter på OK-knappen, har alle bildene som samsvarer med teksten er satt inn i regnearket, se skjermbilde:
Merknader:
1. Hvis det ikke er noen passet bilder med tekst, vil cellen ikke sett noe.
2. Hvis du ønsker å sette inn bilder horisontalt, kan du sjekke Fyll horisontalt celle etter celle i Importer for seksjonen.
Gratis nedlasting Kutools for Excel Nå

Previous:Hvordan å telle antall celler med ikke-null verdier i Excel?

Next Page:Hvordan tilfeldig legge bakgrunn /fyllfarge for celler i Excel?