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

Come ridimensionare le immagini per adattarle alle celle in Excel?

Le immagini normalmente inserite fluttuano sulle celle e la maggior parte delle volte un'immagine copre molte celle. Se un foglio di lavoro ha un numero elevato di immagini, potresti voler inserire ciascuna immagine in una singola cella. Ma come affrontarlo? In realtà, ci sono diversi modi complicati per aiutarci a ridimensionare le immagini per adattarle rapidamente alle dimensioni delle celle.

Ridimensiona un'immagine selezionata per adattarla a una singola cella con VB Macro

Ridimensiona le immagini inserite per adattarle alle celle con Kutools per Excel

Scheda Office Abilita la modifica a schede e la navigazione in Office e semplifica notevolmente il lavoro ...
Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%
  • Riutilizza qualsiasi cosa: Aggiungi le formule, i grafici e qualsiasi altra cosa più usati o complessi ai tuoi preferiti e riutilizzali rapidamente in futuro.
  • Più di 20 funzioni di testo: Estrai numero dalla stringa di testo; Estrai o rimuovi parte di testi; Converti numeri e valute in parole inglesi.
  • Unisci strumenti: Più cartelle di lavoro e fogli in uno; Unisci più celle / righe / colonne senza perdere dati; Unisci righe duplicate e somma.
  • Strumenti di divisione: Suddivisione dei dati in più fogli in base al valore; Una cartella di lavoro su più file Excel, PDF o CSV; Da una colonna a più colonne.
  • Incolla Salto Righe nascoste / filtrate; Count And Sum di Background Color; Invia e-mail personalizzate a più destinatari in blocco.
  • Super filtro: Crea schemi di filtri avanzati e applicali a qualsiasi foglio; Riordina per settimana, giorno, frequenza e altro; Filtro in grassetto, formule, commenti ...
  • Più di 300 potenti funzionalità; Funziona con Office 2007-2021 e 365; Supporta tutte le lingue; Facile implementazione nella tua azienda o organizzazione.

freccia blu freccia destra Ridimensiona un'immagine selezionata per adattarla a una singola cella con VB Macro

Possiamo applicare le macro VB per ridimensionare un'immagine selezionata per adattarla a una singola cella, ma non ridimensionare manualmente la larghezza e l'altezza di un'immagine. Puoi farlo con i seguenti passaggi:

Passaggio 1: inserisci le immagini in un foglio di lavoro e seleziona un'immagine che ridimensionerai per adattarla a una singola cella.

doc-ridimensiona-immagini-per-adattare-celle1

Passo 2: tieni premuto il tasto ALT + F11 chiavi e apre il file Microsoft Visual Basic, Applications Edition finestra.

Passo 3: fare clic inserire > Moduloe incolla la seguente macro nella finestra del modulo.

VBA: ridimensiona un'immagine selezionata per adattarla a una cella.

Public Sub FitPic()
On Error GoTo NOT_SHAPE
Dim PicWtoHRatio As Single
Dim CellWtoHRatio As Single
With Selection
PicWtoHRatio = .Width / .Height
End With
With Selection.TopLeftCell
CellWtoHRatio = .Width / .RowHeight
End With
Select Case PicWtoHRatio / CellWtoHRatio
Case Is > 1
With Selection
.Width = .TopLeftCell.Width
.Height = .Width / PicWtoHRatio
End With
Case Else
With Selection
.Height = .TopLeftCell.RowHeight
.Width = .Height * PicWtoHRatio
End With
End Select
With Selection
.Top = .TopLeftCell.Top
.Left = .TopLeftCell.Left
End With
Exit Sub
NOT_SHAPE:
MsgBox "Select a picture before running this macro."
End Sub

Passo 4: premere il tasto F5 chiave per eseguire questa macro.

Passaggio 5: ripetere i passaggi precedenti per ridimensionare altre immagini per adattarle a una singola cella.

Ora tutte le immagini inserite vengono ridimensionate e si adattano alle celle. Vedi lo screenshot seguente:

doc-ridimensiona-immagini-per-adattare-celle2

