從一個工作簿複製圖表到另一個

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