Градиент заливки диаграммы VBA

Question

Я хотел установить градиентную заливку диаграммы, как указано ниже

1. Градиент имеет 3 цвета
2. Положение градиента: 0, 60, 75 соответственно
3. Градиент является линейным под углом 50 градусов

Ниже приведен код, который у меня есть до сих пор. Он может работать без проблем только для первых 6 строк, при этом меняет цвет на 2 цвета и все. Я не могу добавить еще один или установить линейный и угловой.

Sub ChartGradient1()
    ActiveSheet.ChartObjects("Chart1").Activate
    ActiveChart.FullSeriesCollection(1).Points(1).Select
    Selection.Format.Fill.Visible = msoTrue
    Selection.Format.Fill.ForeColor.RGB = RGB(12, 29, 7)
    Selection.Format.Fill.BackColor.RGB = RGB(47, 21, 67)
    Selection.Format.Fill.TwoColorGradient msoGradientHorizontal, 1
    Selection.Interior.Pattern = xlPatternLinearGradient  'form this line onward has an error
    Selection.Interior.Gradient.Degree = 50               'error
    Selection.GradientStops.Color.RGB = RGB(47, 26, 7)    'error
    Selection.GradientStops.Position = 0.6                'error
End Sub

Пожалуйста, помогите, спасибо за ваше время.