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

如果没有那条线，图表就会粘贴得很好，而不是我想要的地方。

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

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

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

1 个答案: