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

【问题标题】：adding lines to scatterplot with automatic coloring使用自动着色向散点图添加线条
【发布时间】：2016-03-18 13:55:35
【问题描述】：

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

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

请注意，这只是代码的一部分，但它涵盖了我正在尝试做的事情。

【问题讨论】：

标签： vba excel macros scatter-plot

【解决方案1】：

编辑

在查看了您文件中的代码后，我对问题的处理方式略有不同。

在此行将xlXYScatter 更改为xlXYScatterSmooth

ActiveChart.ChartType = xlXYScatterSmooth

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

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

结果：

【讨论】：

当我使用你的代码 sn-p 时为我工作。你能分享你的 excel 文件吗？
你是不是在一个循环中运行它，所以它会创建一个接一个地添加多个系列？
是的，我使用了您的确切代码并将数据添加到图表中。工作后，我重新编写了使用With 语句以使其更具可读性。
这个论坛可以附上工作表吗？
我使用 Lines 而不是 Smooth，但效果很好，非常感谢！