Ayuda!Cambiar colores a barra de grafico por macro

[Andy506]

Buenos Días compañeros, 

Se me presenta un problema con la ejecucion de una macro que estaba armando para que los graficos me cambien de color, los graficos me cumplen la condicion si el relleno de cada barra lo dejo con el color que necesito , pero a la hora de cerrar y abrir el archivo y ejecutar la macro, las barras con porcentaje 0% cambian su relleno en automatico, dejando las barras de color azul.

El codigo actual es el siguiente
Private Sub Mes_Click()
' Datos a Mes Abril
'
'Muestra Hojas Para Realizar Cambios
Sheets("Dashboard").Select
Sheets("Tablas").Visible = True
Sheets("Dashboard").Select
'Cambia Formulas de Acumulados
Application.ScreenUpdating = False
Range("B24:C25").Select
ActiveCell.FormulaR1C1 = "=Base!R[-22]C[11]"
Range("E24:F25").Select
ActiveCell.FormulaR1C1 = "=Base!R[-21]C[8]"
Range("H24:I25").Select
ActiveCell.FormulaR1C1 = "=Base!R[-20]C[5]"
Range("K24:L25").Select
ActiveCell.FormulaR1C1 = "=Base!R[-19]C[2]"
Range("N24:O25").Select
ActiveCell.FormulaR1C1 = "=Base!R[-18]C[-1]"
Range("Q24:R25").Select
ActiveCell.FormulaR1C1 = "=Base!R[-17]C[-4]"
Range("Q26").Select
Sheets("Tablas").Select
'Filtra Tabla de 6B
ActiveSheet.ListObjects("Tabla2").Range.AutoFilter Field:=1, Criteria1:= _
"<>"
'Filtra Tabla Pilotos
ActiveSheet.ListObjects("Tabla3").Range.AutoFilter Field:=1, Criteria1:= _
"<>"
'Filtra Tabla Faltantes
ActiveSheet.ListObjects("Tabla4").Range.AutoFilter Field:=1, Criteria1:= _
"<>"
'Filtra Tabla Abarrotes
ActiveSheet.ListObjects("Tabla5").Range.AutoFilter Field:=1, Criteria1:= _
"<>"
'Filtra Tabla Pot.Cl
ActiveSheet.ListObjects("Tabla6").Range.AutoFilter Field:=1, Criteria1:= _
"<>"
'Filtra Tabla Totales
ActiveSheet.ListObjects("Tabla7").Range.AutoFilter Field:=1, Criteria1:= _
"<>"
'Oculta Hojas Para Finalizar
Sheets("Tablas").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Dashboard").Select
Range("S1").Select
'Mensaje de confirmacion
Sheets("Dashboard").Select
MsgBox "Los Datos de Abril Han Sido Seleccionados"

End Sub

Lo que hace la macro es filtrar unas tablas para que el grafico solo agarre el dato con valor y la barra cambie, pero me resetea el relleno de la barra , 

Existe una Macro que me deje el relleno de las barras del grafico en en relleno solido que yo escoja? o hay manera de decirle al archivo que NO modifique los rellenos del mismo.

Gracias por su ayuda de ante mano