Visual Basic

Public Class testchart

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim objXL As Object
        Dim objWbk As Object
        Dim oSheet As Object     ' Excel Worksheet
        Dim oChart As Object     ' Excel Chart

        objXL = CreateObject("Excel.application")
        objWbk = objXL.workbooks.Open("C:\testing\test.xls")

        On Error GoTo ErrHandler

        Dim iRow As Integer      ' Index variable for the current Row
        Dim iCol As Integer      ' Index variable for the current Row

        Const cNumCols = 10      ' Number of points in each Series
        Const cNumRows = 2       ' Number of Series

        oSheet = objWbk.Worksheets.Item(1)

        oChart = oSheet.ChartObjects.Add(50, 40, 300, 200).Chart
        oChart.SetSourceData(Source:=oSheet.Range("A1").Resize(cNumRows, cNumCols))

        ' Make Excel Visible:
        objXL.Visible = True
        objXL.UserControl = True

ExitHandler:
        On Error Resume Next
        objWbk = Nothing
        objXL.Quit()
        objXL = Nothing
        Exit Sub

ErrHandler:
        MsgBox(Err.Description, vbExclamation)
        Resume ExitHandler


    End Sub
End Class