Salt la conținutul principal

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

Autor: Xiaoyang Ultima modificare: 2025-04-08
înlocuiți textul cu imaginile corespunzătoare

Î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:

Caseta de dialog cod VBA pentru a selecta un interval pentru înlocuirea text cu imagine

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

Cod VBA pentru a înlocui textul cu imaginile corespunzătoare

notițe: În codul de mai sus, trebuie să schimbați calea dosarului a imaginilor conform nevoilor dvs. în acest script: Const imageFolderPath As String = "C:\Utilizatori\skyyang\Desktop\Animal\"

Î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.

Kutools for Excel oferă peste 300 de funcții avansate pentru a eficientiza sarcinile complexe, stimulând creativitatea și eficiența. Itegarate cu capabilități AI, Kutools automatizează sarcinile cu precizie, facilitând gestionarea datelor. Informații detaliate despre Kutools for Excel...         Încercare gratuită...

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”.
    setați opțiuni specifice în caseta de dialog

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:

O captură de ecran care arată selecția unei celule pentru inserarea imaginilor corespunzătoare

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:

O captură de ecran care arată imaginile inserate în celulele din Excel după utilizarea Kutools

note:
  1. Dacă nu există imagini potrivite cu textul, celula nu va insera nimic.
  2. Dacă doriți să inserați imagini pe orizontală, puteți bifa „Umpleți orizontal celulă după celulă” în secțiunea „Ordine de import”.

Î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.

Cele mai bune instrumente de productivitate de birou

🤖 Kutools Ajutor AI: Revoluționați analiza datelor pe baza: Execuție inteligentă   |  Generați codul  |  Creați formule personalizate  |  Analizați datele și generați diagrame  |  invoca Kutools funcţii...
Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele
Utilizare Kutools în limba preferată – este compatibilă cu engleză, spaniolă, germană, franceză, chineză și peste 40 de alte limbi!

Îmbunătățiți-vă abilitățile Excel cu Kutools for Excelși experimentați eficiența ca niciodată înainte. Kutools for Excel Oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...


Office Tab Aduce interfața cu file la Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!