OVH Cloud OVH Cloud

delete une shape

1 réponse
Avatar
gaston
Bonjour !
j'ai cr=E9=E9 une forme automatique dans une feuille:
ActiveSheet.Shapes.AddShape(msoShapeBevel, 171.75, 114.75,=20
114.75, 22.5).Select
ensuite, par une macro je dois dupliquer plusieurs fois=20
cette feuille, et parfois d=E9truire cette forme=20
automatique, sur une des feuilles dupliqu=E9es, mais je n'y=20
arrive pas, du fait qu'elle change de nom. Comment puis-je=20
proc=E9der ?

1 réponse

Avatar
isabelle
bonjour Gaston

il faut passer par la collection, à moin de connaitre le nom de l'objet.

For Each sh In ActiveSheet.Shapes
If sh.Type = msoShapeBevel Then sh.Delete
Next

isabelle


Bonjour !
j'ai créé une forme automatique dans une feuille:
ActiveSheet.Shapes.AddShape(msoShapeBevel, 171.75, 114.75,
114.75, 22.5).Select
ensuite, par une macro je dois dupliquer plusieurs fois
cette feuille, et parfois détruire cette forme
automatique, sur une des feuilles dupliquées, mais je n'y
arrive pas, du fait qu'elle change de nom. Comment puis-je
procéder ?