Note: The other languages of the website are Google-translated. Back to English
English English

Come inserire più immagini e ridimensionarle contemporaneamente in Excel?

È facile per noi inserire un'immagine in Excel, ma se è necessario inserire più immagini contemporaneamente in modo da risparmiare molto tempo, come si può fare?


Inserisci più immagini e ridimensionale in blocco tramite la funzione Inserisci immagine

Possiamo inserire più immagini in blocco tramite la funzione (Inserisci) Immagine in Excel e quindi ridimensionarle contemporaneamente. Si prega di fare quanto segue:

1. Nel foglio di lavoro fare clic su inserire > Immagine.

2. Nella finestra di dialogo Inserisci immagine, apri la cartella contenente le immagini che inserirai, seleziona più immagini di cui hai bisogno e fai clic su inserire pulsante. Vedi screenshot:
Note:: Tenendo Ctrl tasto, è possibile selezionare più immagini non adiacenti facendo clic su di esse una per una; tenendo spostamento tasto, è possibile selezionare più immagini adiacenti facendo clic sulla prima immagine e sull'ultima.

Ora le immagini vengono inserite in blocco e impilate nel foglio di lavoro.

3. Mantieni selezionate queste immagini e ridimensionale in blocco inserendo un nuovo numero in entrambe Larghezza e Altezza caselle in Dimensioni gruppo sul Formato tab. Vedi screenshot:

Ora tutte le immagini inserite vengono modificate contemporaneamente nella stessa dimensione.

4. Al momento è necessario spostare manualmente ciascuna immagine separatamente in un luogo adatto.

Note:: Se ci sono dozzine di immagini impilate, sarà abbastanza dispendioso in termini di tempo spostarle manualmente per adattarle ai luoghi.

Batch inserisci più immagini corrispondenti al contenuto delle celle in Excel

Lo Abbina immagini importate caratteristica di Kutools per Excel, è uno strumento fantastico che può importare in batch e inserire più immagini in base al contenuto della cella e ridimensionare facilmente le immagini importate come le dimensioni della cella o alla dimensione specificata. Prova gratuita completa di 30 giorni!
ad abbina le immagini importate 01

Kutools for Excel - Include più di 300 strumenti utili per Excel. 30 giorni di prova gratuita delle funzionalità complete, nessuna carta di credito richiesta! Get It Now

Inserisci più immagini e ridimensionale in blocco con OneNote

Per evitare di spostare le immagini impilate una per una, questo metodo introduce un altro trucco per inserire più immagini con l'aiuto di OneNote. Si prega di fare quanto segue:

1. Avvia OneNote e crea una nuova pagina. E poi clicca inserire > Immagine.

2. Nella finestra di dialogo Inserisci immagine, apri la cartella contenente le immagini che inserirai, seleziona più immagini di cui hai bisogno e fai clic su inserire pulsante. Vedi screenshot:
Note:: Tenendo Ctrl tasto, è possibile selezionare più immagini non adiacenti facendo clic su di esse una per una; tenendo spostamento tasto, è possibile selezionare più immagini adiacenti facendo clic sulla prima immagine e sull'ultima.

doc inserire più immagini OneNote 032

3. stampa Ctrl + A per selezionare tutte le immagini inserite in OneNote, quindi premere Ctrl + C tasti per copiarli.

4. Vai al foglio di lavoro in Excel e premi Ctrl + V tasti per incollare le immagini nel foglio di lavoro. Ora tutte le immagini vengono incollate verticalmente come mostrato nell'immagine a sinistra.

5. Seleziona una delle immagini e premi Ctrl + A tasti per selezionarli tutti. Quindi ridimensionare le immagini in blocco inserendo nuovi numeri in entrambe Larghezza e Altezza caselle in Dimensioni gruppo sul Formato tab. Vedi screenshot:

Ora tutte le immagini specificate vengono inserite in Excel e ridimensionate alla stessa dimensione in blocco.


Inserisci più immagini in Excel con codice VBA

