Immagini in Excel: inserisci, ridimensiona, salva, elimina più immagini o foto in Excel

Per la maggior parte degli utenti è semplice inserire immagini salvate sul computer nel foglio di lavoro. Procedi così:

1. Nel foglio di lavoro, fai clic nel punto in cui desideri inserire le immagini.

2. Poi, clicca su Inserisci > Immagini > Questo dispositivo, vedi screenshot:

3. Nella finestra Inserisci immagine che si apre, apri la cartella che contiene le immagini, quindi tieni premuto il tasto Ctrl per selezionare le immagini che vuoi inserire, vedi screenshot:

4. Poi, clicca sul pulsante Inserisci, le immagini selezionate saranno inserite nel foglio. Ora puoi regolare o ridimensionare le immagini in base alle celle desiderate, vedi screenshot:

Se disponi di Excel2013 o versioni successive, puoi inserire immagini dal web o da OneDrive. Procedi così:

1. Nel foglio di lavoro, fai clic nel punto in cui desideri inserire le immagini.

2. Poi, clicca su Inserisci > Immagini > Immagini online, vedi screenshot:

3. Verrà visualizzata una finestra. Nella sezione Immagini online, digita ciò che stai cercando nella casella di testo e premi Invio. Tutte le immagini corrispondenti verranno mostrate, vedi screenshot:

4. Poi, seleziona le immagini desiderate e clicca su Inserisci. Dopo averle inserite, ridimensionali o posizionale dove necessario.

Il seguente codice VBA può aiutarti a inserire più immagini nelle celle in base alla dimensione delle celle. Procedi così:

1. Regola la dimensione delle celle dove vuoi inserire l'immagine, quindi seleziona le celle.

2. Poi, tieni premuti i tasti ALT + F11 per aprire la finestra Microsoft Visual Basic for Applications.

3. Clicca su Inserisci > Modulo e incolla la macro seguente nella finestra del Modulo.

Codice VBA: inserisci più immagini in base alla dimensione delle celle

Sub InsertPictures()
'Updateby Extendoffice
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. Poi premi il tasto F5 per eseguire il codice. Nella finestra Apri, scegli la cartella che contiene le immagini, seleziona le immagini che vuoi inserire e clicca su Apri. Tutte le immagini selezionate saranno inserite nella selezione in base alla dimensione delle celle. Vedi screenshot:

Se non hai familiarità con il codice VBA, puoi utilizzare una funzione avanzata – Importa immagini di Kutools per Excel. Con questa funzione puoi importare rapidamente e facilmente più immagini nelle celle.

1. Clicca su Kutools Plus > Importa & Esporta > Importa immagini, vedi screenshot:

2. Nella finestra Importa immagini che si apre, esegui le seguenti operazioni:

• Specifica l'ordine delle immagini dal menu Ordine importazione, puoi scegliere Riempi per Colonna, quindi per Riga oppure Riempi per Riga, quindi per Colonna;
• Poi, clicca sul pulsante Aggiungi per selezionare i file immagine o la cartella da aggiungere all'elenco immagini;
• Clicca sul pulsante Dimensione importazione, nella finestra Dimensione importazione immagini seleziona l'opzione Dimensione cella abbinata.
• 

3. Dopo aver completato le impostazioni, clicca su Importa, e ora si aprirà un'altra finestra Importa immagini: specifica le celle di destinazione in cui importare le immagini, vedi screenshot:

4. Poi, clicca su OK, tutte le immagini selezionate saranno inserite adattandosi alla dimensione delle celle specifiche come mostrato nello screenshot:

Il seguente codice VBA può aiutarti a inserire rapidamente più immagini abbinate ai loro nomi, procedi così:

1. Tieni premuti i tasti ALT + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo e incolla la macro seguente nella finestra del Modulo.

Codice VBA: inserisci più immagini abbinate ai loro nomi

Sub InserPictureByName()
'Updateby Extendoffice
Dim xFDObject As FileDialog
Dim xStrPath, xStrPicPath As String
Dim xRgName, xRgInser, xRg, xRgI As Range
Dim xFNum As Integer
Set xFDObject = Application.FileDialog(msoFileDialogFolderPicker)
With xFDObject
    .Title = "Please select the folder:"
    .InitialFileName = Application.ActiveWorkbook.Path
    .Show
    .AllowMultiSelect = False
