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

Question

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

我已经成功地我的文本内容复制就好了，但现在我需要能够通过复制图，这是在错误的开始雨后春笋般冒出......

这是我的尝试：

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

这似乎做工精细，唯一的问题是，我想放置在电池E20的图表中，我试着选择这个小区，但我得到一个错误，这是我的尝试：

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

W没有那条线，图表粘贴得很好，只是不在我想要的位置。

所以最终的代码看起来像：

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