Deleting lines from Master slide with specific condition

[John Wilson]

See if this does it

Sub StartHere()
    Dim L As Long
    Dim ocl As CustomLayout
    Call deleteLine(ActivePresentation.Designs(1).SlideMaster)
    For Each ocl In ActivePresentation.Designs(1).SlideMaster.CustomLayouts
        Call deleteLine(ocl)
    Next ocl
End Sub


Sub deleteLine(obj As Object)
Dim L As Long
    For L = obj.Shapes.Count To 1 Step -1
        If obj.Shapes(L).Type = msoLine Then
            obj.Shapes(L).Delete
        End If
    Next L
End Sub