У меня есть несколько диаграмм, в которых значения X являются текстовыми, а значения Y - числовыми. Я хочу покрасить каждый бар красным, если значение Y для бара меньше нуля, зеленым, если оно больше или равно нулю. Кроме того, если значение X бара "ЧИСТЫЕ ИЗМЕНЕНИЯ "Мне нужна полоса, чтобы быть желтым. Я следовал указаниям в предыдущем потоке StackOverflow здесь:Изменение цвета бара с помощью VBA на основе метки категории.

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

Любые мысли о том, что яя делаю неправильно?

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