SImple Code for Changing Line Weight

[John Wilson]

Charts are poorly supported in early versions. Assuming you have a recent version try this

Sub fixChart()
Dim osld As Slide
Dim oshp As Shape
Dim ocht As Chart
Dim ser As Series
Dim L As Long
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.HasChart Then
Set ocht = oshp.Chart
If ocht.ChartType = xlLine Then
For L = 1 To ocht.SeriesCollection.Count
Set ser = ocht.SeriesCollection(L)
ser.Format.Line.Weight = 1.5
Next L
End If
End If
Next oshp
Next osld
End Sub