现有图表上的VBA Paste Special

我想使用VBA将一系列数据粘贴到现有的图表中，使用以下屏幕截图中显示的选项：

如果我手动录制一个macros，代码只会声明ActiveChart.Paste 。 因此，当我重新运行这个代码时，系列将被定期粘贴，而不激活“第一排系列名称”。 我怎样才能正确地编码？ 到目前为止，我在研究中还没有find太多帮助。

Answer 1

那么，我尝试了一个简单的代码，它的工作原理。
假设你有一个像下面的数据，你做了一个简单的聚集柱形图：

现在，您要粘贴特殊的Data2，就像在屏幕截图中一样。
在我的最后工作的VBA代码如下：

 Sub test() Dim ch As Chart: Set ch = Sheet1.ChartObjects(1).Chart Range("A1:A4,C1:C4").Copy '~~> you need to include the x axis labels when copying ch.SeriesCollection.Paste RowCol:=xlColumns, SeriesLabels:=False, _ CategoryLabels:=True, Replace:=False, NewSeries:=True End Sub 

结果：

我不知道你在做什么图表，或者你想如何构build。
以上仅显示了如何执行复制和粘贴 范围内的特殊数据到现有图表 。 HTH