vba 设置 chart的数据来源 ActiveChart.SetSourceData，如何获取已知得chart对象的数据来源的range对象

要获取已知的Chart对象的数据来源Range对象，可以使用以下代码：

Dim chartDataRange As Range
Set chartDataRange = ActiveChart.ChartData.Workbook.Worksheets(1).ListObjects(1).Range

这将返回Chart数据的Range对象。其中，`ChartData`是Chart对象的一个属性，它返回一个`ChartData`对象，该对象代表Chart的数据源。`Workbook.Worksheets(1)`用于获取第一个工作表，`ListObjects(1)`用于获取第一个表格，`Range`则返回该表格的数据范围。