1つのブックから別のブックへのチャートのコピー

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