End With
On Error Resume Next
xStrPath = ""
xStrPath = xFDObject.SelectedItems.Item(1)
If xStrPath = "" Then
Exit Sub
End If
Set xRgName = Application.InputBox("Please select the cells contain the image name:", "Kutools for Excel", , , , , , 8)
If xRgName Is Nothing Then
    MsgBox "No cells are select, exit operation! ", vbInformation, "Kutools for Excel"
    Exit Sub
End If
Set xRgInser = Application.InputBox("Please select the cells to output the images", "Kutools for Excel", , , , , , 8)
If xRgInser Is Nothing Then
    MsgBox " No cells are select, exit operation.! ", vbInformation, "Kutools for Excel"
    Exit Sub
End If
For xFNum = 1 To xRgName.Count
    Set xRg = xRgName.Item(xFNum)
    Set xRgI = xRgInser.Item(xFNum)
    xStrPicPath = xStrPath & "\" & xRg.Text & ".png"
    If Not Dir(xStrPicPath, vbDirectory) = vbNullString Then
        With xRgI.Parent.Pictures.Insert(xStrPicPath)
            .Left = xRgI.Left
            .Top = xRgI.Top
            .ShapeRange.LockAspectRatio = msoFalse
            .ShapeRange.Height = 60
            .ShapeRange.Width = 60
        End With
    End If
Next
End Sub

Nota: Nel codice sopra puoi modificare altezza e larghezza delle immagini tramite gli script “.ShapeRange.Height =60”, “.ShapeRange.Width =60” secondo le tue necessità.

3. Poi, premi il tasto F5 per eseguire il codice e nella finestra che si apre seleziona la cartella che contiene le immagini da inserire, vedi screenshot:

4. Poi, clicca su OK, si aprirà una finestra di dialogo: seleziona le celle che contengono i nomi delle immagini, vedi screenshot:

5. Continua cliccando OK, si aprirà un'altra finestra di dialogo: seleziona le celle dove vuoi posizionare le immagini, vedi screenshot:

6. Infine, clicca su OK e le immagini saranno inserite nelle celle in base ai loro nomi, vedi screenshot:

Se hai Kutools per Excel, con la funzione Abbinamento importa immagini puoi inserire rapidamente e facilmente le immagini in base ai nomi delle immagini.

1. Clicca su Kutools Plus > Importa & Esporta > Abbinamento importa immagini, vedi screenshot:

2. Nella finestra di dialogo Abbinamento importa immagini che si apre, esegui le seguenti operazioni:

• Specifica l'ordine delle immagini dal menu Ordine importazione, puoi scegliere Riempi per Colonna, quindi per Riga oppure Riempi per Riga, quindi per Colonna;
• Poi, dalla casella di testo Intervallo abbinamento, seleziona i nomi delle immagini su cui vuoi basare l'inserimento;
• Poi, clicca sul pulsante Aggiungi per selezionare i file immagine o la cartella da aggiungere all'elenco immagini;
• Successivamente, devi specificare la dimensione delle immagini. Clicca su Dimensione importazione, nella finestra Dimensione importazione immagini seleziona la dimensione desiderata.
• 

3. Dopo aver completato le impostazioni, clicca su Importa, scegli una cella o un elenco di celle dove posizionare le immagini dalla finestra Abbinamento importa immagini che si apre, vedi screenshot:

4. Poi, clicca su OK e tutte le immagini i cui nomi corrispondono ai valori delle celle saranno inserite, vedi screenshot:

Applica il seguente codice VBA per inserire le immagini in base a un elenco di URL.

1. Prima di tutto, regola la dimensione delle celle adiacenti dove vuoi posizionare le immagini.

2. Tieni premuti i tasti ALT + F11 per aprire la finestra Microsoft Visual Basic for Applications.

3. Clicca su Inserisci > Modulo e incolla la macro seguente nella finestra del Modulo.

Codice VBA: inserisci immagini da un elenco di URL

