Tengo algunos gráficos en los que los valores X son texto y los valores Y son numéricos. Quiero colorear cada barra Roja si el valor de Y para la barra es menor que cero, Verde si es mayor o igual que cero. Además, si el valor X de la barra es "NET CHANGE", necesito que la barra sea amarilla. Seguí las instrucciones en un hilo anterior de StackOverflow aquí:Cambiar los colores de las barras utilizando VBA basado en la etiqueta de categoría.

Obtengo Error de tiempo de ejecución 451 La propiedad dejó el procedimiento no definido y la propiedad obtuvo el procedimiento no devolvió un objeto.

Mi código está abajo:

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

El error aparece en la sentencia IF. También probé .Points (pointIterator) .Value, que me dio un error de "propiedad o método no definido para este objeto".

¿Alguna idea sobre lo que estoy haciendo mal?

Gracias de antemano por tu ayuda.