Sub ChartForeColor()
ActiveSheet.ChartObjects("Chart 1").Activate
With ActiveSheet.Shapes("Chart 1").Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(Range("A1").Value, Range("A2").Value, Range("A3").Value)
.ForeColor.TintAndShade = 0
' .ForeColor.Brightness = 0.6000000238
.ForeColor.Brightness = 0.1
.Transparency = 0
.Solid
End With
End Sub