Setting line chart settings in VBA for unspecified number of lines in a chart

Hi there

I have a toggle button which switches between a bar and a line chart. However, I wish the lines in the chart to have certain settings, so I have entered the following after switching to a line chart:

ActiveChart.ChartType = xlLine
     ActiveChart.SeriesCollection(1).Select
        With Selection
        .Format.Line.Weight = 3
        .MarkerStyle = 8
        .MarkerSize = 5
    End With
    ActiveChart.SeriesCollection(2).Select
        With Selection
        .Format.Line.Weight = 3
        .MarkerStyle = 8
        .MarkerSize = 5
    End With
    ActiveChart.SeriesCollection(3).Select
        With Selection
        .Format.Line.Weight = 3
        .MarkerStyle = 8
        .MarkerSize = 5
    End With

Now, this is ok when there are just 3 measures/lines, but was wondering how I would go about setting this up to cater for additional measures (not sure how to write a little loop and how to apply this to the above). Unless of course there is an easier way to apply it to all lines regardless of the number?

Found quite a few older reports to indicate that this could not be done, but I managed to figure it out after some hit and misses!

Just had to count number of series in the chart, use a loop to count from 1 to series count and apply formatting!

Here it is!

Private Sub CommandButton1_Click()

Dim countseries As Integer
Dim i As Integer

countseries = ActiveSheet.ChartObjects("Chart 1").Chart.SeriesCollection.Count

ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.ChartType = xlLine
    
For i = 1 To countseries
     ActiveChart.SeriesCollection(i).Select
        With Selection
        .Format.Line.Weight = 3
        .MarkerStyle = 8
        .MarkerSize = 4
    End With
    
Next i

 End Sub