Changing the width and line type of some (not all) lines in a graph

I have a graph that is loaded with data by a VBA code. Each time I run the code, new data is added to the graph and the graph regenerates automatically to display that data. So far, so good.

The problem is that, when the graph regenerates, it sets various line weights back to the default width and back to solid line (they had been dashes).

When I look-up online how to set the line width, I find lots of posts that describe how to set all of the lines in a graph to any width you want - but I want different lines to have different widths and for the narrow lines to also be dashed (instead of a solid line). So, the solutions I find online to set all of the lines to the same width are not sufficient for me.

Can anyone tell me how to make the width of some lines on a graph thinner and dashed, but leave other lines in the same line at the default width and line type (i.e., a continuous line)?

Thank you.

How (other than by trial and error) can I tell which line is in SeriesCollection(1), which line is SeriesCollection(2), etc.?

I was hoping that, instead of SeriesCollection(1), I could use something like SeriesCollection("Name of the line's legend"); i.e., something that uniquely identified each line.

I'd say it has to do with the order they are in when the data is setup!

This would be a reasonable approach to try, except I'm not sure what "the order they are in when the data is setup" means. Does this mean the order in which I created each line? (Because I created four at once) Does this mean the order in the legend? (What happens when I add a new line and the order in the legend changes?) Etc.

So, trial and error is how I'll identify the lines.

Although I tried to build on the previous posts and looked for related information online, I haven't been able to figure out how to address the elements of any graph on the worksheet in the attached file. Would someone please show me the VBA code for the attached spreadsheet to make, on the graph located around D730, the horizontal lines 1.25 pt. wide and the line type 'continuous dash'? If your feeling ambitious, I would appreciate you adding the code to make the rising line green and the falling line red.

On reading more articles on graphs, I've discovered:

• Excel calls a 'graph' a 'chart'
• When I create a chart from the insert ribbon, it is an embedded chart
• When I create a chart from a VBA command, it is referenced differently than a chart I create from the insert ribbon

Given the above information, I can clarify that the chart I want to modify is embedded.

Still not noticeably closer to a solution.

After a lot of pointless reading (I never found a good overview on how to modify embedded charts), it occurred to me to record a macro of my modifying the graph that the spreadsheet produces into the spreadsheet that I wanted to have. I could then run the macro immediately after the graph is regenerated, with the result that the graph will maintain the appearance I want.

It still took many attempts to create a macro that properly modifies the graph, but I eventually did. I now call that macro as the first line of code following the code that updates the graph. The macro follows:

Sub MembershipGraphFormat()
'
' Formatting the Chapter Membership Graph
'

    ActiveSheet.ChartObjects("Chart 8").Activate
    ActiveChart.FullSeriesCollection(1).Select
    With Selection.Format.Line
        .Visible = msoTrue
        .ForeColor.RGB = RGB(192, 0, 0)
        .Transparency = 0
    End With
    ActiveChart.FullSeriesCollection(2).Select
    With Selection.Format.Line
        .Visible = msoTrue
        .ForeColor.RGB = RGB(17, 251, 5)
        .Transparency = 0
    End With
    ActiveChart.FullSeriesCollection(3).Select
    With Selection.Format.Line
        .Visible = msoTrue
        .DashStyle = msoLineDash
    End With
    With Selection.Format.Line
        .Visible = msoTrue
        .Weight = 1.25
    End With
    ActiveChart.FullSeriesCollection(4).Select
    With Selection.Format.Line
        .Visible = msoTrue
        .DashStyle = msoLineDash
    End With
    With Selection.Format.Line
        .Visible = msoTrue
        .Weight = 1.25
    End With
    ActiveChart.FullSeriesCollection(5).Select
    With Selection.Format.Line
        .Visible = msoTrue
        .DashStyle = msoLineDash
    End With
    With Selection.Format.Line
        .Visible = msoTrue
        .Weight = 1.25
    End With
    ActiveChart.FullSeriesCollection(6).Select
    With Selection.Format.Line
        .Visible = msoTrue
        .DashStyle = msoLineDash
    End With
    With Selection.Format.Line
        .Visible = msoTrue
        .Weight = 1.25
    End With

End Sub