Attempts have failed, please master, thank you!

'the WPS form version 9.1.0.4940


Dim oSeries As Series
With ActiveChart
The Set oSeries=. SeriesCollection. NewSeries
OSeries. Name="SBP
"OSeries. ChartType=xlLine
OSeries. Format. Line. ForeColor. ObjectThemeColor=vbRed
OSeries. Format. Line.=xlThick 'Weight doesn't work

SeriesCollection (1). The Name="SBP
"SeriesCollection (1). Smooth=cbSmooth. Value
SeriesCollection (1). The Format. The Line. The Visible=True
SeriesCollection (1). The Format. The Line. The Weight doesn't work
=xlThick 'SeriesCollection (1). The Format. Line. ForeColor. ObjectThemeColor=255

SeriesCollection (1). Border. Color=vbRed
SeriesCollection (1). Border. Weight doesn't work
=xlThick 'SeriesCollection (1). Border. Graphics.linestyle=xlContinuous

End With