イメージを新しいブックにのみコピーする

Question

現在のブック（メイン）からシートをコピーして新しいブック（wbnew）に貼り付けるコードを正しく作成しました。ペーストは、式が転送されないようにするためにのみ値を行います。私は「ヒストグラム」と呼ばれるシート上にあるグラフを使って同じことをしたいと思います。グラフをコピーして画像として貼り付けることができます。複数のグラフを含むシートでこれを行うにはどうすればよいですか？

あなたは、chartobjectsコレクションを使用してデータシート上の各チャートをループし、あなたの写真のワークシートに画像として貼り付ける必要があり

 Main.Worksheets("MyData").Copy Before:=wbnew.Sheets(1) 
With wbnew.Sheets(1).UsedRange 
    .value = .value 'converts formulas to values 
End With 


     Main.Worksheets("Histograms").Copy Before:=wbnew.Sheets(1) 
With wbnew.Sheets(1).UsedRange 
    .Pictures = .Pictures 'converts graphs to pictures 
End With 

Answer 1

：

Sub CopyChartsToPics() 
Dim oChart As ChartObject 

    ActiveWorkbook.Worksheets("charts").Activate 

    For Each oChart In ActiveSheet.ChartObjects 
     oChart.Select 
     oChart.Copy 
     ActiveWorkbook.Worksheets("pictures").Select 
     ActiveWorkbook.Worksheets("pictures").Pictures.Paste 
     ActiveWorkbook.Worksheets("charts").Activate 
    Next 
End Sub