chart template saving issue

Something like this,

Sub GradFormat()
    Dim objSeries As Series
    
    Set objSeries = ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
    
    With objSeries.Format.Fill
        .TwoColorGradient msoGradientHorizontal, 1
        .GradientStops(1).Color.SchemeColor = 9
        .GradientStops(1).Position = 0.01
        .GradientStops(2).Color.RGB = 15773696
    End With
End Sub