添加线条以自动着色的散点图

我有一个macros可以创build一个散点图并添加几组数据。 所有的数据系列自动有不同的颜色和标记，现在我想添加连接点的线条，并自动着色，而不是所有的线条都是黑色的。 有没有办法让它自动着色，使他们符合标记线？ 我logging自己手动改变其中一个黑线自动着色，但是当我把这条线添加到我的macros，它仍然使所有的黑线。 而且我不能手动input一个颜色代码，因为每次我运行它可能会添加不同数量的数据集。

Adds Stage trends to plot x = Cells(1, 1).Value y = Cells(3, 1).Value y = y + 13 a = 4 b = 2 Do stg = Cells(1, a).Value ActiveChart.PlotArea.Select ActiveChart.SeriesCollection.NewSeries ActiveChart.SeriesCollection(b).Name = stg ActiveChart.SeriesCollection(b).XValues = Range(Cells(2, 2), Cells(x, 2)) ActiveChart.SeriesCollection(b).Values = Range(Cells(2, a), Cells(x, a)) ActiveChart.SeriesCollection(b).Select Selection.Format.Line.Visible = msoTrue ActiveChart.ChartArea.Select a = a + 1 b = b + 1 Loop Until a = y 

请注意，这只是代码的一部分，但它涵盖了我所要做的。

Answer 1

编辑

在审查了你的文件中的代码后，我提出了一些不同的问题。

在这一行xlXYScatter xlXYScatterSmooth更改为xlXYScatterSmooth

 ActiveChart.ChartType = xlXYScatterSmooth 

---

在您的系列循环后添加以下代码以删除第一个系列的行。

 ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse 

结果：