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

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

Come sappiamo, Microsoft Excel supporta il ridimensionamento automatico dell'altezza della riga e della larghezza della colonna di una cella per adattarla al contenuto pieno, come una lunga stringa di testo. Tuttavia, il comando Adatta altezza riga e il comando Adatta larghezza colonna non sono validi per l'immagine, perché un'immagine inserita non risiede in una cella specifica.

Ridimensiona le celle per adattarle alle immagini con VBA

Ridimensiona le immagini per adattarle alle celle con Kutools per Excel buona idea 3

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.

Ridimensiona le celle per adattarle alle immagini con VBA

Supponendo che ci siano due grandi immagini in un foglio di lavoro, vedere la seguente schermata. Qualcuno potrebbe voler ridimensionare una cella per adattarla a un'immagine sopra la cella. Ma come realizzarlo?

doc-ridimensiona-cella-per-adattare-immagine1

Ovviamente puoi ridimensionare automaticamente ogni cella per adattarla alle immagini sopra di esse. Tuttavia, potrebbe essere noioso e richiedere molto tempo per un certo numero di immagini. In realtà, possiamo applicare una macro VB per ridimensionare tutte le celle per adattarle alle immagini sopra di esse. Puoi farlo con i seguenti passaggi:

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

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

VBA: ridimensiona più celle per adattarle alle immagini.

Sub ResizePictureCells()
For Each Picture In ActiveSheet.DrawingObjects
PictureTop = Picture.Top
PictureLeft = Picture.Left
PictureHeight = Picture.Height
PictureWidth = Picture.Width
For N = 2 To 256
If Columns(N).Left > PictureLeft Then
PictureColumn = N - 1
Exit For
End If
Next N
For N = 2 To 65536
If Rows(N).Top > PictureTop Then
PictureRow = N - 1
Exit For
End If
Next N
Rows(PictureRow).RowHeight = PictureHeight
Columns(PictureColumn).ColumnWidth = PictureWidth * (54.29 / 288)
Picture.Top = Cells(PictureRow, PictureColumn).Top
Picture.Left = Cells(PictureRow, PictureColumn).Left
Next Picture
End Sub

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

Ora nel foglio di lavoro corrente, se ci sono immagini, la cella sotto un'immagine verrà ridimensionata per adattarsi all'immagine sopra di essa. Vedi lo screenshot seguente:

doc-ridimensiona-cella-per-adattare-immagine2


Ridimensiona le immagini per adattarle alle celle con Kutools per Excel

Se hai regolato la dimensione delle celle come mostrato nell'immagine sottostante e quindi desideri importare e ridimensionare le immagini per adattarle alle dimensioni delle celle, come puoi farlo rapidamente? In questo caso, Kutools for Excel's Importa immagini può aiutarti a gestire facilmente questo lavoro.
doc ridimensiona immagine adatta cella 1

Kutools for Excel, con oltre 120 funzioni utili, semplifica il tuo lavoro. 

Dopo l'installazione Kutools per Excel, per favore fai come di seguito :(Scarica subito Kutools per Excel!)

1. Clic Impresa > Import / Export > Importa immagini. Vedi screenshot:
doc ridimensiona immagine adatta cella 2

2. Nel popping Importa immagini finestra di dialogo, è possibile specificare prima l'ordine di importazione in Ordine di importazione sezione, quindi fare clic su Aggiungi pulsante per aggiungere le immagini dalla cartella o come file una per una, quindi puoi vedere le immagini nell'elenco Immagine sezione. Vedi screenshot:
doc ridimensiona immagine adatta cella 3

3. Quindi fare clic Importare pulsante per mostrare Importa dimensioni immagine finestra di dialogo, quindi seleziona Dimensione della cella corrispondente opzione. Vedi screenshot:
doc ridimensiona immagine adatta cella 4

4. Clic OK > Importare per visualizzare una finestra di dialogo per selezionare le celle in cui importare le immagini. Vedi screenshot:
doc ridimensiona immagine adatta cella 5

5. Clic OK, e ora tutte le immagini vengono importate nelle celle e ridimensionate le loro dimensioni in celle fite.
doc ridimensiona immagine adatta cella 6


Articolo correlato:
Come inserire più immagini nella cella 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 (4)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
Ciao, grande macro - piccola correzione con maggiore OR EQUAL nella riga 16 If Rows(N).Top >= PictureTop Then
Questo commento è stato fatto dal moderatore sul sito
Ciao Grazie per la macro. Tuttavia, non riesco a lavorare nel mio computer. Uso Excel 2011 per Mac Qualche idea? Grazie
Questo commento è stato fatto dal moderatore sul sito
Ottimo e tutto, ma avevo già le foto nelle celle e usando la prima opzione è stato cancellato come il 99% di tutte le foto già presenti. Nessuno è stato risparmiato tranne una foto che è stata ridimensionata magnificamente, tranne per il fatto che la larghezza della foto era un po' sottile.
Questo commento è stato fatto dal moderatore sul sito
Come sei arrivato alla formula (Columns(PictureColumn).ColumnWidth = PictureWidth * (54.29 / 288))? È vicino ma c'è ancora uno spazio vuoto a destra come mostrato nello screenshot.
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