Private Sub lihtnejoon_Click()
    ActiveSheet.Shapes.AddLine(300, 10, 300, 100).Select
End Sub