Sub URLPictureInsert()
'Updateby Extendoffice
Dim Pshp As Shape
Dim xRg As Range
Dim xCol As Long
On Error Resume Next
Application.ScreenUpdating = False
Set Rng = ActiveSheet.Range("A2:A5")
For Each cell In Rng
filenam = cell
ActiveSheet.Pictures.Insert(filenam).Select
Set Pshp = Selection.ShapeRange.Item(1)
If Pshp Is Nothing Then GoTo lab
xCol = cell.Column + 1
Set xRg = Cells(cell.Row, xCol)
With Pshp
.LockAspectRatio = msoFalse
If .Width > xRg.Width Then .Width = xRg.Width * 2 / 3
If .Height > xRg.Height Then .Height = xRg.Height * 2 / 3
.Top = xRg.Top + (xRg.Height - .Height) / 2
.Left = xRg.Left + (xRg.Width - .Width) / 2
End With
lab:
Set Pshp = Nothing
Range("A2").Select
Next
Application.ScreenUpdating = True
End Sub

Note: Nel codice sopra, A2:A5 è l'intervallo di celle che contiene gli indirizzi URL da cui vuoi estrarre le immagini. Modifica i riferimenti alle celle secondo le tue necessità.

4. Poi premi il tasto F5 per eseguire il codice: le immagini corrispondenti saranno estratte dagli URL nella colonna adiacente e posizionate al centro delle celle, vedi screenshot:

Kutools per Excel offre una funzione straordinaria – Inserisci immagini da percorso (URL). Con questa utility, le immagini corrispondenti verranno estratte dagli URL in modo rapido e semplice.

1. Clicca su Kutools > Inserisci > Inserisci immagini da percorso (URL), vedi screenshot:

2. Nella finestra Inserisci immagini da percorso (URL) che si apre, imposta le seguenti opzioni:

• Seleziona l'elenco delle celle con URL e un intervallo di celle dove vuoi inserire le immagini;
• Specifica la dimensione delle immagini desiderata dalla sezione Dimensione immagine.
• 

3. Poi, clicca su Ok, tutte le immagini saranno estratte dagli URL, vedi screenshot:

Puoi applicare il seguente codice VBA per inserire immagini in base ai percorsi dei file immagine.

1. Tieni premuti i tasti ALT + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo e incolla il codice seguente nella finestra del Modulo.

Codice VBA: inserisci immagini da un intervallo di percorsi file