Con il seguente codice VBA, puoi inserire più immagini nel file Excel cella per cella.

1. Seleziona la prima cella dell'intervallo di destinazione in cui desideri inserire le immagini.

2. Tieni premuto il ALT + F11 chiavi e apre il file Microsoft Visual Basic, Applications Edition finestra.

3. Clic inserire > Moduloe incolla la seguente macro nel file Finestra del modulo.

Sub InsertPictures()
'Update 20140513
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)
xColIndex = Application.ActiveCell.Column
If IsArray(PicList) Then
    xRowIndex = Application.ActiveCell.Row
    For lLoop = LBound(PicList) To UBound(PicList)
        Set Rng = Cells(xRowIndex, xColIndex)
        Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        xRowIndex = xRowIndex + 1
    Next
End If
End Sub

4. Quindi premere il tasto F5 chiave per eseguire questo codice.

5. Nella finestra di dialogo Apri, apri la cartella che contiene le immagini che desideri inserire, seleziona più immagini che inserirai e fai clic su Apri pulsante. E tutte le immagini selezionate sono state importate nella tua selezione in base alle dimensioni della cella. Vedi screenshot:


Inserisci più immagini e regolale automaticamente con Kutools per Excel

Kutools for Excel'S Importa immagini può aiutarti a inserire rapidamente più immagini in Excel in base alle dimensioni della cella o delle dimensioni dell'immagine. Puoi anche specificare l'altezza e la larghezza delle immagini di cui hai bisogno.

Kutools for Excel - Include più di 300 strumenti utili per Excel. 30 giorni di prova gratuita delle funzionalità complete, nessuna carta di credito richiesta! Get It Now

1. Clic Kutools Plus > Importa / Esporta > Importa immagini, vedi screenshot:

2. Nel Importa immagini finestra di dialogo, eseguire le seguenti operazioni:
(1) Specificare l'ordine di visualizzazione delle immagini dal file Ordine di importazione elenco a discesa, puoi scegliere Riempi verticalmente cella dopo cella or Riempi orizzontalmente cella dopo cella.
(2) Fare clic Aggiungi per selezionare i file di immagine o la cartella per aggiungere le immagini all'elenco delle immagini. E tutte le immagini selezionate verranno elencate nella casella di riepilogo.
(3) Fare clic su Dimensione importazione pulsante;

3. Ora nel Importa dimensioni immagine finestra di dialogo, puoi scegliere la dimensione dell'immagine che corrisponde alle tue necessità. Vedi screenshot:

4. Dopo aver specificato la dimensione dell'immagine, fare clic su OK per chiudere questa finestra di dialogo e tornare al file Importa immagini finestra di dialogo, fare clic Importare pulsante per importare le immagini.

5. Nella nuova finestra di dialogo Importa immagini, scegli la prima cella dell'intervallo di destinazione in cui inserirai le immagini e fai clic su OK pulsante.

Al momento, tutte le immagini selezionate sono state inserite nelle celle dalla cella attiva verticalmente o orizzontalmente. Vedi screenshot a destra:

Lo Importa immagini la funzionalità di Kutools per Excel è progettata per inserire un batch di immagini contemporaneamente con le dimensioni della cella corrispondenti, le dimensioni specificate o le dimensioni delle immagini in Excel. Avere una prova gratuita!


Inserisci più immagini corrispondenti ai loro nomi con Kutools per Excel

Kutools per Excel supporta anche un drammatico Abbina immagini importate funzione per abbinare immagini e contenuto di celle e inserire immagini abbinate solo in blocco in Excel.

Kutools for Excel - Include più di 300 strumenti utili per Excel. 30 giorni di prova gratuita delle funzionalità complete, nessuna carta di credito richiesta! Get It Now

1. Seleziona le celle del nome dell'immagine in cui desideri inserire le immagini corrispondenti e fai clic Kutools Plus > Importa / Esporta > Abbina immagini importate. vedi screenshot:

