Click here to Skip to main content
16,020,565 members
Articles / Desktop Programming / Windows Forms
Article

Create Column Charts Using OWC11

Rate me:
Please Sign up or sign in to vote.
4.78/5 (41 votes)
5 Jul 2008CPOL4 min read 182.8K   6.2K   70   39
A column chart (simple,stacked, or 100% stacked column) representation using Office Web Components.

Introduction

This is my very first article to any open source site. Since I've gotten a lot of useful articles from this site, I'll be glad if I can to contribute to this great site. This is a simple application to get some knowledge of using the OWC11 in a .NET application for chart representation.

Office Web Components (OWC) are a group of OLE classes implemented as ActiveX controls in Microsoft Office 2000, Office XP, and Office 2003. The Office Web Components have been discontinued in Office 2007, and are not included, except as a part of the Office Project Server 2007. OWC can be used by any COM-compliant Component Object Model programming language.

Background

Any application that uses the Office Web Components 11 requires that the OWC 11 package be installed on the system. OWC 11 is a separate download available on the Microsoft Website or in the Microsoft Office 2003 Installation Kit. Office Web Components 11 does not require support from Microsoft Office.

Office 2003 Web Components do not provide event handling by default. We need to do some alterations. So, please refer this link first: HOW TO: Handle Events for the Office 2003 Web Components in Visual Studio.NET. Using this link, we can get AxOWC11.dll. Add this newly-compiled AxOWC11.dll to the Toolbox. Now, the Toolbox contains the AxChartSpace control, the AxPivotTable control, and the AxSpreadsheet control.

Column Chart

A column chart displays values and series groups as sets of vertical columns that are grouped by category. Values are represented by the height of the columns as measured by the y-axis. Category labels are displayed on the x-axis. Column charts are typically used to compare values between categories. There are three types of column charts:

  • Column
  • Stacked Column
  • 100% Stacked Column

A column chart displays series as individual columns, grouped by category. The height of each column is determined by the series value.

A stacked column chart displays all series stacked in a single column for each category. The height of each column is determined by the total of all the series values for the category.

A 100% stacked column chart displays all series stacked in a single column for each category. The height of each column is always the full height of the chart. The series values are displayed as percentages of each column.

The abbove definition of the column chart is picked from the MSDN. For more details, please refer: Column Chart.

Steps for Creating the Chart

First of all, from the Toolbox property window, select the AxChartSpace control and drag it on to the design surface. After this step, our form looks like the following:

MainScreen.jpg

Figure-1

Now, in the code window, write the following statement:

VB
Imports owc11 = Microsoft.Office.Interop.Owc11

Since the code only shows how can we create the Column Chart, the code is not efficient. Here, we are skipping some statements which fill dummy data in the DataGridView. Now, we declare two variables for holding data for the categories (related to the x-axis) and the values (related to the y-axis):

VB
Dim categories(3)
For i As Integer = 0 To 3
    categories(i) = DataGridView1.Columns(i + 1).HeaderText.ToString
Next
Dim values(3)
Dim chConstants

For clearing the contents of the chart workspace, use the following statement. The following statement removes any old charts that may already exist and adds a chart to the chart space.

VB
AxChartSpace1.Clear()
AxChartSpace1.Charts.Add()
chConstants = AxChartSpace1.Constants

Now, add series to the existing chart. Using the following statement, you can add as much series as you want.

VB
AxChartSpace1.Charts(0).SeriesCollection.Add()

Now, we supply the data to each series as follows:

VB
Dim MaxTotal As Integer = 0
For j As Integer = 0 To DataGridView1.Rows.Count - 2
AxChartSpace1.Charts(0).SeriesCollection(j).SetData(chConstants.chDimCategories, _
              chConstants.chDataLiteral, categories)
    For i As Integer = 1 To DataGridView1.Columns.Count - 1
        values(i - 1) = Val(DataGridView1.Rows(j).Cells(i).Value)
    Next
    AxChartSpace1.Charts(0).SeriesCollection(j).SetData(chConstants.chDimValues, _
                            chConstants.chDataLiteral, values)
    AxChartSpace1.Charts(0).SeriesCollection(j).Caption = _
                  DataGridView1.Rows(j).Cells(0).Value
    MaxTotal = MaxTotal + Val(DataGridView1.Rows(j).Cells(4).Value)
