Question ERROR:'XlChartType' is not a member of 'Excel'.

sai87

Member
Joined
May 12, 2010
Messages
15
Programming Experience
Beginner
hi all,
i am new to vb.net programming i am generating charts in ms excel 2007 from vb.net coding i am using visual studio 2008 version. i am trying with the following code but facing an error 'XlChartType' is not a member of 'Excel'. please try to help me out my code is :i have bolded the line where i am getting this error.

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim xlApp As New Microsoft.Office.Interop.Excel.Application
Dim xlWorkBook As Microsoft.Office.Interop.Excel.Workbook
Dim xlWorkSheet As Microsoft.Office.Interop.Excel.Worksheet
Dim misValue As Object = System.Reflection.Missing.Value

xlApp = CreateObject("excel.application")
xlWorkBook = xlApp.Workbooks.Add(misValue)
xlWorkSheet = xlWorkBook.Sheets("sheet1")

'add data
xlWorkSheet.Cells(1, 1) = ""
xlWorkSheet.Cells(1, 2) = "Student1"
xlWorkSheet.Cells(1, 3) = "Student2"
xlWorkSheet.Cells(1, 4) = "Student3"

xlWorkSheet.Cells(2, 1) = "Term1"
xlWorkSheet.Cells(2, 2) = "80"
xlWorkSheet.Cells(2, 3) = "65"
xlWorkSheet.Cells(2, 4) = "45"

xlWorkSheet.Cells(3, 1) = "Term2"
xlWorkSheet.Cells(3, 2) = "78"
xlWorkSheet.Cells(3, 3) = "72"
xlWorkSheet.Cells(3, 4) = "60"

xlWorkSheet.Cells(4, 1) = "Term3"
xlWorkSheet.Cells(4, 2) = "82"
xlWorkSheet.Cells(4, 3) = "80"
xlWorkSheet.Cells(4, 4) = "65"

xlWorkSheet.Cells(5, 1) = "Term4"
xlWorkSheet.Cells(5, 2) = "75"
xlWorkSheet.Cells(5, 3) = "82"
xlWorkSheet.Cells(5, 4) = "68"

'create chart
Dim chartPage As Excel.Chart
Dim xlCharts As Excel.ChartObjects
'Dim ChartType As Excel._ExcelChart
Dim myChart As Excel.ChartObject
Dim chartRange As Excel.Range

xlCharts = xlWorkSheet.ChartObjects
myChart = xlCharts.Add(10, 80, 300, 250)
chartPage = myChart.Chart
chartRange = xlWorkSheet.Range("A1", "D5")
chartPage.SetSourceData(Source:=chartRange)
chartPage.ChartType = Excel.XlChartType.xlColumnClustered


xlWorkSheet.SaveAs("C:\Documents and Settings\USER\Desktop\d0805\vbexcel.xlsx")
xlWorkBook.Close()
xlApp.Quit()

releaseObject(xlApp)
releaseObject(xlWorkBook)
releaseObject(xlWorkSheet)

MsgBox("Excel file created , you can find the file C:\Documents and Settings\USER\Desktop\d0805")
End Sub

Private Sub releaseObject(ByVal obj As Object)
Try
System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
obj = Nothing
Catch ex As Exception
obj = Nothing
Finally
GC.Collect()
End Try
End Sub
End Class
 
Back
Top