Question

我有以下问题：我想用＆＃34; Gradient Fill＆＃34;设置图表背景。并用宏来改变角度。

录制宏无济于事。我唯一得到的是：

    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种颜色，每次设置都没用，因为它们的相对位置在渐变模式中始终是相同的。

任何想法？

Answer 1

好的，我做到了。

这很简单，但您无法在线轻松找到此信息。

您需要激活图表，然后：

ActiveChart.PlotArea.Format.Fill.GradientAngle = 45

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

1 个答案: