Macro to change all line weights of all series in all charts in one worksheet

[mexaria]

Hello Excel gurus,

I've a sheet with more than 50 graphs. I just want to change all series lines weight to 1.

I've written some code but (as usual) it did not work.

do you have any better idea or can you correct my code for it to work?

Thank you very much!
Kevin

Sub Change_all_charts()

Dim cht As Chart
Dim sht
Dim ChtObj As ChartObject
Dim srs As Series

For Each cht In ActiveWorkbook.Charts
cht.Activate
For Each srs In ActiveChart.SeriesCollection
srs.Format.Line.Weight = 1
Next
Next
End Sub

 

[RickXL]

Hi,

It never works when I do anything either!
You just have to tell it who is boss

Try this:

Sub Change_all_charts()

    Dim sht As Worksheet
    Dim ChtObj As ChartObject
    Dim srs As Series
    
    For Each sht In Worksheets
        For Each ChtObj In sht.ChartObjects
            For Each srs In ChtObj.Chart.SeriesCollection
                srs.Format.Line.Weight = 1
            Next
        Next
    Next
End Sub

Just a couple of subtle changes required.

 

[dellzy]

Hi,

It never works when I do anything either!
You just have to tell it who is boss

Try this:

Sub Change_all_charts()

    Dim sht As Worksheet
    Dim ChtObj As ChartObject
    Dim srs As Series
    
    For Each sht In Worksheets
        For Each ChtObj In sht.ChartObjects
            For Each srs In ChtObj.Chart.SeriesCollection
                srs.Format.Line.Weight = 1
            Next
        Next
    Next
End Sub

Just a couple of subtle changes required.

I found this when I was really DESPERATE to use one. And this works like a charm!!! Really wanna say thank you for the contributor! You saved me BIG time!

Regards,
DZ

 

[dellzy]

Anyway, just wondering if this could be done. I have 10 graph lines in one chart. Other than wanting to make it auto-change the weight as in the macro, is there any command lines (to be included in the same macro module above) that can format the marker for each graph line to be different as well? Like auto-assign by the excel itself?

Thank you in advance.

Best Regards,
DZ