With ActiveSheet.ChartObjects("ChartName").FullSeriesCollection(1).Format.Fill .Visible = msoTrue .ForeColor.ObjectThemeColor = msoThemeColorAccent1 .ForeColor.TintAndShade = 0 .ForeColor.Brightness = 0.9 .BackColor.ObjectThemeColor = msoThemeColorAccent1 .BackColor.TintAndShade = 0 .BackColor.Brightness = 0.7 .TwoColorGradient msoGradientHorizontal, 1 End With