VBA-excel粘贴图表为图片答案

【问题标题】：VBA-excel paste chart as a pictureVBA-excel粘贴图表为图片
【发布时间】：2012-11-11 00:19:15
【问题描述】：

我正在从同一来源创建各种图表。我希望能够用 vba 将每个图表剪切粘贴为图片。有人知道正确的代码吗？

我试过了，但它不起作用：

Range("B21:C22").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("'Graphs'!$B$21:$C$22")
ActiveChart.ChartType = xl3DPie
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
ActiveSheet.Pictures.Paste.Select

【问题讨论】：

不工作的意思是它什么都不做或者你得到一个错误？

标签： excel vba charts paste

【解决方案1】：

我总是觉得复制图表令人困惑，但我认为这是你想要的，并且不使用任何Selects，这总是很好。

Sub CreateAndCopyChart()
Dim ws As Worksheet
Dim cht As Chart

Set ws = ThisWorkbook.Worksheets("Graphs")
Set cht = ws.Shapes.AddChart.Chart
With cht
    .SetSourceData ws.Range("$B$21:$C$22")
    .ChartType = xl3DPie
    .ChartArea.Copy
End With
ws.Range("A2").PasteSpecial xlPasteValues
cht.Parent.Delete
End Sub

【讨论】：

效果很好！你知道我怎样才能删除以前的图表吗？
使用cht.Parent.delete。请参阅我的编辑。这是因为Chart 包含在ChartObject 中。
太棒了，完美！非常感谢道格。

【解决方案2】：

Range("A1:A8").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("'Sheet1'!$A$1:$A$8")
ActiveChart.ChartType = xlLine
ActiveChart.PlotArea.Select
ActiveChart.ChartArea.Copy


Range("A20").Select
ActiveSheet.Paste

【讨论】：

谢谢杰里米，但它不起作用。粘贴的图表不是图片。

【解决方案3】：

有点慢，但可以让您将图表转换为图片。我使用它来创建报告（在之前的步骤中，我从另一个选项卡复制图表，其中创建了原始图表）

ActiveSheet.ChartObjects.Select 
Selection.Copy                        'copy charts 
Range("A1").Select                    'choose destination
ActiveSheet.Pictures.Paste.Select     'paste as pictures
ActiveSheet.ChartObjects.Delete       'delete charts (leaving just pictures)

【讨论】：

你能添加一个简短的描述吗？