Come ridimensionare rapidamente più celle in modo che si adattino perfettamente alle immagini in Excel?
Come sappiamo, Microsoft Excel supporta il ridimensionamento automatico dell’altezza delle righe e della larghezza delle colonne per adattarle al contenuto inserito, come una stringa di testo lunga. Tuttavia, i comandi **Adatta all’oggetto Altezza riga** e **Adatta all’oggetto Larghezza colonna** non funzionano con le immagini, poiché un’immagine inserita non è vincolata a una cella specifica.
Ridimensiona le celle per adattarle alle immagini con VBA
Ridimensiona le immagini per adattarle alle celle con Kutools per Excel
Ridimensiona le celle per adattarle alle immagini con VBA
Supponiamo che in un foglio di lavoro siano presenti due immagini di grandi dimensioni, come illustrato nello screenshot seguente. Potrebbe capitare di voler ridimensionare una cella in modo che si adatti perfettamente a un’immagine posizionata sopra di essa. Ma come si può fare?
Certo! È possibile ridimensionare automaticamente ogni cella in base alle immagini posizionate sopra di essa. Tuttavia, se si dispone di numerose immagini, questa operazione potrebbe rivelarsi noiosa e dispendiosa in termini di tempo. Fortunatamente, possiamo utilizzare una macro VBA per ridimensionare tutte le celle in un colpo solo, adattandole perfettamente alle rispettive immagini sovrastanti. Ecco come procedere:
Passaggio 1: Tieni premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic, Applications.
Passaggio 2: Fai clic su Inserisci > Modulo, quindi incolla la seguente macro nella finestra del modulo.
VBA: Ridimensiona più celle per adattarle perfettamente alle rispettive 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 SubPassaggio 3: Premere il tasto F5 per eseguire questa macro.
Ora, nel foglio di lavoro corrente, se sono presenti immagini, la cella situata sotto ciascuna di esse verrà ridimensionata automaticamente per adattarsi all’immagine posizionata sopra. Vedere lo screenshot seguente:
Ridimensiona le immagini per adattarle alle celle con Kutools per Excel
Hai già regolato le dimensioni delle celle come mostrato nello screenshot seguente e vuoi importare e ridimensionare le immagini in modo che si adattino perfettamente alle celle? In questo caso, la funzione Importa immagini di Kutools per Excel ti permette di gestire questa operazione in modo rapido e semplice.
Dopo aver installato Kutools per Excel, procedere come segue:
1. Fare clic su KUTOOLS PLUS > Importa/Esporta > Importa immagini. Vedere lo screenshot:
2. Nella finestra di dialogo Importa immagini visualizzata, specificare innanzitutto l’Ordine importazione nella relativa sezione, quindi fare clic sul pulsante Aggiungi per aggiungere immagini da una cartella o come file singoli; a questo punto, le immagini verranno elencate nella sezione Immagine. Vedere lo screenshot:
3. Fare quindi clic sul pulsante Importa per visualizzare la finestra di dialogo Dimensione immagine da importare, quindi selezionare l’opzione Dimensione cella abbinata. Vedere lo screenshot:
4. Fare clic su OK > Importa per visualizzare una finestra di dialogo in cui selezionare le celle in cui si desidera importare le immagini. Vedere lo screenshot:
5. Fai clic su OK e ora tutte le immagini verranno importate nelle celle e ridimensionate per adattarsi perfettamente.
Articolo correlato:
Come inserire più immagini in una cella in 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