错误1004:Microsoft Excel无法粘贴数据

我无法将一些excel图表复制和粘贴为图片，并收到错误：“1004”Microsoft excel无法粘贴数据。“我的代码找到一个预先制作的图表，更新范围，复制图表，并将其粘贴到另一张工作表中。奇怪的是，这个错误是不一致的，有时它会将某个图表粘贴为图片，有时则不会。我可以使用类似的代码毫无问题地复制到word，如果我使用基本的复制功能，它可以作为图表重新粘贴

这是我用来复制图表并粘贴为图片的功能：

chtObj.CopyPicture xlScreen, xlPicture
 PasteSheet.Paste

如果我有明显的遗漏，或者有任何解决办法，我愿意接受

---

谢谢

我发现，对于非常大的数据点，excel很容易失去对这些点的引用。因此，如果你复制并粘贴一张图片，我相信它在某种程度上仍然保持着与那些数据点的链接，这些数据点可能会不稳定，并导致弹出1004错误。在Floris、chuff和其他SO成员的帮助下，我的工作是复制chartArea并使用pastespecial方法进行粘贴

ActiveSheet.ChartObjects(chtName).Activate
ActiveChart.ChartArea.Copy
PasteSheet.Select
PasteSheet.PasteSpecial Format:="Bitmap", Link:=False, DisplayAsIcon:=False

---

不幸的是，使用pastespecial formatted to bitmap粘贴到另一张工作表的唯一方法似乎是先选择该工作表，然后再粘贴，然后重新选择从中复制的工作表。

唯一对我有效的方法是先粘贴Special，然后是“XML电子表格”。它保留了电子表格与我的日期、金额以及网站链接的完整性。

欢迎使用StackOverflow！请看下面的答案。谢谢！这是一个好的开始，但我有预先制作的图表，我试图切换，虽然和更新他们的范围。您知道在不添加新图表的情况下设置图表的语法吗？请尝试设置源数据-解释。很抱歉，我在解释真正的问题时做得很糟糕。我可以很好地更新图表系列。就粘贴而言，有时我运行我的程序时会出现错误-1004“Microsoft excel无法粘贴数据”，有时它会顺利完成。请尝试我提到的第一个链接中的方法：chtObj。ChartArea.Copy，PasteSheet.Range（“A1”）.PasteSpecial xlPasteValues（其中“，”表示新行代码，将A1更改为PasteSheet上所需的任何单元格）。我发现“通常有效”的顺序是-选择要复制的对象所在的工作表。选择对象。复制它。选择要粘贴到的图纸。选择要粘贴的区域。粘贴注意-我说的是“选择”，而不是“激活”。。。有时“激活”会产生奇怪的结果…@JumboFive you great！！