使用自动着色向散点图添加线条

Question

我有一个可以创建散点图并添加几组数据的宏。所有的数据系列都有自动的不同颜色和标记，现在我想添加连接点并且也有自动着色的线条，相反它会使所有线条变黑。有没有办法让它通过自动着色打开线，以便它们匹配标记？我自己手动将一条黑线改为自动着色，但是当我将这条线添加到我的宏时，它仍然会使所有线条变黑。我无法手动输入颜色代码，因为每次运行它时，它可能会添加不同数量的数据集。

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

ActiveChart.ChartType = xlXYScatterSmooth

在系列循环之后添加以下代码以从第一个系列中删除该行。

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

结果：