VBA to clear any shape border on all slides

[rwc1023]

Thank you John.
I got a run time error - the specified value is out of range. any idea how to fix this??

thank you!

I would use

Sub ClearBorders()
    Dim oSlide As Slide
    Dim oShape As Shape, oShape2 As Shape
    
    For Each oSlide In ActivePresentation.Slides
        For Each oShape In oSlide.Shapes
            If oShape.Type = msoGroup Then
                oShape.Line.Visible = False


                For Each oShape2 In oShape.GroupItems
                    oShape2.Line.Visible = msoFalse
                Next
            
            Else
                oShape.Line.Visible = False
    
            End If
        Next
    Next
End Sub

Paul's code should work but can have unexpected results with placeholders