lijn verwijderen met macro

[ericabt]

hallo allemaal.

Ik zit het internet en fora af te speuren, maar vind nergens een goed antwoord op mijn vraag.
Ik laat een lijn beschrijven door een macro. In een later stadium moet de lijn weer worden verwijderd. Welke macro moet ik hiervoor gebruiken. Er zullen ook lijnen zijn die niet verwijderd worden, dus ik ben niet op zoek naar een delete all commando.

In bijlage een voorbeeld.

Alvast bedankt.

Bekijk bijlage lijn verwijderen macro.xlsm

 

[ericabt]

niemand??

 

[jolivanes]

Sub lijntoevoegen()
With Sheets("Blad1")
    .Shapes.AddLine(100, 100, 150, 300).Name = "mvw"
End With
End Sub

Sub VerwijderLijn()
Sheets("Blad1").Shapes("mvw").Delete
End Sub