Excel VBA图表系列填充报错：对象不支持该属性或方法

这个问题我太熟悉啦，你遇到的报错原因其实很直白——最后一行代码的FullSeriesCollection用法出错了！

你录制的宏里明确用了FullSeriesCollection(1)来指定第一个数据系列，但整合到程序时却把索引(1)删掉了。这里要注意：FullSeriesCollection本身是一个系列集合对象，它并没有直接的.Format属性，只有单个的系列（比如指定索引后的FullSeriesCollection(1)）才拥有.Format属性，所以系统才会抛出“Object doesn't support this property or method”的错误。

针对性解决方案 #

根据你的图表系列数量，有两种处理方式：

情况1：图表只有1个数据系列 #

直接给FullSeriesCollection加上索引(1)，修改最后一行代码即可：

.FullSeriesCollection(1).Format.Fill.ForeColor.RGB = KolorUzytkownika

这和你录制宏的逻辑完全匹配，精准定位到唯一的系列设置填充色。

情况2：图表有多个数据系列 #

如果需要给所有系列都应用这个颜色，可以用循环遍历每个系列（适配你用的晚绑定场景，用Object类型）：

Dim ser As Object
For Each ser In .FullSeriesCollection
    ser.Format.Fill.ForeColor.RGB = KolorUzytkownika
Next ser

这样不管图表里有多少个系列，都会逐个设置填充色，兼容性更强。

你可以先通过.FullSeriesCollection.Count查看图表的系列数量，再选择对应的方案~

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