Удалось раскрасить одну подпись по условию. В принципе аналогично можно прописать для всех подписей, но мне кажется это дилетантский подход и есть более простое решение.
Мой код:
Мой код:
Код |
---|
If Range("b27").Value < 50 Then ActiveChart.FullSeriesCollection(2).Points(1).DataLabel.Interior.Color = RGB(255, 0, 0) If Range("b27").Value >= 50 Then ActiveChart.FullSeriesCollection(2).Points(1).DataLabel.Interior.Color = RGB(255, 255, 0) If Range("b27").Value >= 70 Then ActiveChart.FullSeriesCollection(2).Points(1).DataLabel.Interior.Color = RGB(255, 130, 0) If Range("b27").Value >= 90 Then ActiveChart.FullSeriesCollection(2).Points(1).DataLabel.Interior.Color = RGB(0, 176, 80) |