为什么我的 LineChart 绘制数据不正确？

Question

我一直在使用 excel 宏来绘制 Chartsheet 上的一些数据，但突然之间，它现在绘制了 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，而是绘制 7 lines

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

这是怎么回事？...

Answer 1

您的图表按行绘制值，而不是您想要的列。请参阅SetSourceData Method 了解更多信息。

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