Suppression de graphes

[m@tix]

Bonjour,

La feuille Feuil1 de mon classeur est composée de graphes. Je souhaiterais écrire un code vba permettant de supprimer l'ensemble de ces graphes. J'avais essayé le code suivant:

Dim graph As ChartObject

For Each graph In ActiveWorkbook.Sheets("Feuil1").ChartObjects
        graph.Delete
Next

Problème: on ne rentre jamais dans la boucle, la variable graph est à Nothing..

Comment arranger cela ?

Merci d'avance.

 

[CB60]

Re : Suppression de graphes

Bonjour
Ca devrais suffire:

Feuil1.ChartObjects.Delete

 

[m@tix]

Re : Suppression de graphes

Merci CB60 ! Mais en fait, le problème était autre.. Il ne s'agisssait pas de graphes, mais de copies de graphes. Du coup, j'ai passé la variable graph en tant qu'objet Shape, et ça va tout de suite mieux !

Désolé pour l'étourderie.. 😱

 

[Pierrot93]

Re : Suppression de graphes

Bonjour M@tix, Bruno

petite info au passage, sous 2003... le code de M@tix fonctionne, testé chez moi... encore une différence avec 2007...

bon après midi
@+

Edition : un peu en retard moi.. effectivement pour des images....