在图表工作表中使用 SetSourceData 更新图表

Question

我在工作表“Datan_G9-G10”中有一个嵌入式图表。在同一张表中有名称“Chart9”，它是一个动态范围：

=OFFSET('数据_G9-G10'!$G$31;0;0;MAX('数据_G9-G10'!$F$31:$F$51)+1;COUNTA('数据_G9-G10'!$G$30 :$AAA$30))

我的目标是更新图表的数据范围。

Sub UpdateChartSourceData()
  With ActiveSheet
   .ChartObjects(1).Chart.SetSourceData _
   Source:=.Range("Chart9"), _
   PlotBy:=xlRows
  End With
End Sub

到目前为止，此宏运行良好。但我已将图表移至新工作表：“G9”。这就是我的问题开始的地方：“运行时错误'438'，对象不支持此属性或方法”。

如何调整可以更新此图表的宏，仍然将工作表中的名称“Datan_G9-G10”作为图表的数据范围？

Answer 1

现在，您的代码只引用了ActiveSheet，这可能会导致错误，因为您的图表在 ActiveSheet 上，但数据在另一个工作表上。

试试这个：

Sub UpdateChartSourceData()
  ' ## Modify the next line to refer to your chart sheet's name:
  With Worksheets("_Sheet_With_Chart_")
      .ChartObjects(1).Chart.SetSourceData _
          Source:=Worksheets("Daten_G9-G10").Range("Chart9"), _
          PlotBy:=xlRows
  End With
End Sub

来自 cmets 的更新

如果处理图表，修改为使用Sheets 集合（Worksheets 将引发错误）

Sub UpdateChartSourceData()
  ' ## Modify the next line to refer to your chart sheet's name:
  With Sheets("_Sheet_With_Chart_")
          .Chart.SetSourceData Source:=Worksheets("Daten_G9-G10").Range("Chart9"), _
          PlotBy:=xlRows
  End With
End Sub