Soucis avec 'msoShapeRectangle'

[Eric D]

Bonjour à toutes et à tous,

Je crée une forme:

With myDocument.Shapes.AddShape(msoShapeRectangle,50, 50, 100, 200).Shadow
...
End With

mais je n'arrive pas à la supprimer.Comment lui définir un nom car si je met :
.Name = 'maforme'
dans la boucle With il me jette.

Merci pour vos réponses.
Eric D

 

[Mytå]

Salut Eric

Pour nommer un object

Set mydocument = Worksheets(1)
With mydocument.Shapes.AddShape _
(msoShapeRectangle, 50, 50, 100, 200)
.Name = 'toto'
End With

Ou
With ActiveSheet.Shapes.AddShape _
(msoShapeRectangle, 50, 50, 100, 200)
.Name = 'toto'
End With

Mytå