2. Nella finestra di dialogo Abbina immagini importata spuntata, eseguire le seguenti operazioni:
(1) Specificare l'ordine di visualizzazione delle immagini dal file Ordine di importazione menu `A tendina;
(2) Fare clic Aggiungi pulsante per aggiungere le immagini alla casella di riepilogo delle immagini. Per tua informazione, verranno elencate solo le immagini corrispondenti.
(3) Quindi fare clic su Dimensione importazione pulsante.

3. Ora nel Importa dimensioni immagine finestra di dialogo, è possibile scegliere la dimensione dell'immagine che corrisponde alle proprie esigenze e fare clic su Ok pulsante. Vedi screenshot:

4. Ora torni al file Importa immagini finestra di dialogo, fare clic Importare pulsante per importare le immagini.

5. Nella finestra di dialogo Abbina immagini importata che si apre, specificare la prima cella dell'intervallo di destinazione in cui inserire le immagini e fare clic su OK pulsante. Vedi screenshot:

Finora, tutte le immagini sono state inserite nelle celle in base ai loro nomi relativi. Vedi screenshot a destra:

Lo Abbina immagini importate la funzionalità di Kutools per Excel può aiutare gli utenti di Excel a filtrare rapidamente le immagini in base ai valori delle celle e quindi inserire queste immagini in blocco. Inoltre, queste immagini abbinate possono essere ridimensionate automaticamente alla dimensione specificata o alla dimensione della cella. Avere una prova gratuita!


Demo: inserisci più immagini e ridimensionale contemporaneamente in Excel

Kutools for Excel include più di 300 utili strumenti per Excel, da provare gratuitamente senza limitazioni in 30 giorni. Prova gratuita ora!      Acquista ora!


Articoli correlati


I migliori strumenti per la produttività in ufficio

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

  • Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
  • Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
  • Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
  • Più di 300 potenti funzionalità. Supporta Office / Excel 2007-2019 e 365. Supporta tutte le lingue. Facile distribuzione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
