Excel 用VBA改变XY散点图上的线颜色

我希望根据另一张表中单元格的值更改每个系列的颜色

我通过单步执行宏进行了检查，除了颜色更改之外，其他一切都正常工作。这种类型的代码将针对不同类型的事件运行六次（为了缩短本文的篇幅，我删除了五个事件）

我在任何序列上都没有标记，只有该序列两点之间的连接线

图表的截图。

在Windows 10中使用Excel 2013。

试试看

chartj.Format.Line.ForeColor.RGB = RGB(0, 176, 80)

---

希望这能有所帮助，

chartj.Format.Line.Visible=msoFalse

后面紧跟着

chartj.Format.Line.Visible=msoTrue

，为什么这些行会出现在

If

语句的两个分支中？感谢您的回复。我发现另一篇文章解释了在excel系列中调整颜色的一些问题。它描述了使用.visible=msoFalse和.visible=msoTrue语句欺骗系统的需要。正如我注意到的，我试图根据自己的需要调整此代码，但不幸的是，无法使其正常工作。不幸的是，我以前尝试过此方法。再次输入工作表，查看它是否工作，但没有。谢谢你的回答。你能更详细地解释一下它是怎么不起作用的吗？它会抛出错误吗？结果与您的期望有什么不同？代码按预期运行，直到线条颜色改变，即此代码

chartj.Format.line.Visible=msoFalse chartj.Format.line.Visible=msoTrue chartj.Border.LineStyle=xlContinuous chartj.Border.color=RGB（0，176，80）

从我的错误检查中，选择了正确的序列进行格式化，但在单步执行此代码区域时没有任何操作（即颜色更改）。

chartj.Format.Line.ForeColor.RGB = RGB(0, 176, 80)