Excel VBA如何修改指定图表中柱状图系列的填充颜色？

报错根因 #

ChartObjects("CLoans")返回的是工作表内嵌图表的容器对象，而非图表实例本身，无法直接调用图表的系列集合方法，这是代码报错的核心原因。

正确实现代码 #

版本兼容写法（Excel 2013及以上） #

直接按系列名定位修改，和你原本的写法逻辑一致，仅补充访问图表实例的层级：

wsSLSummary.ChartObjects("CLoans").Chart.FullSeriesCollection("Sum of Market Value").Format.Fill.ForeColor.RGB = RGB(36, 7, 249)

全版本兼容写法 #

如果需要适配Excel 2010及更早版本，用SeriesCollection按索引定位（索引从1开始，可提前核对系列顺序）：

' 示例为第一个系列，可按需修改索引值
wsSLSummary.ChartObjects("CLoans").Chart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(36, 7, 249)

排查参考 #

如果修改后仍报错，可以先执行以下代码核对系列名拼写、对象绑定是否正确：

' 先确认wsSLSummary是否正确绑定到目标工作表
Debug.Print wsSLSummary.Name
' 打印目标图表所有系列的名称，核对拼写是否完全匹配
Dim ser As Series
For Each ser In wsSLSummary.ChartObjects("CLoans").Chart.SeriesCollection
    Debug.Print ser.Name
Next

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