Making a chart display only two colors

Hello,

I am trying to make my 3D Column chart display only two colors, Green for positive values and Red for negative values. My chart consists of 3 variables. I've attached the example. Anybody know how I can accomplish this for the colors? Does it require VBA?

Thank you but I need to find an automated way. Am working on a VBA solution now

@Aardigspook
at point 1
Easier is click on chart then from the ribbon: chart tools - Format - Current Selection - from drop down select series one by one and the rest is the same like point 2, 3 etc...

In case this would help anybody in the future, I accomplished it using the following:

Sub FormatPointByCategoryAndValue()
  Dim rColor As Range
  Dim vColor As Variant
  Dim srsColor As Series
  Dim srsColor2 As Series
  Dim iRow As Long
  Dim iCol As Long
  Dim iPoint As Long
  Dim vCategories As Variant
  Dim vValues As Variant

  Const sColorSheetName As String = "ColorSheet"
  Const sColorRangeName As String = "ColorRange"
  
    PosCol = RGB(0, 0, 255) ' colour for positive values
    NegCol = RGB(255, 0, 0) ' colour for negative values

    Set srsColor = ActiveChart.SeriesCollection(1)
    
    ' cycle through points
    For iPoint = 1 To Sheet2.Range("Start_Series").End(xlDown).Row - Sheet2.Range("Start_Series").Row + 1
   
        'Extract the column number iPoint
         Set srsColor2 = ActiveChart.SeriesCollection(iPoint)
         With srsColor2
            vValues = .Values
        End With
        For iCol = 1 To srsColor.Points.Count
            If vValues(iCol) < 0 Then
                ActiveChart.SeriesCollection(iPoint).Points(iCol).Select
               Selection.Format.Fill.ForeColor.RGB = RGB(255, 0, 0)
               
            ElseIf vValues(iCol) > 0 Then
                ActiveChart.SeriesCollection(iPoint).Points(iCol).Select
                Selection.Format.Fill.ForeColor.RGB = RGB(0, 176, 80)
            
            Else
                ActiveChart.SeriesCollection(iPoint).Points(iCol).Select
                Selection.Format.Fill.ForeColor.RGB = RGB(255, 255, 255)
            End If
        Next iCol
      Next iPoint

ExitHere:

End Sub