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:
- Dacă nu există imagini potrivite cu textul, celula nu va insera nimic.
- 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
Î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!