如何使用Excel VBA 2010創建具有兩個數據集的圖表

Question

這實際上是兩個不同的問題。首先，我有一個包含三列數據的Excel表格。我在列A，C和E中有12行數據。從我一直在查找的內容來看，此程序應將列A指定給x軸，將列C和D指定給y軸，同時還要添加標籤。

Sub ChartMaker() 
    ActiveWorkbook.Charts.Add 
    With ActiveWorkbook.ActiveChart 
     .ChartType = xlXYScatterLines 
     ActiveChart.SetSourceData Source:=Range("A1:A12,C1:C12,E1:E12") 
     .Location xlLocationAsNewSheet 
     .HasTitle = True 
     .ChartTitle.Characters.Text = "CFL Over Time" 
     .Axes(xlCategory, xlPrimary).HasTitle = True 
     .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Time (Days)" 
     .Axes(xlValue, xlPrimary).HasTitle = True 
     .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "CFL" 
     .Axes(xlCategory).HasMajorGridlines = True 
     .Axes(xlCategory).HasMinorGridlines = False 
     .Axes(xlValue).HasMajorGridlines = True 
     .Axes(xlValue).HasMinorGridlines = False 
     .HasLegend = False 
    End With 
End Sub 

我總是收到錯誤「Object variable or With block variable not set」。

這是我的第一個問題！

我的第二個問題是如何創建一個包含以下幾組數據的圖表，其中y軸上有兩組數據，但它們共享一個x軸。

數據集之一：

X  Y1 

1 0.87 
2 0.45 
3 0.92 
4 0.03 
5 0.99 
6 0.45 
7 0.63 
8 0.83 
9 0.28 
10 0.66 

數據設置兩個：

X  Y2 

0.3 2 
4.5 3 
6  6 
7.2 1 
7.8 6 
8.3 1 
9.1 4 
9.6 5 
10  9 
13  2 

有沒有辦法讓這些在同一張圖？ （使用VBA當然）

Answer 1

創建圖表

ActiveSheet.Shapes.AddChart.Select 
'this adds the chart and selects it in the same statement 
ActiveChart.ChartType = xlXYScatter 

後

你然後添加第一組點

ActiveChart.SeriesCollection.NewSeries 
ActiveChart.SeriesCollection(1).Name = "=Sheet1!$C$1" 
ActiveChart.SeriesCollection(1).XValues = "=Sheet1!$A$3:$A$12" 
ActiveChart.SeriesCollection(1).Values = "=Sheet1!$C$3:$C$12" 

的並使用相同的方法來添加所述第二組

ActiveChart.SeriesCollection.NewSeries 
ActiveChart.SeriesCollection(2).Name = "Sheet1!$E$1" 
ActiveChart.SeriesCollection(2).XValues = "=Sheet1!$D$3:$D$12" 
ActiveChart.SeriesCollection(2).Values = "=Sheet1!$E$3:$E$12"