Sub InsertPicFromFilePath()
'Updateby Extendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xVal As String
    On Error Resume Next
    Set xRg = Application.InputBox("Please select file path cells:", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xVal = xCell.Value
        If xVal <> "" Then
            ActiveSheet.Shapes.AddPicture xCell.Value, msoFalse, msoTrue, _
            xCell.Offset(0, 1).Left, xCell.Top, xCell.Height, _
            xCell.Height
        End If
    Next
    Application.ScreenUpdating = True
End Sub

3. Dopo aver inserito il codice sopra, premi F5 per eseguirlo: si aprirà una finestra di dialogo, seleziona le celle con i percorsi dei file, vedi screenshot:

4. Poi clicca su OK, tutte le immagini in base ai percorsi file saranno visualizzate nella colonna successiva come mostrato nello screenshot:

La funzione Inserisci immagini da percorso (URL) di Kutools per Excel può anche aiutarti a visualizzare le immagini relative dal percorso file.

1. Clicca su Kutools > Inserisci > Inserisci immagini da percorso (URL), nella finestra che si apre specifica l'intervallo dei percorsi file, l'intervallo di destinazione per le immagini e la dimensione desiderata, vedi screenshot:

2. Dopo aver impostato le opzioni, clicca su Ok: le immagini saranno inserite nelle celle selezionate immediatamente, vedi screenshot:

Suggerimento: a volte potresti notare che l'immagine si sovrappone all'area dati del foglio di lavoro come mostrato nello screenshot. Questo accade perché l'immagine è troppo grande e non viene ridimensionata automaticamente per adattarsi alla sezione di intestazione o piè di pagina.

Per risolvere questo problema, basta ridimensionare l'immagine nell'intestazione o nel piè di pagina seguendo questi passaggi:

1. Clicca nella sezione di intestazione o piè di pagina dove si trova l'immagine, poi clicca su Formatta immagine sotto la scheda Progettazione, vedi screenshot:

2. Nella finestra Formatta immagine, sotto la scheda Dimensioni, regola la dimensione dell'immagine per adattarla alla sezione di intestazione o piè di pagina, vedi screenshot:

3. Poi, clicca su OK per ottenere il risultato desiderato.

1. Apri il foglio di lavoro dove vuoi inserire un'immagine di sfondo.

2. Poi, clicca su Layout di pagina > Sfondo, vedi screenshot:

3. Nella finestra Inserisci immagini che si apre, scegli un'immagine dal computer, dal sito web o da OneDrive secondo necessità, vedi screenshot:

4. Ora l'immagine è stata inserita come sfondo nel foglio di lavoro come mostrato nello screenshot:

Con il metodo sopra non puoi modificare la trasparenza dell'immagine di sfondo inserita, quindi se il colore dell'immagine è intenso potrebbe essere difficile leggere i dati del foglio. In questa sezione ti mostro come inserire un'immagine trasparente dietro le celle.

1. Clicca su Inserisci > Forme e seleziona un rettangolo, vedi screenshot:

2. Poi, disegna una forma della dimensione desiderata nel foglio di lavoro attivo.

3. Dopo aver disegnato la forma, viene visualizzata la scheda Strumenti disegno nella barra multifunzione, poi clicca su Formato > Contorno forma > Nessun contorno, vedi screenshot:

4. Poi, fai clic destro sulla forma e scegli Formatta forma dal menu contestuale, vedi screenshot:

5. Nel riquadro Formatta forma espanso, sotto la scheda Riempimento e linea, esegui le seguenti operazioni:

• Nella sezione Riempimento, seleziona l'opzione Riempimento con immagine o trama;
• Clicca sul pulsante Inserisci dalla fonte immagine e scegli l'immagine da inserire;
• Poi, regola la trasparenza dell'immagine secondo necessità dalla sezione Trasparenza.
• 

6. Ora vedrai che la forma riempita con l'immagine appare come uno sfondo, come mostrato nello screenshot:

Nota: dopo aver inserito questo tipo di immagine di sfondo, non sarà possibile inserire testo nell'area dell'immagine.

Entrambi i metodi sopra hanno dei limiti: il primo non permette di modificare la trasparenza, il secondo non consente di inserire testo nelle celle all'interno dell'area immagine. Per risolvere questi problemi, la funzione Inserisci Watermark di Kutools per Excel può aiutarti.

1. Clicca su Kutools > Inserisci > Inserisci Watermark, vedi screenshot:

2. Nella finestra Inserisci Watermark che si apre, seleziona Watermark Immagine, poi clicca su Seleziona immagine per scegliere l'immagine da inserire, specifica la scala e seleziona l'opzione Erosione, vedi screenshot:

3. Poi, clicca su Ok: l'immagine sarà inserita come sfondo nel foglio di lavoro.

In Excel puoi usare la funzione Copia come immagine per copiare e inserire un intervallo di celle come immagine.

1. Seleziona l'intervallo di celle che vuoi copiare e inserire come immagine.

2. Poi, clicca su Home > Copia > Copia come immagine, vedi screenshot:

3. Nella finestra Copia immagine che si apre, seleziona Immagine dalla sezione Formato, vedi screenshot:

4. Poi, clicca su OK, ora devi solo premere Ctrl + V per incollare l'immagine ovunque nella cartella di lavoro.

In Excel è disponibile lo strumento Fotocamera che ti permette di fotografare i dati selezionati e incollarli come immagine. Quando i dati originali cambiano, anche l'immagine copiata si aggiornerà dinamicamente.

Prima devi visualizzare la Fotocamera sulla barra multifunzione e poi utilizzarla.

1. Clicca sull'icona Personalizza barra di accesso rapido, poi su Altri comandi, vedi screenshot:

2. Nella finestra Opzioni di Excel che si apre, esegui le seguenti operazioni:

• Seleziona Tutti i comandi dal menu Scegli comandi da;
• Poi scorri e seleziona Fotocamera dall'elenco;
• Poi, clicca su Aggiungi per aggiungere lo strumento alla barra di accesso rapido;
• Infine, clicca su OK per chiudere la finestra.
• 

3. Ora lo strumento Fotocamera è visualizzato sulla barra multifunzione, vedi screenshot:

4. Poi, seleziona l'intervallo di celle che vuoi trasformare in immagine.

5. Poi, clicca sullo strumento Fotocamera, vai sul foglio di lavoro e clicca ovunque: l'area dati verrà inserita come immagine come mostrato nella demo sotto:

Se hai Kutools per Excel, con la funzione Libreria AutoText puoi salvare i dati selezionati nella Libreria AutoText e poi usarli come immagine o testo in futuro come preferisci.

1. Seleziona l'area dati che vuoi inserire come immagine.

2. Poi, clicca su Kutools > Navigazione, vedi screenshot:

3. Nel riquadro Navigazione espanso, clicca sull'icona Libreria AutoText, poi clicca sull'icona Aggiungi contenuto selezionato ad AutoText, vedi screenshot:

4. Nella finestra Nuova voce AutoText, specifica un nome per l'elemento e seleziona il gruppo a cui aggiungerlo. Vedi screenshot:

5. Poi, clicca su Aggiungi per inserirlo nel riquadro Libreria AutoText. Se vuoi inserire questo intervallo come immagine, basta cliccare su una cella per posizionare l'immagine, poi trovare l'elemento salvato nel riquadro Libreria AutoText e cliccare su Inserisci come > Immagine (EMF) dal menu a discesa dell'elemento. L'area dati verrà inserita nel foglio come immagine, vedi screenshot:

Normalmente, in Excel puoi creare un intervallo denominato dinamico e poi usare l'immagine collegata per risolvere questo compito.

1. Prima di tutto, crea due colonne che contengano i nomi dei prodotti e le relative immagini, vedi screenshot:

2. Poi, crea un elenco a discesa per i valori delle celle. Clicca su una cella per visualizzare l'elenco a discesa, poi clicca su Dati > Convalida dati > Convalida dati, vedi screenshot:

3. Nella finestra Convalida dati che si apre, sotto la scheda Impostazioni, scegli Elenco dal menu Consenti e seleziona le celle da cui creare l'elenco a discesa nella casella Origine, vedi screenshot:

4. Clicca su OK: l'elenco a discesa con i valori delle celle è stato creato, seleziona un elemento dall'elenco, vedi screenshot:

5. Poi, clicca su Formule > Definisci nome, vedi screenshot:

6. Nella finestra Nuovo nome, esegui le seguenti operazioni:

• Inserisci un nome chiamato myimage nella casella Nome;
• Poi copia e incolla questa formula: =INDICE(Sheet11!$A$2:$B$6;CONFRONTA(Sheet11!$E$2;Sheet11!$A$2:$A$6;0);2) nella casella Si riferisce a.

  

  Nota: nella formula sopra:

  • Sheet11!$A$2:$B$6: è il foglio e l'intervallo che contiene i valori e le immagini che vuoi usare;
  • Sheet11!$E$2: è la cella del foglio dove hai creato l'elenco a discesa;
  • Sheet11!$A$2:$A$6: è l'elenco di celle su cui hai basato l'elenco a discesa;
  • Il numero variabile2 è il numero della colonna che contiene le immagini. Se le tue immagini sono nella colonna C, inserisci3.

7. Poi, clicca su OK, quindi copia e incolla l'immagine corrispondente in base al valore della cella E2 dall'intervallo originale alla cella F2, vedi screenshot:

8. Poi, seleziona l'immagine nella cella F2 e inserisci questa formula =myimage (myimage è il nome dell'intervallo creato al punto6) nella barra della formula, vedi screenshot:

