Копирование диаграммы из одной книги в другую

Question

Я работаю над созданием нескольких файлов отчетов для Excel, он в основном копирует информацию в другую книгу и сохраняет ее.

мне удалось скопировать мое текстовое содержимое просто отлично, но теперь мне нужно, чтобы иметь возможность копировать диаграммы более, и это, когда ошибки начинают появляться ...

Это то, что я пробовал:

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

Это, кажется, работает хорошо, единственная проблема в том, что я хочу, диаграмма помещается на ячейку Е20, я попытался выбрать эту ячейку, но я получаю сообщение об ошибке, это то, что я пробовал:

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