Deleting lines from Master slide with specific condition

[kperiyapalem]

Hi all!


Needing help from expert... I managed to create the action which can delete all lines from the master slides. But the below code is deleting lines only on main master layout. The custom layouts linked to the main master slide are not getting affected by the code. I want to delete lines from the master and custom layouts linked to the master as well.

Can anyone please help?

Sub DeleteLine()
         Dim L As Long
     
    For L = ActivePresentation.SlideMaster.Shapes.Count To 1 Step -1
        If ActivePresentation.SlideMaster.Shapes(L).Type = msoLine Then
            ActivePresentation.SlideMaster.Shapes(L).Delete
        End If
    Next L
    
End Sub