Eu tenho alguns gráficos em que os valores X são texto e os valores Y são numéricos. Eu quero colorir cada barra vermelha se o valor de Y para a barra é menor que zero, verde se maior que ou igual a zero. Além disso, se o valor X da barra for "NET CHANGE", eu preciso que a barra seja amarela. Eu segui as instruções em um thread StackOverflow anterior aqui:Alterando as cores da barra usando o VBA com base no rótulo da categoria.

Estou recebendo erro de tempo de execução 451 Propriedade deixe procedimento não definido e propriedade obter procedimento não retornou um objeto.

Meu código está abaixo:

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

O erro aparece na instrução IF. Eu também tentei .Points (pointIterator) .Value, que me deu um erro "propriedade ou método não definido para este objeto".

Qualquer pensamento sobre o que estou fazendo errado?

Agradeço antecipadamente por sua ajuda.