VBA创建图表并删除系列

Question

我能够为一组数据创建图表。我不想将第 179 行的数据包含在图表中，但我需要将其保留在工作表中。

如何通过修改以下代码来修改图表以将第 178 行(标题)和第 180:182 行作为数据系列？

ActiveSheet.Shapes.AddChart.Select
With ActiveChart
  .SetSourceData Source:=Range("'eod summary'!$B$178:$H$182")
  .ChartType = xlAreaStacked
  .Axes(xlCategory).CategoryType = xlCategoryScale
End With

Answer 1

您的范围引用是硬编码的；如果这始终为真，则构建 Union用于 SetSourceData 的引用。

ActiveSheet.Shapes.AddChart.Select
With ActiveChart
  'shorthand method
  .SetSourceData Source:=Range("'eod summary'!$B$178:$H$178,'eod summary'!$B$180:$H$182")
  'Union(..., ...) method; more verbose but also more explanatory
  '.SetSourceData Source:=Union(Range("'eod summary'!$B$178:$H$178"), _
                                Range("'eod summary'!$B$180:$H$182"))
  .ChartType = xlAreaStacked
  .Axes(xlCategory).CategoryType = xlCategoryScale
End With