将图表从一个工作簿复制到另一个工作簿

我正在为Excel创build几个报表文件，它基本上将信息复制到另一个工作簿并保存。

我设法复制我的文本内容就好了，但现在我需要能够复制图表，这是当错误开始popup…

这是我试过的：

ActiveSheet.Shapes(1).CopyPicture Appearance:=xlScreen, Format:=xlPicture Workbooks("Relatorios.xlsm").Sheets("" & tb_nome.Text & "").Paste 

这似乎工作正常，唯一的问题是，我想图表放置在单元格E20，我试过select这个单元格，但我得到一个错误，这是我试过了：

 Workbooks("Relatorios.xlsm").Sheets("" & tb_nome.Text & "").Range("E20").Select 

没有这一行，图表粘贴得很好，只是不在我想要的位置。

所以最终的代码如下所示：

 ActiveSheet.Shapes(1).CopyPicture Appearance:=xlScreen, Format:=xlPicture Workbooks("Relatorios.xlsm").Sheets("" & tb_nome.Text & "").Range("E20").Select Workbooks("Relatorios.xlsm").Sheets("" & tb_nome.Text & "").Paste 

Answer 1

  ActiveSheet.Shapes(1).CopyPicture Appearance:=xlScreen, Format:=xlPicture With Workbooks("Relatorios.xlsm").Sheets(tb_nome.Text) .Paste .Shapes(.Shapes.Count).Top = .Range("E20").Top .Shapes(.Shapes.Count).Left = .Range("E20").Left End With