Note:: È possibile ridimensionare solo un'immagine una volta. Se selezioni più di un'immagine una volta, verrà visualizzata una finestra di dialogo di avviso.


freccia blu freccia destra Ridimensiona le immagini inserite per adattarle alle celle con Kutools per Excel

Se si dispone di Kutools for Excel installato, puoi applicarlo Importa immagini strumento per ridimensionare tutte le immagini per adattarle alle celle o con altezza fissa durante l'inserimento delle immagini.

Kutools for Excel include più di 300 utili strumenti Excel. Prova gratuita senza limitazioni per 30 giorni. Get it Now.

Passaggio 1: selezionare le celle dell'intervallo in cui si desidera inserire le immagini e fare clic su Impresa >Import / Export > Importa immagini. Vedi lo screenshot seguente:

doc-ridimensiona-immagine-per-adattare-cella-1

Passaggio 2: in Importa immagini finestra di dialogo, selezionare l'ordine di inserimento nell'elenco a discesa e fare clic su Aggiungi pulsante per aggiungere le immagini necessarie dal file o dalla cartella, quindi fare clic su Dimensioni pulsante. Vedi screenshot:

doc-ridimensiona-immagine-per-adattare-cella-2

Passo 3: controllare Dimensione della cella corrispondente opzione. Quindi fare clic Ok > Importare per chiudere le finestre di dialogo. Vedi screenshot:

doc-ridimensiona-immagine-per-adattare-cella-3

Ora puoi vedere che le immagini sono inserite per adattarsi alle celle.

doc-ridimensiona-immagine-per-adattare-cella-4

Note:: Puoi anche specificare l'altezza e la larghezza della cella nel passaggio 3 per ridimensionare le immagini.

Se vuoi saperne di più su questo Importa immagine caratteristica, visita per saperne di più, clicca qui.


Articolo correlato:

