Удаление линий

[drNabla]

Здравствуйте.
Нарисовал 2 линии в рабочем листе при помощи макроса, как теперь при помощи другого макроса удалить их обе? как то не могу додуматься как использовать функцию Delete.
Вот как-то так получается пока

Private Sub CommandButton1_Click()
ActiveSheet.Shapes.AddLine(1, 1, 50, 50).Select
Selection.ShapeRange.Line.Weight = 3
ActiveSheet.Shapes.AddLine(1, 50, 50, 1).Select
Selection.ShapeRange.Line.Weight = 3
End Sub

Private Sub CommandButton2_Click()
Shapes.Delete
End Sub

Заранее всем спасибо.

[motorway]

Так примерно:

ActiveSheet.Shapes(1).Delete

[drNabla]

спасибо, хотя я так уже пробовал, а теперь открыл новую книгу, заново создал обе кнопки и заработало... странно, но всё равно спасибо. теперь точно знаю что это работает.

[doober]

Я бы делал так,а то можно и кнопки удалить, нажимать потом нечего будет

 Sub Shape_Add()
Dim shap As Shape
Set shap = ActiveSheet.Shapes.AddLine(1, 1, 50, 50)
shap.DrawingObject.ShapeRange.Line.Weight = 3
shap.Name = "F1 F8"
Set shap = ActiveSheet.Shapes.AddLine(1, 50, 50, 1)
shap.DrawingObject.ShapeRange.Line.Weight = 3
shap.Name = "F1 F9"

End Sub

 Sub Kill_Shape()
Dim shap As Shape
For Each shap In ActiveSheet.Shapes
If shap.Name Like "F1 F8" Then
shap.Delete
End If
Next shap
End Sub

 
 Sub Kill_Shape_Alles()
Dim shap As Shape
For Each shap In ActiveSheet.Shapes
If shap.Type = msoLine Then
shap.Delete
End If
Next shap
End Sub