Come sostituire il testo con le immagini corrispondenti in Excel?
Nel lavoro pratico, spesso si desidera visualizzare automaticamente le immagini corrispondenti in Excel in base al testo contenuto in una determinata cella (ad esempio, mostrare le immagini dei prodotti in base ai nomi dei prodotti o visualizzare le icone corrispondenti in base agli stati). Poiché Excel non dispone di una funzionalità integrata «testo-immagine», è necessario ricorrere ad alcune tecniche per raggiungere questo obiettivo. Di seguito, questo articolo illustra dettagliatamente due soluzioni principali e i relativi metodi di ottimizzazione.
Sostituire il testo con le immagini corrispondenti utilizzando codice VBA
Sostituire il testo con le immagini corrispondenti con Kutools per Excel
Sostituire il testo con le immagini corrispondenti con codice VBA
Di solito, non esiste un modo semplice e diretto per inserire immagini in base a una stringa di testo in Excel, ma il seguente codice VBA ti permette di sostituire il testo con l’immagine corrispondente.
1.Premere «Alt + F11» per aprire la finestra «Microsoft Visual Basic, Applications».
2. Nella finestra, fai clic su «Inserisci» > «Modulo» per aprire una nuova finestra del modulo, quindi copia e incolla il seguente codice VBA al suo interno.
Codice VBA: sostituire il testo con le immagini corrispondenti
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. Premere quindi il tasto F5 per eseguire il codice e, nella finestra di dialogo visualizzata, selezionare l’intervallo di dati in cui si desidera inserire le immagini corrispondenti. Vedi screenshot:
4. Fai quindi clic sul pulsante OK: tutte le immagini corrispondenti sostituiranno il Testo Originale, come mostrato nello screenshot:
Sostituire il testo con le immagini corrispondenti con Kutools per Excel
Se non hai dimestichezza con il codice VBA o preferisci evitarne l’uso, prova Kutools per Excel: uno strumento potente ed efficiente che ti permette di sostituire facilmente il testo con le immagini corrispondenti in pochi clic. Con Kutools, puoi abbinare direttamente testi specifici a immagini predefinite, senza scrivere una sola riga di codice. In più, hai la possibilità di regolare le dimensioni delle immagini in base alle tue esigenze, per posizionarle nel foglio Excel con maggiore flessibilità.
Dopo aver installato Kutools per Excel, procedere come segue:
1. Fai clic su «KUTOOLS PLUS» > «Importa/Esporta» > «Abbinamento importa immagini», vedi screenshot:
2. Nella finestra di dialogo «Abbinamento: importa immagini», configura le opzioni come segue:
- Dalla casella di testo «Intervallo abbinamento», fare clic per selezionare l'intervallo di celle da abbinare alle immagini;
- Successivamente, fare clic sul pulsante «Aggiungi» per selezionare i file immagine da importare;
- Specificare la dimensione delle immagini da inserire dal menu a discesa Dimensione importata (è possibile scegliere tra «adatta a Dimensione Immagine», «adatta alla dimensione della cella» o «specifica Dimensione Immagine» in base alle proprie esigenze);
- Selezionare il Ordine importazione per le proprie immagini;
- Infine, fai clic sul pulsante «Importa».
3. Successivamente, scegli una cella in cui inserire le immagini corrispondenti dalla finestra di dialogo «Abbinamento: importa immagini» visualizzata (puoi anche selezionare la cella originale del testo). Vedi screenshot:
4. Fai quindi clic sul pulsante OK: tutte le immagini corrispondenti al testo verranno inserite nel foglio di lavoro. Guarda lo screenshot:
- Se non sono disponibili immagini corrispondenti al testo, la cella rimarrà vuota.
- Per inserire le immagini in orizzontale, seleziona “Riempi per Riga, quindi per Colonna” nella sezione “Ordine importazione”.
In Excel, utilizzare codice VBA o lo strumento Kutools per Excel per sostituire il testo con le immagini corrispondenti può migliorare notevolmente l’efficienza lavorativa e la visualizzazione dei dati. Che tu scelga uno script VBA o il plug-in Kutools, entrambi i metodi ti permettono di ottenere rapidamente la sostituzione testo-immagine, soddisfacendo ogni tipo di esigenza operativa. Scegliere l’approccio più adatto rende l’elaborazione dei dati non solo più efficiente, ma anche più intuitiva, elevando così la qualità complessiva del tuo lavoro. Se desideri scoprire ulteriori suggerimenti e trucchi per Excel, il nostro sito web offre migliaia di tutorial per aiutarti a padroneggiare Excel.
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi