deleter des shapes

[justine]

bonsoir a tous et je vous presente tous mes meilleurs voeux pour cette annee.

je viens de faire une grosse application, meme zippé, je peux pas l'envoyer.
dans cette application, je suis amenée a faire des shapes dans une feuille
mais je vais creer un bouton pour enlever tous ces shapes.
voila mon probleme, j'ai un nbre de shape indeterminé. donc j'utilise une boucle pour tous deleter.
rien ne se passe, mes shapes restent affichés.

j'utiliste cette macro

for i = 1 to 50
on error resume next
activesheet.shapes("line"&i).delete
next

si une personne pouvait me solutionner ce petit probleme.
merci beaucoup
justine

 

[JCGL]

Re : deleter des shapes

Bonsoir à tous,

Essaye avec :

ActiveSheet.DrawingObjects.Select
    Selection.Delete

Bonne soirée

Edition pour insertion Fichier

 

[justine]

Re : deleter des shapes

re
c'est exactement ce que je cherchais
merci JCGL
justine