Question

我可以简单地从“Main”工作簿中获取数据，并将其作为值（V）复制到我的“wbnew”工作簿中。这使得行中的公式不是一个因素。我注意到图形（U）还有一个图片粘贴选项。下面我展示了我如何才能轻松地做到这一点。我怎么能只为我的图表单做图片呢？

    Main.Worksheets("Histogram data").Copy Before:=wbnew.Sheets(1)
With wbnew.Sheets(1).UsedRange
    .Value = .Value 'converts formulas to values
End With

。

    Main.Worksheets("Histogram graphs").Copy Before:=wbnew.Sheets(1)
With wbnew.Sheets(1).UsedRange
    .Pictures = .Pictures 'converts graphs to pictures
End With

Answer 1

根据MSDN，您可以使用following method将所选对象作为图片复制到剪贴板。

以下代码适用于您的情况：

Sheet1.ChartObjects(1).Chart.CopyPicture
Sheet2.Paste

此致毛草

Answer 2

Sheets("Sheet1").ChartObjects("Chartname").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy

Range("A1").Select
Sheets("Sheet1").Pictures.Paste.Select

将图形作为图片复制到工作簿

2 个答案: