Come sostituire il testo con le immagini corrispondenti in Excel?
Diciamo che ho un elenco di nomi di prodotti in un foglio di lavoro e che una cartella contiene le immagini corrispondenti dei nomi di prodotto nel disco del computer. Ora, ho bisogno di trovare e sostituire i nomi dei prodotti con le relative immagini in Excel senza inserirli uno per uno come mostrato nelle schermate seguenti. Esistono soluzioni valide e veloci per affrontare questo lavoro in Excel?
Sostituisci il testo con le immagini corrispondenti con il codice VBA
Sostituisci il testo con le immagini corrispondenti con Kutools per Excel
Sostituisci il testo con le immagini corrispondenti con il codice VBA
Normalmente, non esiste un modo semplice e diretto per inserire le immagini relative in base alla stringa di testo in Excel, ma il seguente codice VBA può aiutarti a sostituire il testo con la sua immagine corrispondente.
1. Rassegna Stampa Alt + F11 per visualizzare il Microsoft Visual Basic, Applications Edition finestra.
2. Nella finestra, fare clic su inserire > Moduli per mostrare una nuova finestra del modulo, quindi copia e incolla il seguente codice VBA nel file modulo finestra.
Codice VBA: sostituisci il testo con le immagini corrispondenti
Sub InsertPicture()
'Upadateby Extendoffice
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. Quindi premere F5 chiave per eseguire questo codice e selezionare l'intervallo di dati in cui si desidera inserire le immagini corrispondenti nella finestra di dialogo spuntata, vedere screenshot:
4. E poi clicca OK pulsante, tutte le immagini corrispondenti con la dimensione uguale alle celle verranno sostituite con il testo originale, vedi screenshot:
Note:
1. Nel codice sopra, è necessario modificare il percorso della cartella delle immagini secondo le proprie necessità, xPath = "C: \ Users \ dt \ Desktop \ Fruits \".
2. Se non ci sono immagini corrispondenti che corrispondono al testo, verrà visualizzato l'errore N / A.
Sostituisci il testo con le immagini corrispondenti con Kutools per Excel
Poiché il codice sopra è difficile da padroneggiare, qui ti presenterò uno strumento facile e potente - Kutools for Excel, Con la sua Abbina immagini importate funzione, è possibile inserire rapidamente e comodamente le immagini per abbinare l'elenco di testo.
Kutools for Excel : con oltre 300 utili componenti aggiuntivi di Excel, da provare gratuitamente senza limitazioni in 30 giorni. |
Dopo l'installazione Kutools for Excel, per favore fai come questo:
1. Clic Kutools Plus > Importa ed esporta > Abbina immagini importate, vedi screenshot:
2. Nel Abbina immagini importate finestra di dialogo, fare clic pulsante per selezionare l'intervallo che desideri abbinare alle immagini, vedi screenshot:
3. Quindi in Abbina immagini importate finestra di dialogo, fare clic Aggiungi > Compila il or cartella per trovare le immagini che vuoi inserire, vedi screenshot:
4. Dopo aver inserito le immagini corrispondenti, fare clic su Dimensione importazione pulsante, di seguito Importa dimensioni immagine finestra di dialogo, specifica un'opzione per la dimensione dell'immagine. Vedi screenshot:
5. Quindi fare clic OK > Importare, quindi scegli una cella per individuare le immagini relative dal file saltato fuori Abbina immagini importate finestra di dialogo (puoi anche selezionare la cella originale del testo), vedi screenshot:
6. E poi clicca OK pulsante, tutte le immagini che corrispondono al testo sono state inserite nel foglio di lavoro, vedi screenshot:
Note:
1. Se non ci sono immagini corrispondenti al testo, la cella non inserirà nulla.
2. Se vuoi inserire immagini orizzontalmente, puoi controllare Riempi orizzontalmente cella dopo cella nel Ordine di importazione .
Scarica e prova gratuitamente Kutools per Excel ora!
Demo: sostituisci il testo con le immagini corrispondenti con Kutools per Excel
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- 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 della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!