Comando per cancellazione immgini ".GIF" presenti su foglio Excel

[PinilPartecipante Pinil]

Un saluto agli utenti ed esperti del Forum. Chiedo il vostro prezioso aiuto per la soluzione del seguente problema.

 

Una procedura automatizzata mi genera un foglio Excel (versione 2010) il quale viene sottoposto a successiva elaborazione attraverso delle macro che ho approntato. Detto foglio generato, presenta molteplici immagini formato "GIF" (loghi aziendali, indirizzi, promozioni, pubblicità ecc.) che non servono nel report finale post-elaborazione.  Vi chiedo se esiste un comando VBA che mi consenta di cancellare tutte la "GIF" al fine di  evitare la (noiosa) cancellazione manuale di ciascuna di esse, che sono costretto ad effettuare prima dell'avvio delle mie macro

 

Grazie per l'aiuto che vorrete offrirmi

 

Saluti

 

Pinil

[patelModeratore patel Karma: 51 pts]

sarebbe utile un file di esempio, prima prova

Sub deletepictures()
Sheets(1).Select
Dim pt As Picture
For Each pt In ActiveSheet.Pictures
  pt.Delete
Next
End Sub

[PinilPartecipante Pinil]

Grazie Patel per la risposta.

La sub si pianta nel ciclo For..Next, precisamente al comando "pt.Delete"

 

 

 

 

[albatros54Moderatore albatros54 Karma: 89 pts]

prova cosi

Sub deletepictures()
Sheets(1).Select
Dim pt As Shape
   For Each pt In ActiveSheet.Shapes
   pt.Delete
   Next
End Sub

 

Qual è il punto di avere gusti diversi, se non mostrare che i cervelli lavorano diversamente, che pensiamo diversamente? ( Alan Turing)
Sempre il mare, uomo libero, amerai!
( Charles Baudelaire )

[PinilPartecipante Pinil]

Funziona alla grande!!!!!!!

Ringrazio Albatros e Patel per la soluzione del caso

Grazie 1000

 

Pinil

 

[Autore]

Articoli