更改圖表顏色取決於單元格值

Question

我有一個餅圖，根據不相關單元格的值是正還是負，希望對其進行陰影處理。 因此，例如，如果單元格D4為正，則SeriesCollection（1）將以綠色顯示，如果單元格D5為負，則SeriesCollection（2）將以紅色顯示。

我只能更改依賴於另一個單元格的單元格顏色，但無法更改依賴於一個單元格的形狀顏色。

盡管我不知道如何編寫代碼，但只有使用VBA才有可能實現。 在此先感謝您的幫助。

Answer 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