Next

We can also set the color for each series as follows:

VB
AxChartSpace1.Charts(0).SeriesCollection(0).Interior.Color = "DarkOrange"
AxChartSpace1.Charts(0).SeriesCollection(1).Interior.Color = "Cyan"
AxChartSpace1.Charts(0).SeriesCollection(2).Interior.Color = "Yellow"
AxChartSpace1.Charts(0).SeriesCollection(3).Interior.Color = "Red"
AxChartSpace1.Charts(0).SeriesCollection(4).Interior.Color = "Black"

Notice one thing in the above statements. I supply the color for a series as a string. It does not support the Color enum. At this point, we decide which type of chart we want (simple, stacked, or 100 % stacked column). Also, we can draw charts with 3D effect. Use the following statement for a simple and a 3D stacked column.

VB
If cboChartType.Text = "3D" Then
    AxChartSpace1.Charts(0).Type = owc11.ChartChartTypeEnum.chChartTypeColumnStacked3D
    '(See Figure-2)
Else
    AxChartSpace1.Charts(0).Type = owc11.ChartChartTypeEnum.chChartTypeColumnStacked
    (See Figure-3)
End If

StackedColumn3D.JPG

Figure-2

StackedColumn.JPG

Figure-3

And for a simple and 3D 100% stacked column, use the following statement:

VB
If cboChartType.Text = "3D" Then
    AxChartSpace1.Charts(0).Type = owc11.ChartChartTypeEnum.chChartTypeColumnStacked1003D
    (see Figure-4)
Else
    AxChartSpace1.Charts(0).Type = owc11.ChartChartTypeEnum.chChartTypeColumnStacked100
    (see Figure-5)
End If

100PercentStackedColumn3D.JPG

Figure-4

100PercentStackedColumn.JPG

Figure-5

And finally, for a simple and 3D column, use the following statement:

VB
If cboChartType.Text = "3D" Then
    AxChartSpace1.Charts(0).Type = owc11.ChartChartTypeEnum.chChartTypeColumn3D
    (see Figure-6)
End If

SimpleColumn3D.JPG

Figure-6

SimpleColumn.JPG

Figure-7

Along with the above statements, the way we provide the data to all the charts is also responsible for getting the correct results. In all the charts, the variable MaxTotal also plays a role which decides the scaling of the chart.

VB
AxChartSpace1.Charts(0).Axes(1).Scaling.Maximum = MaxTotal
AxChartSpace1.Charts(0).Axes(1).MajorUnit = MaxTotal / 4
AxChartSpace1.Charts(0).Axes(1).Scaling.Minimum = 0

Now, in the final step, we assign proper title and font to the chart axes, as follows:

VB
AxChartSpace1.Charts(0).Axes(0).HasTitle = True
AxChartSpace1.Charts(0).Axes(0).Title.Caption = "Time Range"
AxChartSpace1.Charts(0).Axes(0).Title.Font.Name = "Arial"
AxChartSpace1.Charts(0).Axes(0).Title.Font.Size = 9

AxChartSpace1.Charts(0).Axes(1).HasTitle = True
AxChartSpace1.Charts(0).Axes(1).Title.Caption = "Number of Members"
AxChartSpace1.Charts(0).Axes(1).Title.Font.Name = "Arial"
AxChartSpace1.Charts(0).Axes(1).Title.Font.Size = 9

Points of Interest

When I use the OWC 11 chart component in real applications, I get some strange results. If we declare the variable categories as follows:

VB
Dim categories(3) As String

then the chart object does not display any series. However, the legend shows all the series names. One more thing, if we change the series color before supplying the data, then the series does not display the proper color.

I hope you've enjoyed this little tutorial. In future, I will provide you a lot more stuff. And, I am expecting your valuable suggestions.

Finally, please excuse me for my English.

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)


