Changing Waterfall chart colour based on point value - excel

Question

I would like to change the colour of waterfall chart based on chart value. For example, if the value negative, put red colour. If value is positive, put green colour.
I got below code from excel vba changing bar chart color for a data point based on point value
This code works with bar chart. However, I cannot use it with waterfall as it shown error "Object doesn't support this action"
Does anyone know how to config this to use with waterfall? Any suggestion would be highly appreciated!
Thanks,
Sub color_chart()
Dim chartIterator As Integer, pointIterator As Integer, _
seriesArray() As Variant
For chartIterator = 1 To ActiveSheet.ChartObjects.Count
seriesArray = ActiveWorkbook.Sheets("Sheet1").ChartObjects(chartIterator). _
chart.SeriesCollection(1).Values
For pointIterator = 1 To UBound(seriesArray)
If seriesArray(pointIterator) >= 0 Then
ActiveWorkbook.Sheets("Sheet1").ChartObjects(chartIterator). _
chart.SeriesCollection(1).Points(pointIterator).Interior.Color = _
RGB(146, 208, 80)
Else
ActiveWorkbook.Sheets("Sheet1").ChartObjects(chartIterator). _
chart.SeriesCollection(1).Points(pointIterator).Interior.Color = _
RGB(255, 0, 0)
End If
Next pointIterator
Next chartIterator
End Sub

Answer 1

Here is the code I used. It works with Waterfall
Sub cht_loop()
Dim i As Integer
Dim cht As Chart
Set cht = Sheets("sheet1").ChartObjects("Chart 10").Chart
For i = 1 To 5
If Sheets("Sheet1").Range("B" & i + 1).Value < 0 Then
With cht.SeriesCollection(1).Points(i).Format.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(192, 0, 0)
End With
Else
With cht.SeriesCollection(1).Points(i).Format.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(0, 176, 80)
End With
End If
Next i
End Sub

Answer 2

So, a quick example:
Just to show what I meant in my comment.