为什么我的折线图绘制数据不正确?

Question

我一直在研究一个 excel 宏来绘制图表表上的一些数据，但突然之间，它现在绘制 7 个不同的系列而不是 2

...图形的代码是：

Public Sub GraphResults()
Dim ws As Worksheet
Dim LineGraph As Chart
Set ws = ActiveSheet
Set LineGraph = Charts.Add
With LineGraph
.SetSourceData Source:=ws.Range("B29:B35,G29:G35")
.ChartType = xlLineMarkers
.HasTitle = True
.ChartTitle.Text = ""
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "X-axis"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Y-axis"
.SeriesCollection(1).XValues = ws.Range("A29:A35")
End With

End Sub

它不是绘制 2 条线，其中一条线的 Y 值为 B29：B35，另一条线的 Y 值为 G29：G35，而是绘制 7 条线

每行都有一个 B 值和一个 G 值。例如，系列 1 包含 2 个点：B29 和 G29。系列 2 包含 2 点 B30 和 G30。我根本没有更改代码。实际上，当我打开上次保存的宏时，显示的图形只有2行！当我重新运行宏时，图形变为 7 条线。

这是怎么回事？。。。

Answer 1

您的图表是按行绘制值，而不是按行绘制值，而不是按需要的列绘制。有关详细信息，请参阅设置源数据方法。

将PlotBy:=xlColumns添加到.SetSourceData行以按列自动绘制。