Can this code be quicker?

Hi all,

is it possible to complete this process any quicker? It contained in a loop and slows the code down considerably.

            Set shp = ActiveSheet.Shapes("Shape_1")
            
            If shp.Type = msoConnectorStraight Then

                shp.Select
                With Selection.ShapeRange.Line
                    .ForeColor.RGB = RGB(0, 0, 0)
                End With

            End If