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

score 2 · Accepted Answer

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

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

score 1 · Accepted Answer

我是否必须使用选择复制然后选择我要粘贴到的页面，然后改回我复制的工作表？

是的 - 您粘贴到的工作表必须处于活动状态。使用Sheets("mytargetname").Select——仅仅使用Activate是不够的……

如果你设置

Application.ScreenUpdating = False

执行此操作时，您的屏幕不会闪烁...

2 回答 2