4

同じソースからさまざまなチャートを作成しています。各チャートの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
4

3 に答える 3

10

チャートのコピーはいつも混乱しますが、これはあなたが望むことを実行し、何も使用しないと思います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-11T01:01:20.833 に答える
1 
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-11T00:55:09.363 に答える
0

少し遅いですが、チャートを画像に変換できます。これを使用してレポートを作成します（前の手順で、元のグラフが作成されている別のタブからグラフをコピーします）

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)
于 2019-04-16T10:55:11.190 に答える