supprimer des graphiques

[fgehin]

Bonsoir tout le monde!

J'essaie de supprimer des graphiques présents dans une feuille excel par un code du style:

Dim c as Chart

For each c in Sheets("Feuill1").Charts
c.delete
Next

Mais ça ne marche pas... Qu'est ce qu'il faut changer dans le code?...

D'avance merci pour vos réponses!

 

[CB60]

Re : supprimer des graphiques

Bonsoir
cela devrais suffire??

Sub supprimeGraphique()
Dim graph As Object
ActiveSheet.ChartObjects.Delete
End Sub