Cambia colore del grafico dipendente dal valore della cella

Ho un grafico a torta i cui segmenti desidero dipendere a seconda che il valore di una cella non correlata sia positivo o negativo. Quindi se ad esempio la cella D4 è positiva, SeriesCollection (1) sarà verde ombreggiato e se la cella D5 è negativa, SeriesCollection (2) sarà rosso ombreggiato.

Ho solo potuto modificare un colore delle celle dipendenti da un'altra cella, ma non come cambiare un colore di forma dipendente da una cella.

È ansible che questo sia ansible solo utilizzando VBA, anche se non riesco a capire come codificare questo. Grazie in anticipo per qualsiasi aiuto.

Questa non può essere la soluzione più elegante, ma sembra che funziona. Riempie qualcosa di positivo in una tonalità verde e qualche cosa negativo in una tonalità rossa.

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