VBA excel将图表粘贴为图片

我正在从同一个来源创建各种图表。我想能够剪切粘贴与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

---

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

选择，这总是很好的

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
。请参阅我的编辑。这是因为
图表
包含在
图表对象
中。这太棒了，太完美了！非常感谢道格。你说的“不工作”是指它什么都不工作还是你出错了？你能补充一个简短的描述吗？
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

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)