Cancellare le immagini

Hai un problema con Excel?

Nuova discussione

Cancellare le immagini
di Ezio59 data: 08/12/2009
Ciao ragazzi,
utilizzo per lavoro degli applicativi intranet che poi copio in formato excel.
grazie ad una macro riesco a formattare il foglio rendendolo presentabile in pochi secondi.
l'unico problema che non sono riuscito a risolvere è la cancellazione delle immagini.
ho provato il comando sotto riportato,
però il numero delle immagini che scarico varia di volta in volta e se non metto il numero esatto il programma si blocca. sapete se esiste un modo per cancellare tutte le immagini?

saluti a tutti e sentiti auguri di buon natale
"ActiveSheet.Shapes("Picture 3").Select Selection.Delete"

di Enzo (utente non iscritto) data: 09/12/2009
L'istruzione qui sotto analizza quante immagini hai nel file e le cancella tutte
dovrebbe andar bene
fai sapere se hai risolto
buon natale anche a te

inizio = InStr(1, ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Name, " ")
XXX = Mid(ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Name, inizio + 1)
For I = 1 To XXX
ActiveSheet.Shapes(1).Delete
Next I

Cancellare le immagini
di Ezio59 (utente non iscritto) data: 11/12/2009
Ciao enzo,

la macro funziona perfettamente ed è anche velocissima.
mi piacerebbe ricompensarti per quello che meriti, ma le mie disastrose condizioni finanziarie non me lo consentono. posso solo prometterti che la notte di natale alzerò il calice brindando alla tua salute e a quella dei tuoi familiari.

p.s. sapresti consigliarmi qualche testo per approfondire la materia vba?

di Ricky53 (utente non iscritto) data: 12/12/2009
Ciao,
in questo sito trovi un ottimo "corso base" e degli "approfondimenti" prodotti da mauro, vale veramente la pena di leggerli con attenzione.

ti invio anche una macro che oltre la cancellazione ti dice anche quante immagini sono state cancellate

ciao da ricky53

Sub Cancella_Immagini()
    Cancellate = 0
    For Each sh In ActiveSheet.Shapes
        ActiveSheet.Shapes(1).Delete
        Cancellate = Cancellate + 1
    Next
    If Cancellate = 0 Then
        MsgBox "Non sono presenti immagini nel foglio selezionato"
    Else
        MsgBox "Sono state cancelalte   '" & Cancellate & "'  immagini nel foglio selezionato"
    End If
End Sub

Vuoi Approfondire?