Eliminare IMMAGINI SE PRESENTI

Eliminare IMMAGINI SE PRESENTI
di atis10 data: 22/12/2014 17:34:30
Buongiorno

In una macro per la stampa di un documento, avrei bisogno di inserire un if che verifichi la presenza di due determinate immagini ("fOperatore") e ("fResponsabile"), se queste sono presenti vorrei che fossero eliminate prima della stampa, se assenti invece, si proceda alla stampa...

qualcuno sa darmi una mano?

di lepat (utente non iscritto) data: 22/12/2014 17:37:58
prova questa

Sub delete_pictures()
For Each pt In ActiveSheet.Pictures
  pt.Delete
Next
End Sub

di lepat (utente non iscritto) data: 22/12/2014 21:42:13
dopo l'imbeccata pensavo tu ci arrivassi da solo

Sub delete_pictures()
For Each pt In ActiveSheet.Pictures
  if pf.name = ""fOperatore" or  pf.name = "fResponsabile" then  pt.Delete
Next
End Sub

di atis10 data: 23/12/2014 09:17:23
ti chiedo scusa per l'ignoranza ma ci sto sbattendo la testa da autodidatta :)

ora purtroppo però mi da un errore sulla riga if... (oltre ad una doppia virgoletta che immagino sia un errore di battitura)

mi spieghi cosa fa questo comando? e perchè mi sta dando un errore? :(

Luca
di atis10 data: 23/12/2014 09:27:14
ok mi hai fatto il trabbocchetto di natale... hai scritto pf anzichè pt per vedere se ero attento eeeeeh ahahahah

mannaggiattè che gargamella.... ;) cmq sembra fungere alla grande!
Sub delete_pictures() For Each pt In ActiveSheet.Pictures If pt.Name = "foperatore" Or pt.Name = "fresponsabile" Then pt.Delete Next End Sub
di atis10 data: 23/12/2014 09:32:15
ok mi hai fatto il trabbocchetto di natale... hai scritto pf anzichè pt per vedere se ero attento eeeeeh ahahahah

mannaggiattè che gargamella.... ;) cmq sembra fungere alla grande!
Sub delete_pictures() For Each pt In ActiveSheet.Pictures If pt.Name = "foperatore" Or pt.Name = "fresponsabile" Then pt.Delete Next End Sub
di lepat (utente non iscritto) data: 23/12/2014 11:20:20
è stato un normale errore di digitazione, ma vedo che ti ha costretto a farti ragionare, bene