如何将折线图系列颜色设为指定单元格颜色？VBA代码问题排查

需求 #

将折线图的指定系列（下方的系列）颜色修改为E4:N4单元格的颜色。

遇到的问题 #

运行现有VBA代码后，所选折线图系列全部变为白色，图表数据来自另一未在图中显示的数组。

疑问 #

是否因为代码仅返回用于生成图表的数组数据颜色？

现有代码 #

Sub lines_color()

    Dim i As Integer
    Dim j As Integer
    
    For i = 27 To 36
        For j = 5 To 15
            ActiveChart.FullSeriesCollection(i).Format.Line.ForeColor.RGB = Cells(4, j + 1).DisplayFormat.Interior.Color
        Next j
    Next i

End Sub

图表对比 #

运行前 #

运行后 #

问题分析与解决方案 #

你的代码核心问题是嵌套循环逻辑错误：外层循环遍历27-36号系列（共10个），内层循环却遍历5-15列（共11个单元格），这会让每个系列被重复设置11次颜色，最终所有系列都被覆盖为最后一个单元格（O4）的颜色——如果O4是白色，就会出现所有系列变白的情况。

另外，DisplayFormat.Interior.Color在部分场景下（比如单元格用条件格式设色、工作表未激活）可能无法正确读取颜色，改用Interior.Color更稳定。

修正后的代码：

Sub lines_color()
    Dim i As Integer
    ' 27-36号系列对应E4到N4（10个系列匹配10个单元格）
    For i = 27 To 36
        ' 系列索引偏移对应单元格列：27→E(5列)，28→F(6列)...36→N(14列)
        ActiveChart.FullSeriesCollection(i).Format.Line.ForeColor.RGB = Cells(4, 5 + (i - 27)).Interior.Color
    Next i
End Sub

说明 #

• 移除冗余的内层循环，让每个系列一对一匹配目标单元格
• 替换DisplayFormat.Interior.Color为Interior.Color，确保颜色读取准确

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