★　VB.NETからExcel にデータを送りグラフを表示する
最近この手の質問が掲示板に何件か投稿があったので、一度試して見ました。

Private Sub Button1_Click(ByVal sender As System.Object, _
　　　　　　　　　　　　　ByVal e As System.EventArgs) Handles Button1.Click
　 Call ExcelOpen("", "")　　 '新規ファイルをオープンして、Excel を起動
'===================================================================================================

'============== グラフデータを作成及びセルに値を代入 ===================
　 'Excel のセルに値を代入します。
　 Dim i, j As Integer
　 Dim xlRange1 As Excel.Range = Nothing　　 '科目用
　 Dim xlRange2 As Excel.Range = Nothing　　 '氏名用
　 Dim xlRange3 As Excel.Range = Nothing　　 '点数用
　 Dim graphData1(4, 0) As String　　　　　　'科目用
　 Dim graphData2(0, 4) As String　　　　　　'氏名用
　 Dim graphData3(4, 4) As Integer　　　　　 '点数用

　 xlRange1 = xlSheet.Range("A2:A6")
　 xlRange2 = xlSheet.Range("B1:F1")
　 xlRange3 = xlSheet.Range("B2:F6")
　 For i = 0 To 4
　　　For j = 0 To 4
　　　　 '30 〜100 の範囲のランダムなデータを作成
　　　　 graphData3(j, i) = CInt(70 * Rnd() + 31)
　　　Next j
　 Next i
　 '系列名の設定
　 graphData1(0, 0) = "国語"
　 graphData1(1, 0) = "数学"
　 graphData1(2, 0) = "英語"
　 graphData1(3, 0) = "社会"
　 graphData1(4, 0) = "体育"

　 ''項目名の設定
　 graphData2(0, 0) = "石原"
　 graphData2(0, 1) = "小泉"
　 graphData2(0, 2) = "田中"
　 graphData2(0, 3) = "平沼"
　 graphData2(0, 4) = "森山"
　 'セルに各データを設定
　 xlRange1.Value = graphData1
　 xlRange2.Value = graphData2
　 xlRange3.Value = graphData3
　 MRComObject(xlRange1)　 '使い終わった時点で直ぐにデクリメントをしておく
　 MRComObject(xlRange2)
　 MRComObject(xlRange3)
'===============　グラフの表示設定　=======================
　 Dim xlCharts As Excel.ChartObjects
　 Dim xlChart As Excel.ChartObject
　 Dim xlChart1 As Excel.Chart
　 '表示位置・グラフの大きさを指定して新しい埋め込みグラフを作成
　 xlCharts = DirectCast(xlSheet.ChartObjects, Excel.ChartObjects)
　 xlChart = xlCharts.Add(10, 90, 550, 300)

　 Dim xlRange As Excel.Range
　 xlRange = xlSheet.Range("A1:F6")　　'データの入力セル範囲

　 xlChart1 = xlChart.Chart
　 With xlChart1

　　　'系列を列に変更　　　行は　xlRows
　　　.SetSourceData(xlRange, Excel.XlRowCol.xlColumns)
　　　MRComObject(xlRange)　　　　　　'xlRange の解放

　　　''縦棒グラフを指定
　　　.ChartType = Excel.XlChartType.xlColumnClustered

　　　''グラフのタイトルを表示
　　　.HasTitle = True
　　　Dim xlChartTitle As Excel.ChartTitle
　　　xlChartTitle = .ChartTitle
　　　xlChartTitle.Text = "中間テスト結果"
　　　MRComObject(xlChartTitle)　　　 'xlChartTitle の解放

　　　''目盛りの設定
　　　Dim xlAxes As Excel.Axes
　　　Dim xlAxis As Excel.Axis
　　　xlAxes = DirectCast(xlChart1.Axes, Excel.Axes)
　　　xlAxis = xlAxes.Item(Excel.XlAxisType.xlValue)

　　　'--------------------------------------------------------------
　　　'データラベルの表示(すべて表示の場合)
　　　.ApplyDataLabels(Excel.XlDataLabelsType.xlDataLabelsShowValue)

　　　'個別に表示する場合
　　　Dim xlSeries As Excel.Series
　　　xlSeries = DirectCast(.SeriesCollection(1), Excel.Series)
　　　xlSeries.ApplyDataLabels(Excel.XlDataLabelsType.xlDataLabelsShowValue)
　　　MRComObject(xlSeries)
　　　'--------------------------------------------------------------

　　　With xlAxis
　　　　 .MajorUnit = 20　　　　　　 '目盛り間隔
　　　　 .MaximumScale = 120　　　　 '目盛りの最大値
　　　End With
　　　MRComObject(xlAxis)
　　　MRComObject(xlAxes)

　　　'画面の表示状態を確認の間待つ(サンプルの動きがわかりやすくしているだけで必要ありません)
　　　Wait.WaitTime(2000)

　　　'作業中のシートにグラフを表示する場合
　　　Dim xlChart2 As Excel.Chart
　　　xlChart2 = .Location(Excel.XlChartLocation.xlLocationAsObject, xlSheet.Name)
　　　MRComObject(xlChart2)

　　　'グラフを縮小表示
　　　Dim xlShapes As Excel.Shapes
　　　Dim xlShape As Excel.Shape
　　　xlShapes = xlSheet.Shapes
　　　xlShape = xlShapes.Item(1)
　　　'縦横を70%に縮小表示
　　　xlShape.ScaleWidth(0.7, Microsoft.Office.Core.MsoTriState.msoFalse, _
　　　　　　　　　　　　　　　　Office.MsoScaleFrom.msoScaleFromTopLeft)
　　　xlShape.ScaleHeight(0.7, Microsoft.Office.Core.MsoTriState.msoFalse, _
　　　　　　　　　　　　　　　　　　Office.MsoScaleFrom.msoScaleFromTopLeft)
　　　MRComObject(xlShape)
　　　MRComObject(xlShapes)

　 End With

　 '★おまけ上記がうまく表示されたらコメントを外して試してください｡
　 '3D 表示でグラフが回転しなが表示します。
　 'MRComObject(xlChart1)　　　　
　 'xlChart1 = xlChart.Chart
　 'xlChart1.ChartType = Excel.XlChartType.xl3DColumn
　 'For i = 0 To 360 Step 10
　 '　 xlChart1.Rotation = i
　 '　 Wait.WaitTime(1000)
　 'Next i

'-----------------------------------------------------------------------------------------------
　'※ Excelのグラフをクリップボード経由でPictureBoxに貼付　のコードはここへ追加する
'-----------------------------------------------------------------------------------------------

　 MRComObject(xlChart1)
　 MRComObject(xlChart)
　 MRComObject(xlCharts)

　 '動作確認の為、２秒間表示しておく
　 System.Threading.Thread.Sleep(2000)
　 'Wait.WaitTime(2000)

'==================　ファイルの保存処理　==================　
　 Dim FilePath As String = Application.StartupPath & "\SaveTest.xls"　　'保存ファイル名
　 'If excelVersion >= 12 Then
　 '　FilePath = Application.StartupPath & "\SaveTest.xlsx"　　　　　　　　'保存ファイル名
　 'End If
'==================================================================================================
　 'Excelファイルを上書き保存(True 又省略すれば)して終了処理を実行
　 Call ExcelClose((FilePath), True)　'False の場合保存しないで終了

　 'Excel.EXE がタスクマネージャーに残っていないか調査(テスト環境用の場合のみ追加して下さい)
　 Call ProcessCheck() '正常に動作する事が確認できたらこの行は、コメントにして下さい。

End Sub