如何將兩個命名範圍設置爲圖表數據源？

Question

我有兩個命名範圍，詳情如下：

Set JRange = sht.Range(sht.Cells(StartRow, 10), sht.Cells(LastRow, 10)) 
Set DRange = sht.Range(sht.Cells(StartRow, 4), sht.Cells(LastRow, 4)) 

我想使用這兩者作爲來源爲我指定的圖表宏。這是我的：

Set Chart = ActiveSheet.ChartObjects.Add(Left:=300, Width:=325.9842519685, Top:=10, Height:=277.5118110236) 

With Chart 
    .Chart.SetSourceData Source:=Range(DRange) And (JRange), PlotBy:=xlColumns 
    .Chart.ChartType = xlLine 
    .Chart.ChartStyle = 2 
    .Height = 277.5118110236 
    .Width = 325.9842519685 

任何幫助將不勝感激！

Answer 1

您可以設置一個新的系列Values和XValues分開：

Sub Tester() 

    Dim JRange As Range, DRange As Range, chtObj, cht As Chart 
    Dim StartRow, LastRow, sht 

    StartRow = 3 'for testing 
    LastRow = 15 'for testing 
    Set sht = ActiveSheet 

    Set JRange = sht.Range(sht.Cells(StartRow, 10), sht.Cells(LastRow, 10)) 
    Set DRange = sht.Range(sht.Cells(StartRow, 4), sht.Cells(LastRow, 4)) 


    Set chtObj = ActiveSheet.ChartObjects.Add(Left:=300, _ 
       Width:=325.9842519685, Top:=10, Height:=277.5118110236) 

    With chtObj.Chart 
     .ChartType = xlLine 
     .ChartStyle = 2 
     With .SeriesCollection.NewSeries 
      .Values = JRange 
      .XValues = DRange 
     End With 
    End With 

End Sub