Supprimer un trait (AddLine)
Bonjour,
Voila, j'arrive à créer un trait par VBA, mais je n'arrive pas à le supprimer car je n'ai pas sont nom.
Connaissez vous un moyen de le supprimer?
Voici le code que j'utilise pour le créer, (issu de l'enregistreur de macro donc je pense qu'il y à des truques en trop).
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
|
Sub AjouterLigne ()
ActiveSheet.Shapes.AddLine(429.75, 66, 546.75, 66).Select
Selection.ShapeRange.Flip msoFlipVertical
Selection.ShapeRange.Line.Weight = 1.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.SchemeColor = 64
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Line.BeginArrowheadWidth = msoArrowheadWidthMedium
Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadNone
End Sub |
Je pense qu'il faut donner un nom à la ligne lors de son ajout pour pouvoir la supprimer au besoin.