Cum se înlocuiește textul cu imagini corespunzătoare în Excel?

În munca practică, deseori dorim să afișăm automat imaginile corespunzătoare în Excel pe baza textului dintr-o anumită celulă (de exemplu, afișarea imaginilor produselor pe baza numelor produselor sau afișarea pictogramelor corespunzătoare pe baza stărilor). Deoarece Excel în sine nu are o funcție încorporată „text-to-image”, unele tehnici trebuie utilizate pentru a atinge acest obiectiv. Mai jos, acest articol va detalia două soluții principale și metodele lor de optimizare.

Înlocuiți textul cu imaginile corespunzătoare utilizând codul VBA

Înlocuiți textul cu imaginile corespunzătoare cu Kutools for Excel

Înlocuiți textul cu imaginile corespunzătoare cu codul VBA

În mod normal, nu există o modalitate ușoară și directă de a insera imaginile relative pe baza șirului de text în Excel, dar, următorul cod VBA vă poate ajuta să înlocuiți textul cu imaginea corespunzătoare.

1. Apăsați „Alt + F11” pentru a afișa fereastra „Microsoft Visual Basic for Applications”.

2. În fereastră, faceți clic pe „Inserare” > „Modul” pentru a afișa o nouă fereastră de modul, apoi copiați și inserați următorul cod VBA în fereastra modulului.

Cod VBA: înlocuiți textul cu imaginile corespunzătoare

Sub ReplaceTextWithPictures()
'Updateby Extendoffice
    Dim ws As Worksheet
    Dim selectedRange As Range
    Dim cell As Range
    Dim pic As Picture
    Dim picPath As String
    Dim foundPic As Boolean
    Dim fileExtensions As Variant
    Dim ext As Variant
    Const imageFolderPath As String = "C:\Users\skyyang\Desktop\Animal\"
    fileExtensions = Array("png", "jpg", "jpeg", "bmp", "gif")
    On Error Resume Next
    Set selectedRange = Application.InputBox("Select the data range", "KutoolsforExcel", Type:=8)
    On Error GoTo 0
    If selectedRange Is Nothing Then
        MsgBox "No valid cell range selected, operation cancelled.", vbExclamation
        Exit Sub
    End If
    Set ws = selectedRange.Worksheet
    For Each cell In selectedRange
        If Not IsEmpty(cell.Value) Then
            foundPic = False
            For Each ext In fileExtensions
                picPath = imageFolderPath & cell.Value & "." & ext
                If Dir(picPath) <> "" Then
                    foundPic = True
                    Exit For
                End If
            Next ext
            If foundPic Then
                For Each pic In ws.Pictures
                    If pic.TopLeftCell.Address = cell.Address Then pic.Delete
                Next pic
                Set pic = ws.Pictures.Insert(picPath)
                With pic
                    .Top = cell.Top
                    .Left = cell.Left
                    .Width = cell.Width
                    .Height = cell.Height
                End With
            End If
        End If
    Next cell
End Sub

3. Apoi apăsați tasta F5 pentru a rula acest cod și selectați intervalul de date în care doriți să inserați imaginile corespunzătoare în dialogul care apare, vedeți captura de ecran:

4. Apoi faceți clic pe butonul OK, toate imaginile corespunzătoare vor înlocui textul original, vedeți captura de ecran:

Înlocuiți textul cu imaginile corespunzătoare cu Kutools for Excel

Dacă nu sunteți familiarizat cu sau nu doriți să utilizați codul VBA, puteți încerca Kutools for ExcelOferă o soluție puternică și eficientă care vă permite să înlocuiți cu ușurință textul cu imagini corespunzătoare în doar câteva clicuri. Cu Kutools, puteți potrivi text specific direct cu imagini prestabilite, fără a fi nevoie să scrieți cod. În plus, puteți ajusta dimensiunea imaginilor în funcție de nevoile dvs., oferind mai multă flexibilitate în modul în care acestea se încadrează în foaia Excel.

După instalare Kutools for Excel, vă rugăm să faceți acest lucru:

1. Faceți clic pe "Kutools „Plus” > „Import și export” > „Potrivire imagini importate”, vezi captura de ecran:

2. În caseta de dialog „Potriviți imaginile importate”, setați opțiunile astfel:

• Din caseta de text „Potrivire interval”, dați clic pentru a selecta intervalul de celule pe care doriți să îl potriviți cu imaginile;
• Apoi, faceți clic pe butonul „Adăugați” pentru a selecta fișierele imagine pe care doriți să le importați;
• Specificați dimensiunea imaginii pe care doriți să o inserați din meniul derulant Import size (Aici, puteți alege „potriviți dimensiunea imaginii”, „potriviți dimensiunea celulei” sau „specificați dimensiunea imaginii” după cum aveți nevoie.);
• Selectați ordinea de import pentru imaginile dvs.;
• În cele din urmă, faceți clic pe butonul „Importați”.
  

3. Apoi, alegeți o celulă pentru a vă localiza imaginile relative din caseta de dialog „Potriviți imaginile de import” (puteți selecta și celula originală a textului), vedeți captura de ecran:

4. Apoi faceți clic pe butonul OK, toate imaginile care se potrivesc cu textul au fost inserate în foaia de lucru, vedeți captura de ecran:

În Excel, folosind cod VBA sau Kutools for Excel instrumentul de înlocuire a textului cu imagini corespunzătoare poate îmbunătăți semnificativ eficiența muncii și vizualizarea datelor. Fie prin scrierea de scripturi VBA, fie prin utilizarea Kutools plugin, ambele metode îi ajută pe utilizatori să realizeze rapid înlocuirea textului cu imagine, răspunzând diferitelor nevoi de lucru. Alegerea metodei potrivite poate face procesarea datelor mai eficientă și intuitivă, îmbunătățind astfel calitatea generală a muncii. Dacă sunteți interesat să explorați mai multe sfaturi și trucuri pentru Excel, site-ul nostru web oferă mii de tutoriale pentru a vă ajuta să stăpâniți Excel.