Macro to change colour on selected series on active chart

[FinUser]

Hi all, I have a macro in excel that sets all the line weights in an active chart to a specific line width. The code is below. How do I adjust it: (1) to change width of a single series that I have selected on the chart (rather than all of them); and (2) change the colour (rather than the width) to one I specify (rgb(50,205,50)). Thank you!

Sub SetWeightsNormal()
Dim srs As series
For Each srs In ActiveChart.SeriesCollection
srs.Format.Line.Weight = 2#
Next
End Sub

 

[Domenic]

Try...

        With Selection.Format.Line
            .Weight = 2#
            .ForeColor.RGB = RGB(50, 205, 50)
        End With

Although, you'll probably want to make sure that a series is selected before changing the formatting...

    If TypeName(Selection) = "Series" Then
        With Selection.Format.Line
            .Weight = 2#
            .ForeColor.RGB = RGB(50, 205, 50)
        End With
    End If

Hope this helps!