在图表对象中添加多个范围

Question

我想向图表对象添加多个范围，以使图表具有多个数据系列。像下面的代码一样，我需要在同一图表中添加rng2，rng3。需要使用这种特定的编码格式来做到这一点。 非常感谢您的帮助。

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