Excel VBA 修改CLoans、ULoans柱状图填充色 解决更新源数据后颜色重置问题

你在更新数据源时柱形颜色被重置，是因为Excel调用SetSourceData方法时会默认重置图表系列的原有格式，只需要在更新数据源的代码之后追加填充色设置代码即可。

以下是可直接添加在你现有代码End With前的示例代码：

' 配置CLoans图表柱形填充色
With .ChartObjects("CLoans").Chart.FullSeriesCollection(1)
    .Format.Fill.ForeColor.RGB = RGB(0, 51, 102) ' 可替换为你需要的颜色对应的RGB值
    .Format.Fill.Solid
End With

' 配置ULoans图表柱形填充色
With .ChartObjects("ULoans").Chart.FullSeriesCollection(1)
    .Format.Fill.ForeColor.RGB = RGB(0, 112, 192) ' 可替换为你需要的颜色对应的RGB值
    .Format.Fill.Solid
End With

补充说明：

• 如果你的单张图表包含多个数据系列，修改FullSeriesCollection后的索引即可，比如第2个系列对应参数为(2)
• 如果不确定目标颜色的RGB值，可在Excel中随便选中一个单元格，填充为你需要的目标颜色，右键点击「设置单元格格式」-「填充」即可查看对应RGB数值，替换到代码中即可生效。

内容的提问来源于stack exchange，提问作者Automating_My_Life