更改图表颜色取决于单元格值

时间:2014-05-30 12:09:34

标签: excel vba colors cell shape

我有一个饼图,其片段我希望阴影取决于无关细胞的值是正还是负。因此,如果例如单元格D4为正,则SeriesCollection(1)将以绿色阴影,如果单元格D5为负,则SeriesCollection(2)将以红色阴影显示。

我只能更改依赖于其他单元格的单元格颜色,而不是如何更改依赖于单元格的形状颜色。

这可能只能使用VBA,虽然我无法弄清楚如何编码。提前感谢您的帮助。

1 个答案:

答案 0 :(得分:0)

这可能不是最优雅的解决方案,但似乎有效。它填充任何正面的绿色阴影和任何负面的红色阴影。

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