Question

我想从一个表的多个数据系列中绘制一个图表。要使用单个数据系列，即使用A绘制B对A的代码，请使用以下代码：

Sub plt()
    Set rng1 = ActiveSheet.Range("A:A,B:B")
    With ActiveSheet
      .Shapes.AddChart
      Set objChrt = .ChartObjects(.ChartObjects.Count)
      Set chrt = objChrt.Chart
      With chrt
        .ChartType = xlXYScatterSmoothNoMarkers
        .SetSourceData Source:=rng1
     End With
   End With   
End Sub

现在，我想在同一张图表中将C列相对于D列进行绘制。我尝试修改rng a

Set rng1 = ActiveSheet.Range("A:A,B:B, C:C,D:D")

但不起作用。有人可以帮我吗？

谢谢

Answer 1

请尝试将最后三行替换为：

          .PlotArea.Select
          End With
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.FullSeriesCollection(2).XValues = ActiveSheet.Range("C:C")
    ActiveChart.FullSeriesCollection(2).Values = ActiveSheet.Range("D:D")
    End With
End Sub

绘制具有多个数据系列的图表

1 个答案: