[Excel 2010] Cancellare tutte le immagini presenti in un fil

[contiend]

Ciao a tutti,
ho un problema che magari voi sapete come risolvere.

Ho dei fogli excel che hanno molteplici immagini, che si sono rimpicciolite (dopo un mezzo crash qualche anno fa) così tanto da essere quasi scomparse. Ogni tanto però, facendo qualche zoom, ne vedo qualcuna e le cancello, ma sono sicuro che ce ne sono ancora moltissime. Questo sicuramente aumenta le dimensioni dei miei file excel.

C'è un modo che mi dia la possibilità di eliminare tutte le immagini presenti su un FOGLIO (o più fogli) così da fare una pulizia (sono file che subiscono copia-incolla di tabelle da anni. E queste immagini sono in mezzo a queste tabelle. Io vorrei cancellarle tutte.

Potete aiutarmi?

Grazie dell'attenzione

[Anthony47]

Ad esempio

Codice: Seleziona tutto

Sub PicDel()
Dim Sh, I As Long
For I = 1 To Worksheets.Count
    Sheets(I).Select
    For Each Sh In ActiveSheet.Shapes
       If Sh.Type = msoPicture Or Sh.Type = msoLinkedPicture Then
            Sh.Delete
        End If
    Next Sh
Next I
End Sub


Questa elimina tutte le immagini da un file; eventualmente elimina For I = 1 To Worksheets.Count / Sheets(I).Select e Next I e allora lavorera' solo sul foglio attivo.

Ciao

[contiend]

Fantastico! Perfetta grazie