Come ridimensionare più celle per adattare rapidamente le immagini sopra di esse in Excel?


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-2021 e 365. Supporta tutte le lingue. Facile implementazione 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 ogni giorno centinaia di clic del mouse!
fondo officetab
Commenti (15)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
La macro FitPic indicata sopra è Sweeteeeeet! Ho scattato un sacco di foto di oggetti in vendita in garage che alla fine sono andati all'Esercito della Salvezza. Ho documentato immagini e valori ai fini fiscali di Excel. Questa macro ha funzionato per la prima volta! :lol:
Questo commento è stato fatto dal moderatore sul sito
Istruzioni per Excel
Questo commento è stato fatto dal moderatore sul sito
Grazie è stato perfetto!!
Questo commento è stato fatto dal moderatore sul sito
Lavori!! Ma ho una domanda, voglio inserire un img in un intervallo di celle unite, come posso farlo?
Questo commento è stato fatto dal moderatore sul sito
[quote]Funziona!! Ma ho una domanda, voglio inserire un img in un intervallo di celle unite, come posso farlo?Di Marcello[/quote] Marcelo hai ricevuto il marco aggiornato per la cella unita? Sto cercando di fare la stessa cosa. Grazie
Questo commento è stato fatto dal moderatore sul sito
Ho provato questa macro ieri sera e regola solo l'altezza. La larghezza non è errato. Qualche aiuto per favore?
Questo commento è stato fatto dal moderatore sul sito
Pubblico Sub FitPic()
'https://www.extendoffice.com/documents/excel/1060-excel-resize-picture-to-fit-cell.html
'Leggera modifica per ridimensionare in celle unite
In caso di errore Vai a NOT_SHAPE
Dim PicWtoHRatio come singolo
Dim CellWtoHRatio come singolo
Con la selezione
PicWtoHRatio = .Larghezza / .Altezza
Fine Con
Con Selection.TopLeftCell
CellWtoHRatio = .MergeArea.Width / .MergeArea.Height
Fine Con
Selezionare Caso PicWtoHRatio / CellWtoHRatio
Il caso è > 1
Con la selezione
.Width = .TopLeftCell.MergeArea.Width
.Altezza = .Larghezza/Rapporto PicWtoHR
Fine Con
Case Else
Con la selezione
.Altezza = .TopLeftCell.MergeArea.Height
.Larghezza = .Altezza * PicWtoHRatio
Fine Con
End Select
Con la selezione
.Top = .TopLeftCell.MergeArea.Top
.Left = .TopLeftCell.MergeArea.Left
.Posizionamento = xlMoveAndSize
Fine Con
Exit Sub
NON_FORMA:
MsgBox "Seleziona un'immagine prima di eseguire questa macro."
End Sub
Questo commento è stato fatto dal moderatore sul sito
Grazie ha funzionato ma ho circa 500 foto quindi non voglio farle una alla volta - come faccio a farle tutte allo stesso tempo, per favore?
Questo commento è stato fatto dal moderatore sul sito
Ciao, adoro questa macro che adatta le immagini alle celle, mi ha davvero aiutato con alcune cose di lavoro. Ma qualcuno sa come scrivere questo codice per applescript? Devo usare Mac e la versione Apple di Excel, Numbers, usa solo AppleScript. Aiuto! Molte grazie, Harry
Questo commento è stato fatto dal moderatore sul sito
funziona se le celle non sono unite. sfortunatamente, ho unito alcune celle e si adatta solo alla cella in alto a sinistra, il che rende la foto molto piccola.
Questo commento è stato fatto dal moderatore sul sito
Brillante! Funziona alla grande! Proprio quello che stavo cercando! Grazie!
Questo commento è stato fatto dal moderatore sul sito
Ciao ..
soluzione perfetta. Ma voglio che quella funzione funzioni con il pulsante di comando. ho bisogno di creare un pulsante di comando per inserire e ridimensionare automaticamente alla dimensione della cella. per favore aiuto.
Questo commento è stato fatto dal moderatore sul sito
Ciao, ho bisogno di questo codice per disabilitare le proporzioni del blocco
Questo commento è stato fatto dal moderatore sul sito
Grazie, funziona davvero!
Questo commento è stato fatto dal moderatore sul sito
La macro posiziona l'immagine "Immagine 2" al centro della cella ("D5"), anche se questa è unita ad altre celle. Spero possa esservi utile

Sub ImpFoto()
Dim hcell As Single ' altezza cella
Dim Lcell come singola 'larghezza cella
Dim hfoto As Single ' altezza foto
Dim Lfoto come singola 'larghezza foto
Dim Rfoto Come unico 'rapporto foto h/L

Intervallo ("D5").Seleziona

hcell = Selezione.Altezza
Lcella = Selezione.Larghezza
hfoto = ActiveSheet.Shapes("Immagine 2").Altezza
Lfoto = ActiveSheet.Shapes("Immagine 2").Larghezza
Foto = foto / foto

Se hfoto < Lfoto Allora
Lfoto = Lcella - 10
hfoto = Lfoto * Rfoto

Se hfoto > hcell Allora
hfoto = hcella - 3
Lfoto = foto / Rfoto
End If

ActiveSheet.Shapes("Immagine 2").Altezza = hfoto
ActiveSheet.Shapes("Immagine 2").Larghezza = Lfoto
Altro
hfoto = hcella - 10
Lfoto = foto / Rfoto
ActiveSheet.Shapes("Immagine 2").Altezza = hfoto
ActiveSheet.Shapes("Immagine 2").Larghezza = Lfoto
End If

Intervallo ("D5").Seleziona

Con ActiveSheet.Shapes("Immagine 2")
.Alto = Selezione.Alto + (Selezione.Altezza - .Altezza) / 2
.Sinistra = Selezione.Sinistra + (Selezione.Larghezza - .Larghezza) / 2
Fine Con
End Sub
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite

Seguici

Copyright © 2009 - www.extendoffice.com. | Tutti i diritti riservati. Offerto da ExtendOffice, | Mappa del sito
Microsoft e il logo Office sono marchi o marchi registrati di Microsoft Corporation negli Stati Uniti e / o in altri paesi.
Protetto da Sectigo SSL