VBA-excel粘贴图表作为图片
我正在创build来自同一个来源的各种图表。 我想能够剪切粘贴每个图表作为图片。 有谁知道正确的代码?
我尝试过,但它不起作用:
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
我总是发现复制图表混乱,但这是你想要的,我认为,并没有使用任何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
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