vba - 如何使用 pastepecial 将图表作为位图粘贴到 vba 中的另一张纸上

Question

有没有办法使用过去的特殊方法将复制的图表作为位图粘贴到另一个工作表。目前这是我的语法-

PasteSheet.PasteSpecial (Format:="Bitmap", Link:=False, DisplayAsIcon:=False)

PasteSheet 是我要粘贴到的另一个工作表。目前使用此代码，它仅粘贴在事件工作表中。我是否必须使用选择复制然后选择我要粘贴到的页面，然后改回我复制的工作表？我希望不会因为我有很多床单哈哈。

谢谢

编辑:我发现如果我将图表复制为形状而不是图表对象，我可以使用 pasteSpecial 方法粘贴到另一张工作表。话虽如此，它现在将图表粘贴到另一个创建一个巨型图表哈哈。

GraphSheet.Shapes(chtName).Copy 
PasteSheet.PasteSpecial Format:="Microsoft Office Drawing Object", Link:=False , _
     DisplayAsIcon:=False

Answer 1

这无需激活/选择 Sheet2 即可工作:

Sheet1.ChartObjects(1).Chart.CopyPicture
Sheet2.Paste