Excel VBA изменение цвета гистограммы для точки данных на основе значения точки
У меня есть несколько диаграмм, в которых значения X являются текстовыми, а значения Y - числовыми. Я хочу покрасить каждый бар красным, если значение Y для бара меньше нуля, зеленым, если оно больше или равно нулю. Кроме того, если значение X столбца «NET CHANGE», необходимо, чтобы столбец был желтым. Я следовал указаниям в предыдущем потоке StackOverflow здесь:Изменение цвета бара с использованием VBA на основе метки категории.
Я получаю ошибку во время выполнения 451 Свойство let, процедура не определена, и свойство get не вернуло объект.
Мой код ниже:
For chartIterator = 1 To ActiveSheet.ChartObjects.count
For pointIterator = 1 To ActiveWorkbook.Sheets("Sheet1").ChartObjects(chartIterator).Chart.SeriesCollection(1).Points.count
If ActiveWorkbook.Sheets("Sheet1").ChartObjects(chartIterator).Chart.SeriesCollection(1).Values(pointIterator) >= 0 Then
ActiveWorkbook.Sheets("Sheet1").ChartObjects(chartIterator).Chart.SeriesCollection(1).Points(pointIterator).Interior.Color = _
RGB(146, 208, 80)
Else
ActiveWorkbook.Sheets("Due To Chart").ChartObjects(chartIterator).Chart.SeriesCollection(1).Points(pointIterator).Interior.Color = _
RGB(255, 0, 0)
End If
Next pointIterator
Next chartIterator
Ошибка появляется в операторе IF. Я также попытался .Points (pointIterator) .Value, что привело меня к ошибке «свойство или метод, не определенный для этого объекта».
Есть мысли о том, что я делаю не так?
Заранее спасибо за вашу помощь.