9. Dopo aver inserito la formula, premi Invio: ora, scegliendo un elemento dall'elenco a discesa, l'immagine relativa verrà visualizzata immediatamente. Vedi screenshot:

Il metodo sopra può risultare complesso per molti utenti. Qui ti presento una funzione pratica – Elenco a discesa con immagini di Kutools per Excel: con questo strumento puoi creare più elenchi a discesa con le relative immagini in pochi clic.

1. Prima di tutto, crea due colonne che contengano i nomi dei prodotti e le relative immagini nel foglio di lavoro.

2. Poi, clicca su Kutools > Elenco a discesa > Elenco a discesa con immagini, vedi screenshot:

3. Nella finestra Elenco a discesa con immagini, se hai già creato le colonne con i valori e le immagini, ignora il passaggio1, poi seleziona i dati originali, l'intervallo immagini e l'intervallo di output, vedi screenshot:

4. Poi, clicca su Ok: gli elenchi a discesa con immagini saranno creati nelle celle selezionate e, selezionando un elemento, verrà visualizzata immediatamente l'immagine corrispondente, vedi demo sotto:

Normalmente puoi usare la funzione Salva con nome per salvare tutte le immagini dal file, procedi così:

1. Clicca su File > Salva con nome, nella finestra Salva con nome specifica una cartella dove esportare i file, poi scegli Pagina Web (*.htm;*.html) dal menu Specifica formato di salvataggio, vedi screenshot:

2. Poi clicca su Salva, vai nella cartella specificata: troverai due file, uno in formato HTML e una cartella che contiene immagini, grafici e altri oggetti dal file Excel. Vedi screenshot:

3. Ora puoi trascinare solo le immagini in un'altra cartella secondo necessità.

Nota: usando questa funzione Salva con nome otterrai ogni immagine due volte, una più piccola e una più grande, quindi puoi salvare le immagini ad alta risoluzione secondo necessità.

Per salvare tutte le immagini da un file Excel puoi anche cambiare l'estensione del file in RAR. Procedi così:

1. Cambia l'estensione del file xlsx in rar come mostrato nello screenshot:

2. Poi, estrai il file: troverai3 cartelle e1 file nella cartella, vedi screenshot:

3. Poi, apri la cartella xl e poi la cartella media: qui troverai tutte le immagini senza duplicati, vedi screenshot:

Se hai Kutools per Excel, con la funzione Esporta grafico puoi esportare rapidamente oggetti specifici come immagini, grafici, forme in formato immagine secondo necessità.

1. Clicca su Kutools Plus > Importa & Esporta > Esporta grafico, vedi screenshot:

2. Nella finestra Esporta grafico che si apre, esegui le seguenti operazioni:

• Scegli l'opzione Immagini dal menu Tipo;
• Specifica una cartella dove salvare le immagini esportate;
• Poi clicca sul menu Formato di esportazione per scegliere il formato desiderato per le immagini.
• 

3. Infine, clicca su Ok: tutte le immagini nel file Excel corrente saranno salvate nella cartella specificata, vedi screenshot:

Per eliminare le immagini dal foglio di lavoro corrente, il codice VBA sotto può aiutarti. Procedi così:

1. Attiva il foglio di lavoro che contiene le immagini da eliminare.

2. Tieni premuti i tasti ALT + F11 per aprire la finestra Microsoft Visual Basic for Applications.

3. Clicca su Inserisci > Modulo e incolla la macro seguente nella finestra del Modulo.

Codice VBA: elimina tutte le immagini dal foglio di lavoro corrente

Sub DeleteAllPics()
'Updateby Extendoffice
Dim Pic As Object
For Each Pic In ActiveSheet.Pictures
Pic.Delete
Next Pic
End Sub

4. Poi, premi F5 per eseguire il codice: tutte le immagini nel foglio attivo saranno eliminate immediatamente.

Se devi eliminare le immagini solo da un intervallo di celle, qui trovi un codice semplice che può aiutarti.

1. Tieni premuti i tasti ALT + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo e incolla la macro seguente nella finestra del Modulo.

Codice VBA: elimina le immagini da un intervallo di celle

Sub DeletePic()
'Updateby Extendoffice
    Dim xPicRg As Range
    Dim xPic As Picture
    Dim xRg As Range
    Application.ScreenUpdating = False
    Set xRg = Range("B4:C6")
    For Each xPic In ActiveSheet.Pictures
        Set xPicRg = Range(xPic.TopLeftCell.Address & ":" & xPic.BottomRightCell.Address)
        If Not Intersect(xRg, xPicRg) Is Nothing Then xPic.Delete
    Next
    Application.ScreenUpdating = True
End Sub

Nota: nel codice sopra, B4:C6 è l'intervallo da cui vuoi eliminare le immagini.

3. Poi, premi F5 per eseguire il codice: le immagini nell'intervallo selezionato saranno eliminate immediatamente, vedi screenshot:

Se hai Kutools per Excel, con la funzione Elimina illustrazioni e oggetti puoi eliminare rapidamente le immagini da un foglio, da alcuni fogli selezionati o dall'intera cartella di lavoro.

1. Clicca su Kutools > Elimina > Elimina illustrazioni e oggetti, vedi screenshot:

2. Nella finestra Elimina illustrazioni e oggetti che si apre, seleziona Immagini dalla sezione Elimina e specifica l'ambito da cui eliminare le immagini nella sezione Cerca in, vedi screenshot:

3. Poi clicca su Ok: tutte le immagini saranno eliminate dal foglio, dai fogli selezionati o dall'intera cartella come specificato.