Written By
Technical Lead
India India
Possess following degrees:

* MCA from Rajasthan University, Jaipur(RAJ.), INDIA.
* PGDCA from Rajasthan University,Jaipur(RAJ.), INDIA.
* BSc (Maths) from Maharishi Dayanand Saraswati University, Ajmer(RAJ.), INDIA.


Award: Best VB.NET article of June 2008: Create Column Charts Using OWC11

Comments and Discussions

 
QuestionHow to use AxOWC11.dll for AxChartSpace control in 64bit Pin
PawanGuru6-May-15 4:02
PawanGuru6-May-15 4:02 
GeneralColumn Chart using OWC11 Pin
Zackariya Yoosuf5-Jun-11 19:11
Zackariya Yoosuf5-Jun-11 19:11 
GeneralExample runs, compiled source does not Pin
Member 121979914-May-10 3:08
Member 121979914-May-10 3:08 
Generalrun exe file without opening vb.net Pin
wafaajaradat3-Mar-09 17:41
wafaajaradat3-Mar-09 17:41 
GeneralRe: run exe file without opening vb.net Pin
Rupesh Kumar Swami3-Mar-09 20:09
Rupesh Kumar Swami3-Mar-09 20:09 
Generalvb.net Pin
Member 210019820-Dec-08 0:55
Member 210019820-Dec-08 0:55 
GeneralRe: vb.net Pin
Rupesh Kumar Swami20-Dec-08 18:13
Rupesh Kumar Swami20-Dec-08 18:13 
GeneralRe: vb.net Pin
Member 210019830-Dec-08 17:32
Member 210019830-Dec-08 17:32 
GeneralRe: vb.net Pin
Rupesh Kumar Swami30-Dec-08 22:18
Rupesh Kumar Swami30-Dec-08 22:18 
Questioncan we do in vb6 Pin
deepakmathur12-Dec-08 0:38
deepakmathur12-Dec-08 0:38 
AnswerRe: can we do in vb6 Pin
Rupesh Kumar Swami12-Dec-08 2:20
Rupesh Kumar Swami12-Dec-08 2:20 
Generalin vb.net Pin
Member 210019818-Dec-08 17:34
Member 210019818-Dec-08 17:34 
Generalhow to add components of owc in vb.net,please let me know Pin
Member 210019823-Dec-08 23:30
Member 210019823-Dec-08 23:30 
GeneralRe: how to add components of owc in vb.net,please let me know Pin
Member 210019823-Dec-08 23:59
Member 210019823-Dec-08 23:59 
Generaldatagrid1 Pin
Member 210019824-Dec-08 17:36
Member 210019824-Dec-08 17:36 
GeneralRe: can we do in vb6 Pin
Member 210019824-Dec-08 0:26
Member 210019824-Dec-08 0:26 
Generaldatagridview1 Pin
Member 210019824-Dec-08 18:35
Member 210019824-Dec-08 18:35 
GeneralRe: datagridview1 Pin
Rupesh Kumar Swami24-Dec-08 22:40
Rupesh Kumar Swami24-Dec-08 22:40 
GeneralRe: datagridview1 Pin
Member 210019826-Dec-08 19:57
Member 210019826-Dec-08 19:57 
GeneralHi rupesh Pin
Member 408299624-Sep-08 23:00
Member 408299624-Sep-08 23:00 
GeneralRe: Hi rupesh Pin
Rupesh Kumar Swami25-Sep-08 4:33
Rupesh Kumar Swami25-Sep-08 4:33 
GeneralRe: Hi rupesh Pin
Member 408299625-Sep-08 19:33
Member 408299625-Sep-08 19:33 
GeneralThanks Pin
Rafael Linares4-Sep-08 11:24
Rafael Linares4-Sep-08 11:24 
GeneralRupesh Pin
Samir NIGAM23-Jul-08 18:36
Samir NIGAM23-Jul-08 18:36 
GeneralRe: Rupesh Pin
Rupesh Kumar Swami24-Jul-08 3:33
Rupesh Kumar Swami24-Jul-08 3:33 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.