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, что привело меня к ошибке «свойство или метод, не определенный для этого объекта».

Есть мысли о том, что я делаю не так?

Заранее спасибо за вашу помощь.

Ответы на вопрос(2)

Ваш ответ на вопрос