Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako zamenjati besedilo z ustreznimi slikami v Excelu?

doc zamenja besedilo s sliko 1  2 doc zamenja besedilo s sliko 2

Recimo, imam seznam imen izdelkov v delovnem listu in obstaja mapa, ki vsebuje ustrezne slike imen izdelkov na računalniškem disku. Zdaj moram najti in zamenjati imena izdelkov s svojimi relativnimi slikami v Excelu, ne da bi jih vstavili eno za drugim, kot kažejo naslednje posnetke zaslona. Ali obstajajo kakšne dobre in hitre rešitve za to delo v Excelu?

Zamenjajte besedilo z ustreznimi slikami s kodo VBA

Zamenjajte besedilo z ustreznimi slikami z orodji Kutools for Excel


V stolpcu vstavite slike na podlagi vrednosti celice:

z Kutools za ExcelJe Ujemanje uvoznih slik uporabnost, lahko hitro in enostavno vstavite ustrezne slike na osnovi vrednosti celice.

doc zamenja besedilo s sliko 12

Kutools za Excel: z več kot 200 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60. Prenesite in brezplačno preizkusite zdaj!


Zamenjajte besedilo z ustreznimi slikami s kodo VBA


Običajno ni preprostega in neposrednega načina za vnos relativnih slik na podlagi besedilnega niza v Excelu, vendar vam lahko naslednja koda VBA pomaga zamenjati besedilo z ustrezno sliko.

1. Pritisnite Alt + F11 za prikaz Microsoft Visual Basic za aplikacije okno.

2. V oknu kliknite Vstavi > Moduli da prikaže novo okno modula, nato pa kopirajte in prilepite naslednjo kodo VBA v modul okno.

VBA koda: zamenjajte besedilo z ustreznimi slikami

Sub InsertPicture()
'Upadateby20150423
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. Nato pritisnite F5 da zaženete to kodo in izberete obseg podatkov, v katerega želite vstaviti ustrezne slike v pogovorno okno, ki se je pojavilo, si oglejte posnetek zaslona:

doc zamenja besedilo s sliko 3

4. In nato kliknite OK gumb, bodo vse ustrezne slike z velikostjo enake kot celice zamenjane z izvirnim besedilom, glej slike s posnetkov:

doc zamenja besedilo s sliko 4  2 doc zamenja besedilo s sliko 5

Opombe:

1. V zgornji kodi morate spremeniti pot mape slik na vašo potrebo, xPath = "C: \ Users \ dt \ namizje \ sadje \".

2. Če ni ustreznih slik, ki se ujemajo z besedilom, se prikaže napaka N / A.


Zamenjajte besedilo z ustreznimi slikami z orodji Kutools for Excel

Kot zgornjo kodo, ki jo je težko obvladati, vam predstavim preprosto in zmogljivo orodje - Kutools for Excel, s funkcijo Ujemanje fotografij za ujemanje, lahko hitro in priročno vstavite slike, ki se ujemajo s seznamom besedila.

Kutools za Excel : z več kot 300 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60.

Po namestitvi Kutools za Excel, storite tako:

1. Kliknite Podjetje > Uvozno-izvoznih > Ujemanje uvoznih slik, si oglejte sliko zaslona:

doc zamenja besedilo s sliko 6 6

2. v Ujemanje uvoznih slik pogovorno okno, kliknite doc zamenjaj besedilni gumb 1 gumb, da izberete obseg, ki ga želite ujemati s slikami, si oglejte posnetek zaslona:

doc zamenja besedilo s sliko 7 7

3. Potem v Ujemanje uvoznih slik dialog, kliknite Dodaj > file or Mapa Če želite poiskati slike, ki jih želite vstaviti, si oglejte posnetek zaslona:

doc zamenja besedilo s sliko 8 8

4. Ko vstavite ustrezne slike, kliknite Velikost uvoza gumb, v nadaljevanju Uvozite velikost slike dialog, določite eno možnost za velikost slike. Prikaz slike:

doc zamenja besedilo s sliko 9 9

5. Nato kliknite OK > uvoz, nato pa izberite eno celico, da poiščete svoje relativne slike iz izpuščene Ujemanje uvoznih slik pogovorno okno (izberete lahko tudi izvirno celico besedila), si oglejte posnetek zaslona:

doc zamenja besedilo s sliko 10 10

6. In nato kliknite OK gumb, vse slike, ki se ujemajo z besedilom, so bile vstavljene v delovni list, si oglejte posnetek zaslona:

doc zamenja besedilo s sliko 11 11

Opombe:

1. Če z besedilom ni ustreznih slik, celica ne vstavlja ničesar.

2. Če želite vstaviti slike vodoravno, lahko preverite Izpolnite vodoravno celico po celici v Uvozni nalog oddelek.

Prenesite in brezplačno preizkusite Kutools za Excel zdaj!


Demo: besedilo zamenjajte z ustreznimi slikami z orodji Kutools for Excel

Kutools za Excel: z več kot 200 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60. Prenesite in brezplačno preizkusite zdaj!



Priporočena orodja za produktivnost za Excel

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.