Excel VBA .AddChart方法'對象'_chart'的'SetSource數據'失敗

Question

我正在嘗試將圖表插入到電子表格中，如msdn中所述：

https://msdn.microsoft.com/zh-CN/library/bb238877(v=office.12).aspx

不幸的是，我在

對象“ _chart”的方法“ SetSource Data”失敗

在開始ActiveChart的行上。 為什么這樣做呢？ 我在這里嘗試了字符串和范圍變量都無濟於事。

除了我無法使用這種方法的事實之外，我不喜歡您需要選擇選擇圖形的事實，當然還有更好的方法嗎？

Function TimeSeries(rngToPrint As Range)
    Dim strRange As String
    Dim rngChart As Range

    lngstartrow = 8
    lngendrow = Range("a10000").End(xlUp).Row
    Range("$A$" & CStr(lngstartrow) & ":$B$" & CStr(lngendrow)).Select
    Sheets(rngToPrint.Worksheet.Name).Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range("$A$" & CStr(lngstartrow) & ":$B$" & CStr(lngendrow)), PlotBy:=xlLine

End Function

Answer 1

PlotBy參數指定是按行還是按列繪制數據。 因此，該參數應設置為xlRows或xlColumns。

Answer 2

由於沒有PlotBy:=xlLine因此錯誤出現在下一行

修改為：

ActiveChart.SetSourceData Source:=Range("$A$" & CStr(lngstartrow) & ":$B$" & CStr(lngendrow)), PlotBy:=xlRows

或者：

ActiveChart.SetSourceData Source:=Range("$A$" & CStr(lngstartrow) & ":$B$" & CStr(lngendrow)), PlotBy:=xlColumns