Create Excel Chart in VB.NET PictureBox

This topic explains, how to create Excel chart in VB.NET PictureBox control.
How to add Excel Object model to your application: Select Project/Add Reference. Click the COM tab and select “Microsoft Excel 12.0 Object Library” (or whatever version you have on your system).
Tools needed: Button1 (Button1).

Microsoft Excel – Create Excel Chart in VB.NET PictureBox

Microsoft Excel is a spreadsheet application developed by Microsoft.
Microsoft Excel features calculation, graphing tools, pivot tables, and a macro programming language called Visual Basic for Applications.

Application Interface – Create Excel Chart in VB.NET PictureBox

Application interface represent the entire Microsoft Excel application.
Syntax for Application Interface for Excel

'Declaration
Public Interface Application
Inherits _Application, AppEvents_Event

'Declaration

Public Interface Application

Inherits _Application, AppEvents_Event

Workbook Interface – Create Excel Chart in VB.NET PictureBox

Workbook interface represent the Microsoft Excel workbook.
Syntax for Workbook Interface for Excel

'Declaration
Public Interface Workbook
        Inherits _Workbook, WorkbookEvents_Event

'Declaration

Public Interface Workbook

Inherits _Workbook, WorkbookEvents_Event

Worksheet Interface – Create Excel Chart in VB.NET PictureBox

It represents a Microsoft Excel worksheet.
Syntax for Worksheet Interface for Excel

'Declaration
Public Interface Worksheet
        Inherits _Worksheet, DocEvents_Event

'Declaration

Public Interface Worksheet

Inherits _Worksheet, DocEvents_Event

Create Excel Chart in VB.NET PictureBox – Complete Code

Imports System.Data
Imports ExcelDoc = Microsoft.Office.Interop.Excel
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

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

        xlApp = New ExcelDoc.ApplicationClass
        xlWorkBook = xlApp.Workbooks.Add(misValue)
        xlWorkSheet = xlWorkBook.Sheets("sheet1")

        'add data to spreadsheet
        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) = "90"
        xlWorkSheet.Cells(2, 3) = "85"
        xlWorkSheet.Cells(2, 4) = "60"

        xlWorkSheet.Cells(3, 1) = "Term2"
        xlWorkSheet.Cells(3, 2) = "78"
        xlWorkSheet.Cells(3, 3) = "65"
        xlWorkSheet.Cells(3, 4) = "55"

        xlWorkSheet.Cells(4, 1) = "Term3"
        xlWorkSheet.Cells(4, 2) = "90"
        xlWorkSheet.Cells(4, 3) = "80"
        xlWorkSheet.Cells(4, 4) = "99"

        xlWorkSheet.Cells(5, 1) = "Term4"
        xlWorkSheet.Cells(5, 2) = "90"
        xlWorkSheet.Cells(5, 3) = "93"
        xlWorkSheet.Cells(5, 4) = "50"

        'create chart to spread sheet
        Dim chart_Page As ExcelDoc.Chart
        Dim xlCharts As ExcelDoc.ChartObjects
        Dim myDesChart As ExcelDoc.ChartObject
        Dim chart_Range As ExcelDoc.Range

        xlCharts = xlWorkSheet.ChartObjects
        myDesChart = xlCharts.Add(10, 80, 300, 250)

        chart_Page = myDesChart.Chart
        chart_Range = xlWorkSheet.Range("A1", "d5")
        chart_Page.SetSourceData(Source:=chart_Range)
        chart_Page.ChartType = ExcelDoc.XlChartType.xlColumnClustered

        'exporting chart as picture file
        xlWorkSheet.ChartObjects(1).chart.Export(FileName:= _
        "C:\excel_chart_export.bmp", FilterName:="BMP")

        'load the pipcture into the picture box
        PictureBox1.Image = New System.Drawing.Bitmap _
   ("C:\excel_chart_export.bmp")

        xlWorkSheet.SaveAs("C:\vbexcel.xlsx")
        xlWorkBook.Close()
        xlApp.Quit()

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

    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

Imports System.Data

Imports ExcelDoc = Microsoft.Office.Interop.Excel

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

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

Dim xlApp As ExcelDoc.Application

Dim xlWorkBook As ExcelDoc.Workbook

Dim xlWorkSheet As ExcelDoc.Worksheet

Dim misValue As Object = System.Reflection.Missing.Value

xlApp = New ExcelDoc.ApplicationClass

xlWorkBook = xlApp.Workbooks.Add(misValue)

