★　Excelのグラフをクリップボード経由でPictureBoxに貼付 の関係部分のみ
　　
VB.NETからExcel にデータを送りグラフを表示する に下記の部分を追加して下さい。

　 '追加位置は、VB.NETからExcel にデータを送りグラフを表示する をご覧下さい。
　 '=========================== ここからが追加分 =============================
　　　Dim xlVersion As Excel.Application
　　　xlVersion = xlApp.Application
　　　'起動中(使用中)のExcel のバージョンを取得
　　　If CDbl(xlVersion.Version) >= 12 Then
　　　'Excel 2007/Excel 2010 の場合
　　　　 '--------------------------------------------------------------------------　
　　　　 '★ このグラフをファイルに保存する場合
　　　　 xlChart1.Export(Filename:=Application.StartupPath & "\test001.GIF", FilterName:="GIF")
　　　　 '---------------------------------------------------------------------------
　　　　 '画像ファイルを読み込み表示(ファイルのサイズで)
　　　　 'With PictureBox1
　　　　 '　 '表示する画像のサイズに合わせてPictureBoxを表示します
　　　　 '　 .SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
　　　　 '　 '画像ファイルを読み込みPictureBoxに表示
　　　　 '　 .Image = System.Drawing.Image.FromFile(Application.StartupPath & "\test001.GIF")
　　　　 'End With

　　　　 '上記のような方法で読み込むと、再度実行するとファイルがロックされているので
　　　　 'エラーとなるので、必要により下記のように読み込み表示して下さい。
　　　　 'FileStream オブジェクトを使用して読み込み表示するとロックされません。
　　　　 '(使用中でも、test001.GIF を上書き、削除等してもエラーとならない。)
　　　　 Using fs As System.IO.FileStream = New System.IO.FileStream(Application.StartupPath & _
　　　　　　　　　　　　"\test001.GIF", System.IO.FileMode.Open, System.IO.FileAccess.Read)
　　　　　　PictureBox1.Image = System.Drawing.Image.FromStream(fs)
　　　　 End Using
　　　Else
　　　'Excel 2007 以下の場合
　　　　 '------　Excelのグラフをクリップボード経由でPictureBoxに貼付　------------------
　　　　 'クリップボードにコピー
　　　　 'xlSheet.ChartObjects("グラフ 1").Copy()　'これでは、.NET では取得できない
　　　　 xlChart1.CopyPicture(Appearance:=Excel.XlPictureAppearance.xlScreen, _
　　　　　　　　　　　　　　　　　 Size:=Excel.XlPictureAppearance.xlScreen, _
　　　　　　　　　　　　　　　　　 Format:=Excel.XlCopyPictureFormat.xlBitmap)

　　　　 '-------------------------------------------------------------------------------
　　　　 'Excel 2007 以降では、上記でもクリップボードには、EnhancedMetafile　MetaFilePict の
　　　　 '画像しかコピーされない。
　　　　 'Excel 2007 以降の場合、一度保存してからファイルを読み込むか、サンプルNo.158 の
　　　　 'サンプルを使ってメタファイルを取得するかしてください。
　　　　 '-------------------------------------------------------------------------------

　　　　 '現在システム クリップボードにあるデータを取得します
　　　　 Dim iData As IDataObject = Clipboard.GetDataObject()
　　　　 'クリップボードにBitmapファイルがあれば
　　　　 If iData.GetDataPresent(System.Windows.Forms.DataFormats.Bitmap) Then
　　　　　　'PictureBox1にクリップボードの画像を貼り付け
　　　　　　PictureBox1.Image = DirectCast(iData.GetData(DataFormats.Bitmap), Image)
　　　　 End If
　　　End If
　　　MRComObject(xlVersion)
　 '=========================== ここまで =======================================