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粘貼圖表作爲圖片

回答

相關問題