VBA：设置渐变填充背景角度

我有以下问题：我想用“渐变填充”设置图表背景，用宏改变角度

录制宏没有帮助。我唯一得到的是：

    With Selection.Format.Fill
    .Visible = msoTrue
    .ForeColor.RGB = RGB(255, 117, 117)
    .BackColor.RGB = RGB(0, 203, 92)
    .TwoColorGradient msoGradientDiagonalUp, 1
End With

事实上，我想预先设置颜色，并使用宏进行定向。宏应该做的唯一事情是：

If variable = A then 'select the chart and set angle to 45%
If variable = B then 'select the chart and set the angle to 135%

等等

我不想手动设置颜色，因为我将有4种颜色，每次设置它们都是无用的，因为它们在渐变图案中的相对位置总是相同的

有什么想法吗？

好的，我成功了

这是非常简单的，但你不能很容易地找到这个信息在线

您需要激活图表，然后：

ActiveChart.PlotArea.Format.Fill.GradientAngle = 45