Delete shape

[bernardrustrel]

Bonjour à tous

Je vien requérir de l'aide afin d'effacer les lignes tracées sur une Worksheet ces lignes ont été créees comme suit:
Set Trait = Worksheets("Annexe")
With Trait.Shapes.AddLine(0.75, 749.25 - (12 * 33), 531.75, 748.5).Select
End With

Je précise que jeveux effacer que ce type de "shape" et non les autres je conserverai donc les rectangles, images etc....
Merci à vous de me venir en aide

 

[BOISGONTIER]

Re : Delete shape

Bonjour,

  Set trait = Worksheets("Annexe")
  For Each s In trait.Shapes
   If s.Type = 9 Then s.Delete
  Next s

JB
Formation Excel VBA JB

 

[bernardrustrel]

Re : Delete shape

Merci à vous
c'est exactement ce que je voulais.
Mais pourriez vous svp m'expliquer le 9 dans:

Set Trait = Worksheets("Annexe")
For Each s In Trait.Shapes
If s.Type = 9 Then s.Delete
Next s



Cordialement