Untuk membuat grafik di dalam laporan kita bisa membuat alternatif dengan cara memanfaatkan export ke excel.. berikut contohnya.. dan hasil akhirnya sebagai berikut :


Langkah-langkahnya sebagai berikut :
1. Buka Visual Studionya, Create New Project Baru dan beri nama ExcelProg7 lalu tambahkan satu button 2. Lalu tambahkan refferensi ke project kita yaitu object Excelnya, seperti gambar berikut :


3. Lalu tambahkan kode berikut ini :
   1: Imports Excel = Microsoft.Office.Interop.Excel
   2: Public Class Form1
   3:     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   4:         Dim xlApp As Excel.Application
   5:         Dim xlWorkBook As Excel.Workbook
   6:         Dim xlWorkSheet As Excel.Worksheet
   7:         Dim misValue As Object = System.Reflection.Missing.Value
   8:         Dim chartRange As Excel.Range
   9:  
  10:         xlApp = New Excel.Application
  11:         xlWorkBook = xlApp.Workbooks.Add(misValue)
  12:         xlWorkSheet = xlWorkBook.Sheets("sheet1")
  13:  
  14:         'add data
  15:         xlWorkSheet.Cells(4, 1) = "No"
  16:         xlWorkSheet.Cells(4, 2) = "Nama"
  17:         xlWorkSheet.Cells(4, 3) = "Absensi"
  18:         xlWorkSheet.Cells(4, 4) = "Tugas"
  19:         xlWorkSheet.Cells(4, 5) = "UTS"
  20:         xlWorkSheet.Cells(4, 6) = "UAS"
  21:         xlWorkSheet.Cells(4, 7) = "Nilai Akhir"
  22:         xlWorkSheet.Cells(4, 8) = "Grade"
  23:  
  24:         xlWorkSheet.Cells(5, 1) = "1"
  25:         xlWorkSheet.Cells(5, 2) = "Ari Artama"
  26:         xlWorkSheet.Cells(5, 3) = "100"
  27:         xlWorkSheet.Cells(5, 4) = "100"
  28:         xlWorkSheet.Cells(5, 5) = "100"
  29:         xlWorkSheet.Cells(5, 6) = "100"
  30:         xlWorkSheet.Cells(5, 7) = "100"
  31:         xlWorkSheet.Cells(5, 8) = "A"
  32:  
  33:         xlWorkSheet.Cells(6, 1) = "2"
  34:         xlWorkSheet.Cells(6, 2) = "Andrian Hidayat"
  35:         xlWorkSheet.Cells(6, 3) = "50"
  36:         xlWorkSheet.Cells(6, 4) = "50"
  37:         xlWorkSheet.Cells(6, 5) = "50"
  38:         xlWorkSheet.Cells(6, 6) = "50"
  39:         xlWorkSheet.Cells(6, 7) = "50"
  40:         xlWorkSheet.Cells(6, 8) = "C"
  41:  
  42:         xlWorkSheet.Cells(7, 1) = "3"
  43:         xlWorkSheet.Cells(7, 2) = "Ade Firman"
  44:         xlWorkSheet.Cells(7, 3) = "80"
  45:         xlWorkSheet.Cells(7, 4) = "80"
  46:         xlWorkSheet.Cells(7, 5) = "80"
  47:         xlWorkSheet.Cells(7, 6) = "80"
  48:         xlWorkSheet.Cells(7, 7) = "80"
  49:         xlWorkSheet.Cells(7, 8) = "B"
  50:  
  51:         xlWorkSheet.Cells(8, 1) = "4"
  52:         xlWorkSheet.Cells(8, 2) = "Yandi Hidayatulloh"
  53:         xlWorkSheet.Cells(8, 3) = "90"
  54:         xlWorkSheet.Cells(8, 4) = "90"
  55:         xlWorkSheet.Cells(8, 5) = "90"
  56:         xlWorkSheet.Cells(8, 6) = "90"
  57:         xlWorkSheet.Cells(8, 7) = "90"
  58:         xlWorkSheet.Cells(8, 8) = "B+"
  59:  
  60:         xlWorkSheet.Cells(9, 1) = "5"
  61:         xlWorkSheet.Cells(9, 2) = "Firman Nugraha"
  62:         xlWorkSheet.Cells(9, 3) = "30"
  63:         xlWorkSheet.Cells(9, 4) = "30"
  64:         xlWorkSheet.Cells(9, 5) = "30"
  65:         xlWorkSheet.Cells(9, 6) = "30"
  66:         xlWorkSheet.Cells(9, 7) = "30"
  67:         xlWorkSheet.Cells(9, 8) = "D"
  68:  
  69:         chartRange = xlWorkSheet.Range("a2", "h3")
  70:         chartRange.Merge()
  71:         chartRange.FormulaR1C1 = "Daftar Nilai"
  72:         chartRange.HorizontalAlignment = 3
  73:         chartRange.VerticalAlignment = 3
  74:  
  75:         chartRange = xlWorkSheet.Range("a2", "h3")
  76:         chartRange.Font.Bold = True
  77:  
  78:         chartRange = xlWorkSheet.Range("a2", "h9")
  79:         chartRange.BorderAround(Excel.XlLineStyle.xlContinuous, Excel.XlBorderWeight.xlMedium, Excel.XlColorIndex.xlColorIndexAutomatic, Excel.XlColorIndex.xlColorIndexAutomatic)
  80:  
  81:         Dim chartPage As Excel.Chart
  82:         Dim xlCharts As Excel.ChartObjects
  83:         Dim myChart As Excel.ChartObject
  84:  
  85:         xlCharts = xlWorkSheet.ChartObjects
  86:         myChart = xlCharts.Add(50, 150, 300, 250)
  87:         chartPage = myChart.Chart
  88:         chartRange = xlWorkSheet.Range("C5", "g9")
  89:         chartPage.SetSourceData(Source:=chartRange)
  90:         chartPage.ChartType = Excel.XlChartType.xlColumnClustered
  91:  
  92:  
  93:         xlWorkSheet.SaveAs("D:vbexcel5.xlsx")
  94:         xlWorkBook.Close()
  95:         xlApp.Quit()
  96:  
  97:         releaseObject(xlApp)
  98:         releaseObject(xlWorkBook)
  99:         releaseObject(xlWorkSheet)
 100:  
 101:         MsgBox("File created !")
 102:     End Sub
 103:  
 104:     Private Sub releaseObject(ByVal obj As Object)
 105:         Try
 106:             System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
 107:             obj = Nothing
 108:         Catch ex As Exception
 109:             obj = Nothing
 110:         Finally
 111:             GC.Collect()
 112:         End Try
 113:     End Sub
 114: End Class
Sekian semoga bermanfaat sourcecode bisa didownload disini sumber : http://net-informations.com