CODEWITHSUNDEEP
excelvba
Jorg Ancrath
Jorg Ancrath

Reputation: 1447

Copying Chart from one Workbook to another

I'm working on building a couple of report files for Excel, it basically copies information over to another Workbook and saves it.

I've managed to copy my textual content just fine, but now I need to be able to copy charts over, and this is when the errors start popping...

This is what I tried:

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

This seems to work fine, the only issue is that I want the chart placed on the cell E20, I tried selecting this cell but I get an error, this is what I tried:

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

Without that line the chart is pasted just fine, just not where I want it.

So the final code looked like:

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

Upvotes: 1

Views: 6384

Answers (1)

Tim Williams
Tim Williams

Reputation: 166885

    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

Upvotes: 5

Related Questions