Suppresion Graphiques dans Powerpoint

Bonjour,

J'ai une macro qui me permet de copier/coller des graphiques sur Powerpoint. Le soucis c'est que les graphiques s'empilent au fur et a mesure. En regardant sur le forum, j'ai trouvé ca

Code:

---

1 2 3

'NbShpe = PptDoc.Slides(5).Shapes.Count   'PptDoc.Slides(5).Shapes("Graphique 8").Delete

---

Le soucis c'est que le graphique en question n'est pas forcément trouver par la macro a chaque fois. Je me demandais donc s'il était possible via Excel d'avoir une macro qui supprimer tous les graphiques de Powerpoint sans avoir a les sélectionner.


Merci d'avance