scheda kte 201905

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il 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 centinaia di clic del mouse ogni giorno!
fondo officetab
Commenti (47)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
Le istruzioni con il titolo: Inserisci più immagini in Excel con il codice VBA è semplicemente fantastico, veloce ed efficace!!! questa è una buona alternativa per acquistare e installare plugin. Questo è il mio primo commento online!! complimenti!
Questo commento è stato fatto dal moderatore sul sito
Ciao, sono in grado di utilizzare il modulo InsertPictures e funziona correttamente per quanto riguarda jpg. Tuttavia, non vuole funzionare per PNG. Potete per favore consigliare? Saluti, Lorenzo
Questo commento è stato fatto dal moderatore sul sito
Nel primo argomento "Inserisci più immagini in Excel con codice VBA", come inserire un'immagine in due celle. ad esempio, la prima immagine verrà inserita nella cella A1 e A2, la seconda immagine verrà inserita nella cella A3 e A4 e così via.
Questo commento è stato fatto dal moderatore sul sito
buon supporto per Excel.....tu gyus stai davvero aiutando a risparmiare tempo. Grazie
Questo commento è stato fatto dal moderatore sul sito
Ottimo post! Ma ho altri modi per fare la stessa cosa..... ===================================== ============ Sub ipic() Dim i As Integer For i = 2 To 10 Cells(i, 1).Select Dim picname As String picname = Cells(i, 2) ActiveSheet.Pictures. Inserisci("F:\Ram-PC\Macro\MyImage\" & picname & ".jpg").Seleziona con selezione .Left = ActiveCell.Left .Top = ActiveCell.Top .ShapeRange.LockAspectRatio = msoFalse .ShapeRange.Height = 34# .ShapeRange.Width = 80# Fine con intervallo successivo ("a1").Seleziona End Sub
Questo commento è stato fatto dal moderatore sul sito
Esiste una versione di Kuttools per Mac?
Questo commento è stato fatto dal moderatore sul sito
È possibile modificare quel codice vba per inserire 4 immagini in un modello a griglia come questo: pic1 in A1, pic2 in A2, pic3 in B1 e pic4 in B2? Carri armati!
Questo commento è stato fatto dal moderatore sul sito
non importa se ho trovato come farlo :)
Questo commento è stato fatto dal moderatore sul sito
Ciao, potresti condividere il codice modificato?
Questo commento è stato fatto dal moderatore sul sito
Sub InsertPictures() 'Aggiorna 20140513 Dim PicList() As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Error Resume Next PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True) xColIndex = Application.ActiveCell.Column If IsArray(PicList) Quindi xRowIndex = Application.ActiveCell.Row For lLoop = LBound(PicList) To UBound(PicList) Imposta Rng = Cells(xRowIndex, xColIndex) Imposta sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue , Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
Questo commento è stato fatto dal moderatore sul sito
Potresti aiutarmi a modificare il codice per inserire la colonna e la riga unite. Sub InsertPictures() 'Aggiorna 20140513 Dim PicList() As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Error Resume Next PicList = Application.Get OpenFilename(Pi cFormat, MultiSelect:=True) xColIndex = Application.ActiveCell. Colonna If IsArray(PicList ) Quindi xRowIndex = Application.Act iveCell.Row For lLoop = LBound(PicList) To UBound(PicList) Imposta Rng = Cells(xRowIndex , xColIndex) Imposta sShape = ActiveSheet.Sha pes.AddPicture( PicList(lLoop) , msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
Questo commento è stato fatto dal moderatore sul sito
seleziona le celle e ridimensionale per larghezza e altezza secondo le tue esigenze.. se hai dieci foto seleziona dieci celle o più selezionane di più..!! quindi premere Alt+F11 quindi fare clic su INSERT QUINDI fare clic su MODULE POI INCOLLARE IL SEGUENTE CODICE COME È.. Sub InsertPictures() 'Aggiorna 20140513 Dim PicList() As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Error Resume Next PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True) xColIndex = Application.ActiveCell.Column If IsArray(PicList) Quindi xRowIndex = Application.ActiveCell.Row For lLoop = LBound(PicList) To UBound(PicList) Set Rng = Cells( xRowIndex, xColIndex) Imposta sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub DOPO IL SOPRA IL CODICE PREMERE F5 .. POI SELEZIONA I FILE DAL COMPUTER DOVE MAI SONO. SECONDO IL TUO BISOGNO. SE NON HAI SALVATO IL WORKBOOK, TI CHIEDERA' DI SALVARLO. SE LO HAI GIÀ SALVATO. ALLORA IL SUO LAVORO È SPERO CHE QUESTO AIUTA.. Ali..!!
Questo commento è stato fatto dal moderatore sul sito
Grazie mille, funziona
Questo commento è stato fatto dal moderatore sul sito
Ciao EXcel Masters, ho 2 fogli excel. Uno con più di cento immagini e descrizione dell'immagine nella cella successiva. L'altro foglio dopo la selezione probabilmente ne ha lasciato 40 descrizioni. Come posso trasferire le immagini su questo foglio secondo la mia selezione. Grazie al
Questo commento è stato fatto dal moderatore sul sito
oppure usi direttamente image-xls . con questo componente aggiuntivo di Excel puoi inserire un numero illimitato di immagini nella cella di Excel o come commento. ridimensiona anche le tue immagini. ed è possibile ordinare e filtrare il tuo foglio Excel, comprese le Immagini!
Questo commento è stato fatto dal moderatore sul sito
Sono un utente Mac e una volta copiato il codice nel nuovo modulo ed eseguito, non succede nulla. C'è qualcosa che devo fare in mac per eseguire il codice VBA? Grazie
Questo commento è stato fatto dal moderatore sul sito
[quote]o usi direttamente image-xls . con questo componente aggiuntivo di Excel puoi inserire un numero illimitato di immagini nella cella di Excel o come commento. ridimensiona anche le tue immagini. ed è possibile ordinare e filtrare il tuo foglio Excel, comprese le Immagini!Di Armin[/quote] [quote]Le istruzioni con l'intestazione: inserire più immagini in Excel con il codice VBA è semplicemente fantastico, veloce ed efficace !!! questa è una buona alternativa per acquistare e installare plugin. Questo è il mio primo commento online!! complimenti!Di Rahul Gupta[/quote] l'ho provato e sembra funzionare bene, ma non è possibile ordinare o filtrare l'elenco di Excel comprese le foto. anche le foto non sono in scala proporzionale. quindi ho comprato image-xls - costa un po ', ma fa tutto ciò di cui ho bisogno
Questo commento è stato fatto dal moderatore sul sito
Ciao! Qualche motivo per cui "Sub InsertPictures()" non funzionerebbe in Excel 2003? Ho già aggiunto il riferimento a Microsoft.Scripting.Runtime Grazie in anticipo Gilberto
Questo commento è stato fatto dal moderatore sul sito
è molto utile per me. È così bel lavoro....... Grazie
Questo commento è stato fatto dal moderatore sul sito
Ciao, ho provato il codice sul mio foglio di calcolo e ha funzionato perfettamente. Finché non provo a filtrare. Scopri che l'ultima immagine verrà sempre mostrata sul risultato del filtro. qualcuno in grado di aiutare?
Questo commento è stato fatto dal moderatore sul sito
Utilizzando il programma VBA sottostante non è possibile inserire l'immagine nella cella unita, Sub InsertPictures() 'Update 20140513 Dim PicList() As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Error Resume Next PicList = Application.Get OpenFilename(Pi cFormat , MultiSelect:=True) xColIndex = Application.ActiveCell.Column If IsArray(PicList ) Then xRowIndex = Application.Act iveCell.Row For lLoop = LBound(PicList) To UBound(PicList) Imposta Rng = Cells(xRowIndex , xColIndex) Imposta sShape = ActiveSheet.Sha pes.AddPicture( PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub Per favore consigliami di modificare il VBA .
Questo commento è stato fatto dal moderatore sul sito
Ciao a tutti, è fantastico! Seguo da tempo i tuoi tutorial. Quello con cui speravo che tu potessi aiutarmi è, come posso cambiare questo dall'incollare le immagini in una colonna su una riga? E come posso aggiungere il "Nome completo del file (ad esempio example_image.jpg)" alla riga sopra di esso. Riga 'A': "Filename.jpg" Riga 'B': "Miniatura immagine" Grazie!!
Questo commento è stato fatto dal moderatore sul sito
Ehi, ho inserito le immagini usando il mio codice VBE. E ora ho provato a condividerlo con gli altri, purtroppo non riescono a vedere le foto..... Sarei grato se qualcuno potesse dirmi cosa mi sto perdendo. Grazie
Questo commento è stato fatto dal moderatore sul sito
Questo codice funziona QUASI per le mie esigenze. Ho 200 immagini, ogni immagine deve andare sul proprio foglio. Come faccio a farlo?
Questo commento è stato fatto dal moderatore sul sito
Come posso modificare il codice seguente in modo che le immagini vengano popolate in un intervallo selezionato di celle su più colonne e righe anziché in celle consecutive in righe successive nella stessa colonna? Sub InsertPictures() 'Aggiorna 20140513 Dim PicList() As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Error Resume Next PicList = Application.Get OpenFilename(Pi cFormat, MultiSelect:=True) xColIndex = Application.ActiveCell. Colonna If IsArray(PicList ) Quindi xRowIndex = Application.Act iveCell.Row For lLoop = LBound(PicList) To UBound(PicList) Imposta Rng = Cells(xRowIndex , xColIndex) Imposta sShape = ActiveSheet.Sha pes.AddPicture( PicList(lLoop) , msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
Questo commento è stato fatto dal moderatore sul sito
Alguem conseguiu o codego para a pergunta dele? estou precisando também!
Non ci sono ancora commenti pubblicati qui
Carica Altre
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite