マクロ記録でグラフのコピー方法を探った。

www.youtube.com
http://www.youtube.com/watch?v=WYVb5m7NotY

マクロ記録して、カットしたり、肉付け(追加)して、プログラムを修正した、そんなお話です。

Sub Macro1() 'マクロ記録でグラフのコピー方法を探った。 
    Range("A10:C14").Select
    Selection.Copy 
    ActiveSheet.ChartObjects("グラフ 1").Activate
    ActiveChart.ChartArea.Select
    Application.CutCopyMode = False
    ActiveChart.ChartArea.Copy
    Range("A32:A42").Select
    Selection.Copy Range("C32").Select
End Sub

↑まぁ、こんな感じで、探ると楽なのでは？？？

解説と続きは、 http://www.ken3.org/vba/backno/vba183.html をみて、笑ってください。

別解、別な切り口からのアプローチ 2011/07/26追記

人力検索の

http://q.hatena.ne.jp/1311651846
Excelファイルのシート数枚にグラフを作ったのですが、これをメール本文に表示してメール送付する方法を教えて下さい。毎日グラフを更新して送るので、なるべく手間がかからない方法であると大変助かります。
http://q.hatena.ne.jp/1311651846

の回答に、

エクセルブックをHTML形式で保存すると グラフが画像ファイルになります

↑、この方向からのアプローチが

手前味噌の http://www.ken3.org/vba/backno/vba183.html で行った、リッチテキスト形式で強引に画像を送るよりもわかりやすかったかも。

いろいろな方法があるので、試してみてください。