VBA to clear any shape border on all slides

[Paul_Hossler]

Option Explicit


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.Weight = 0

                For Each oShape2 In oShape.GroupItems
                    oShape2.Line.Weight = 0
                Next
            
            Else
                oShape.Line.Weight = 0
            End If
        Next
    Next
End Sub