VBA-excel粘贴图表作为图片

我从同一来源创建各种图表。我希望能够用vba将每个图表粘贴为图片。有谁知道正确的代码？VBA-excel粘贴图表作为图片

我试着用这个，但它不工作：

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

来源

2012-11-11 user1115535

通过不工作，你的意思是它不做任何事，或者你会得到一个错误？ – bryanmac

它什么都不做 – user1115535

我总能找到复制图表混乱，但这种你想要做什么，我想，不使用任何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

来源

2012-11-11 01:01:20

它很好用！你知道我怎样才能删除以前的图表？ – user1115535

使用'cht.Parent.delete'。看我的编辑。这是因为'Chart'包含在'ChartObject'中。 –

+1很好编码。 – brettdj

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

来源

2012-11-11 00:55:09

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

VBA-excel粘贴图表作为图片

回答

相关问题