Excel-ActiveChart.SetSourceData源：运行时错误'445'：对象不支持此操作

Question

我有一本excel工作簿（v2016），在其中我设法根据最大条目数获得了一个表的表名。此值（表的名称）在工作表“ Pareto”单元格B4中。

我正在使用以下代码使用上述表名来更新图表

Sub GetTables()

Dim YTDL1TableName As String
Dim YTDL1Range As Range

YTDL1TableName = Sheets("Pareto").Range("B4")
Set YTDL1Range = Sheets("Pareto").Range(Sheets("Pareto").ListObjects(YTDL1TableName).Range.Address(True, True))
Sheets("Pareto").ChartObjects("YTDL1").Activate
ActiveChart.ChartArea.Select
ActiveChart.HasTitle = True
ActiveChart.ChartTitle.Text = YTDL1TableName
ActiveChart.SetSourceData Source:=YTDL1Range
End Sub

图表确实更新了，但我却得到了错误

  

运行时错误'445'：对象不支持此操作

如何摆脱这个错误？

预先感谢

Answer 1

据我了解，您想根据单元格中的值更改图表的数据源。

请尝试以下代码：

Sub GetTables()

Dim YTDL1TableName As String
Dim YTDL1Range As Range


YTDL1TableName = Sheets("Pareto").Range("B4")
'Set YTDL1Range = Sheets("Pareto").Range(Sheets("Pareto").Cells(YTDL1TableName).Address(True, True))
Worksheets("Pareto").ChartObjects("YTDL1").Activate
ActiveChart.ChartArea.Select
ActiveChart.HasTitle = True
ActiveChart.ChartTitle.Text = YTDL1TableName
ActiveChart.SetSourceData Source:=Sheets("Pareto").Range("B4")

End Sub

结果如下：

希望有帮助！