Vba 为什么我的折线图打印数据不正确？

我一直在用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

它不绘制两条线，其中一条线的Y值为B29:B35，另一条线的Y值为G29:G35，而是绘制图形

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

---

这是怎么回事？…

您的图表是按行而不是按您想要的列来绘制值的。有关更多信息，请参阅

将

PlotBy:=xlColumns

添加到

.SetSourceData

行中，以自动按列打印