By the way this is what that same code would like without all of the comments.
It does the very same thing
Code:
Sub GetTheLineColors()
Dim shp As Shape
For Each shp In ActivePresentation.Slides(1).Shapes
Debug.Print shp.Name & ";" & shp.Line.ForeColor.RGB
Next shp
End Sub