xlWorkSheet = xlWorkBook.Sheets("sheet1")

'add data to spreadsheet

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) = "90"

xlWorkSheet.Cells(2, 3) = "85"

xlWorkSheet.Cells(2, 4) = "60"

xlWorkSheet.Cells(3, 1) = "Term2"

xlWorkSheet.Cells(3, 2) = "78"

xlWorkSheet.Cells(3, 3) = "65"

xlWorkSheet.Cells(3, 4) = "55"

xlWorkSheet.Cells(4, 1) = "Term3"

xlWorkSheet.Cells(4, 2) = "90"

xlWorkSheet.Cells(4, 3) = "80"

xlWorkSheet.Cells(4, 4) = "99"

xlWorkSheet.Cells(5, 1) = "Term4"

xlWorkSheet.Cells(5, 2) = "90"

xlWorkSheet.Cells(5, 3) = "93"

xlWorkSheet.Cells(5, 4) = "50"

'create chart to spread sheet

Dim chart_Page As ExcelDoc.Chart

Dim xlCharts As ExcelDoc.ChartObjects

Dim myDesChart As ExcelDoc.ChartObject

Dim chart_Range As ExcelDoc.Range

xlCharts = xlWorkSheet.ChartObjects

myDesChart = xlCharts.Add(10, 80, 300, 250)

chart_Page = myDesChart.Chart

chart_Range = xlWorkSheet.Range("A1", "d5")

chart_Page.SetSourceData(Source:=chart_Range)

chart_Page.ChartType = ExcelDoc.XlChartType.xlColumnClustered

'exporting chart as picture file

xlWorkSheet.ChartObjects(1).chart.Export(FileName:= _

"C:\excel_chart_export.bmp", FilterName:="BMP")

'load the pipcture into the picture box

PictureBox1.Image = New System.Drawing.Bitmap _

("C:\excel_chart_export.bmp")

xlWorkSheet.SaveAs("C:\vbexcel.xlsx")

xlWorkBook.Close()

xlApp.Quit()

releaseObject(xlApp)

releaseObject(xlWorkBook)

releaseObject(xlWorkSheet)

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

Create Excel Chart in VB.NET PictureBox

VB Files and Directory	VB WORD
VB Path Class	How to insert picture in Excel using VB
Save the image to system from PictureBox in VB	How to insert Picture as Background image in Excel using VB
Read text file and write text file in VB	Create Excel Chart in VB.NET PictureBox
How to append file using vb	Export Excel chart to Picture file using VB
How to read file in vb	Draw chart in Excel using VB programming
Create and write file using vb.net	Create an Excel file from XML file using VB
Different file operation in vb.net	Save the image to system from PictureBox in VB
Count files in Directory using vb.net	Working of Font Dialog in VB
BinaryWriter in VB.NET	Working of SaveFileDialog Component in VB
BinaryReader in VB	Make ctrl A to select all text in VB
	How to create numeric TextBox in VB
	How to spell check in vb

Create Excel Chart in VB.NET PictureBox

Rating: 0.0/10 (0 votes cast)

Rating: 0 (from 0 votes)

0February 15, 2013
Create Excel Chart in C# PictureBox
0February 15, 2013
How to create an Excel File in VB
0February 15, 2013
How to create an Excel File in C#
0February 15, 2013
How to format Excel page in VB
0February 15, 2013
How to insert Picture as Background image in Excel using ..

Alexey: That isnihgt's just what I've been looking for. Th...

Griselda: What would many of us do devoid of the brlliiant t...

Alejandra: My spouse and i ended up being rellay excited that...

microsoft: Heya i'm for the primary time here. I found this b...

Dave: Whoa, thnigs just got a whole lot easier....

Lina: Really informative blog post here my frined. I jus...

Setan: Your page is stunning! I have been wianntg to try ...

Devandra: Nice blog, just looking close to some blogs, aaepp...

Coding Angel

Page Rank

Subscribe

Topics

Categories

Recent posts

Most Shared Posts

Alexa Rank

Create Excel Chart in VB.NET PictureBox

Microsoft Excel – Create Excel Chart in VB.NET PictureBox

Application Interface – Create Excel Chart in VB.NET PictureBox

Workbook Interface – Create Excel Chart in VB.NET PictureBox

Worksheet Interface – Create Excel Chart in VB.NET PictureBox

Create Excel Chart in VB.NET PictureBox – Complete Code

Create Excel Chart in VB.NET PictureBox

Related Posts:

Leave a Reply Cancel reply

Announcement

Recent Comments