根据单元格值更改图表颜色

【问题标题】：Change Chart Colour Dependant On Cell Value根据单元格值更改图表颜色
【发布时间】：2014-07-20 04:41:47
【问题描述】：

我有一个饼图，我希望根据不相关单元格的值是正数还是负数来对其分段进行着色。因此，例如，如果单元格 D4 为正，则 SeriesCollection(1) 将显示为绿色，如果单元格 D5 为负，则 SeriesCollection(2) 将显示为红色。

我只能改变依赖于另一个单元格的 cell 颜色，但不能改变依赖于一个单元格的 shape 颜色。

这可能只有使用 VBA 才能实现，尽管我不知道如何编写代码。提前感谢您的帮助。

【问题讨论】：

标签： excel vba colors cell shape

【解决方案1】：

这可能不是最优雅的解决方案，但它似乎有效。它在绿色阴影中填充任何积极的东西，在红色阴影中填充任何消极的东西。

ActiveSheet.ChartObjects("Chart 3").Activate
ActiveChart.SeriesCollection(1).Select

If ActiveSheet.Range("D4").Value > 0 Then

With Selection.Format.Fill
    .Visible = msoTrue
    .ForeColor.RGB = RGB(146, 208, 80)
    .Transparency = 0
    .Solid
End With

End If

If ActiveSheet.Range("D4").Value < 0 Then

With Selection.Format.Fill
    .Visible = msoTrue
    .ForeColor.RGB = RGB(255, 0, 0)
    .Transparency = 0
    .Solid
End With

End If

【讨论】：