Suggerimento: le altre lingue sono tradotte da Google. Puoi visitare il English versione di questo link.
Connetti
x
or
x
x
Registratevi
x

or

Come ridimensionare le immagini per adattarle alle celle in Excel?

Normalmente le immagini inserite galleggiano sopra le celle e la maggior parte delle volte una foto copre un sacco di 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 Macro VB

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

Scheda Office Abilita la modifica e la navigazione a schede in Office e semplifica notevolmente il tuo lavoro ...
Kutools per Excel risolve la maggior parte dei problemi e aumenta la produttività del 80%
  • Riutilizzare qualsiasi cosa: Aggiungi le formule più utilizzate o complesse, i grafici e qualsiasi altra cosa ai tuoi preferiti e riutilizzali rapidamente in futuro.
  • Più delle funzioni di testo di 20: Estrai numero da 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 per più file Excel, PDF o CSV; Una colonna a più colonne ...
  • Incolla Saltare Righe nascoste / filtrate; Conte E Somma per colore di sfondo; Crea una mailing list e Invia e-mail in base al valore della cella...
  • Super filtro: Crea schemi di filtro avanzati e applica a tutti i fogli; Ordinare per settimana, giorno, frequenza e altro; Filtro da grassetto, formule, commento ...
  • Oltre alle potenti funzionalità di 300; Funziona con Office 2007-2019 e 365; Supporta tutte le lingue; Facile implementazione nella tua azienda o organizzazione.

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


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

Passo 1: inserisci le immagini in un foglio di lavoro e seleziona un'immagine che verrà ridimensionata per adattarla a una singola cella.

doc-ridimensionamento-immagini-to-fit-cells1

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

Passo 3: fare clic inserire > Moduloe incollare 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.

Passo 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 la seguente schermata:

doc-ridimensionamento-immagini-to-fit-cells2

Note: È possibile ridimensionare una sola immagine una volta. Se si seleziona più di una immagine una volta, verrà visualizzata una finestra di dialogo di avviso.


freccia blu bolla 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 ad altezza fissa durante l'inserimento delle immagini.

Kutools for Excel include più di 300 utili strumenti di Excel. Libero di provare senza limiti nei giorni 30. Get it Now.

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

doc-ridimensionamento-picture-to-fit-cell-1

Passo 2: nel Importa immagini finestra di dialogo, selezionare l'ordine di inserimento nell'elenco a discesa e fare clic su aggiungere per aggiungere le immagini necessarie da file o cartelle, quindi fare clic su Dimensione/taglia pulsante. Vedi screenshot:

doc-ridimensionamento-picture-to-fit-cell-2

Passo 3: controllare Dimensione della cella corrispondente opzione. Quindi fare clic Ok > Importare per chiudere i dialoghi. Vedi screenshot:

doc-ridimensionamento-picture-to-fit-cell-3

Ora puoi vedere le immagini inserite per adattarle alle celle.

doc-ridimensionamento-picture-to-fit-cell-4

Note: È inoltre possibile 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, si prega di visitare qui.


Articolo correlato:

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


Kutools per Excel risolve la maggior parte dei problemi e aumenta la produttività del 80%

  • Riutilizzo: Inserire rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Cifra le celle con password; Crea mailing list e invia email ...
  • Super Formula Bar (modifica facilmente più righe di testo e formula); Layout di lettura (leggere e modificare facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere i dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Previeni celle duplicate; Confronta le gamme...
  • Seleziona Duplica o Unica Righe; Seleziona righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molti libri di esercizi; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento alla formula; Creazione automatica di riferimenti a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • estrarre il testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare subtotali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtro ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale di grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle basate su colonne chiave; Dividi i dati in più fogli; Converti in batch xls, xlsx e PDF...
  • Oltre alle potenti funzionalità di 300. Supporta Office / Excel 2007-2019 e 365. Supporta tutte le lingue. Facile implementazione nella tua azienda o organizzazione. Funzioni complete di prova gratuita di 30-day.
kte tab 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, Editore, accesso, Visio e progetto.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la tua produttività di 50% e riduce centinaia di clic del mouse per te ogni giorno!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Syed Waqas Gillani · 7 months ago
    Hi..
    perfact solution. But i want that function to work with command button. i need to make a command button to insert and auto resize to cell size. please help.
  • To post as a guest, your comment is unpublished.
    Shripad Lale · 2 years ago
    Brilliant! Works great! Just what I was looking for! Thank you!
  • To post as a guest, your comment is unpublished.
    claus · 2 years ago
    it works if the cells are not merged. unfortunately, I merged some cells and it fits only in the upper left cell which makes the photo very tiny.
  • To post as a guest, your comment is unpublished.
    Harry · 3 years ago
    Hi, I really love this macro that makes images fit cells, it really helped me with some work stuff. But does anyone know how to write this code for applescript? I have to use macs and the apple version of excel, Numbers, only uses applescript.
    Help!
    Many thanks,
    Harry
  • To post as a guest, your comment is unpublished.
    Carol · 3 years ago
    Thanks it did work but I have about 500 pictures so I don't want to do them one at a time - how do I do them all at the same time please?
  • To post as a guest, your comment is unpublished.
    Marcelo · 4 years ago
    Works!!
    But i have one question, i want to fit a img in a range of cells merged, how can i do it?
    • To post as a guest, your comment is unpublished.
      Nick · 2 years ago
      Public Sub FitPic()
      'https://www.extendoffice.com/documents/excel/1060-excel-resize-picture-to-fit-cell.html
      'Slight modification to resize into merged cells
      On Error GoTo NOT_SHAPE
      Dim PicWtoHRatio As Single
      Dim CellWtoHRatio As Single
      With Selection
      PicWtoHRatio = .Width / .Height
      End With
      With Selection.TopLeftCell
      CellWtoHRatio = .MergeArea.Width / .MergeArea.Height
      End With
      Select Case PicWtoHRatio / CellWtoHRatio
      Case Is > 1
      With Selection
      .Width = .TopLeftCell.MergeArea.Width
      .Height = .Width / PicWtoHRatio
      End With
      Case Else
      With Selection
      .Height = .TopLeftCell.MergeArea.Height
      .Width = .Height * PicWtoHRatio
      End With
      End Select
      With Selection
      .Top = .TopLeftCell.MergeArea.Top
      .Left = .TopLeftCell.MergeArea.Left
      .Placement = xlMoveAndSize
      End With
      Exit Sub
      NOT_SHAPE:
      MsgBox "Select a picture before running this macro."
      End Sub
    • To post as a guest, your comment is unpublished.
      Christina · 3 years ago
      [quote name="Marcelo"]Works!!
      But i have one question, i want to fit a img in a range of cells merged, how can i do it?[/quote]

      Marcelo did you get the updated marco for the merged cell? I am trying to do the same thing.

      thanks
  • To post as a guest, your comment is unpublished.
    Monika · 5 years ago
    Thank you this was perfect!!
  • To post as a guest, your comment is unpublished.
    lucy · 5 years ago
    Instructions for Excel
  • To post as a guest, your comment is unpublished.
    Jim Abramczyk · 5 years ago
    FitPic macro noted above is Sweeeeeet!
    I took a bunch of pictures of garage sale items that eventually went to Salvation Army. I documented pictures and values in Excel tax purposes. This macro worked first time! :lol: