• Home
 · 
• Graphics
 · 
• Creating a Microsoft Chart Control Demo

Creating a Microsoft Chart Control Demo

Creating a Microsoft Chart Control Demo

Rate Creating a Microsoft Chart Control Demo

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'Place Micrsoft Chart Control on the form
'Place Timer Control on the form
'Place Combobox Control on the form
'Make a reference to Microsoft Excel 8.0 Object Library

Private Sub Combo1_Click()

On Error GoTo Err_Handler

MSChart1.Visible = False
ProgressBar1.Visible = True
Timer1.Enabled = True

If Combo1.Text = "2dArea" Then
    MSChart1.ChartType = VtChChartType2dArea
    ElseIf Combo1.Text = "2dLine" Then
    MSChart1.ChartType = VtChChartType2dLine
    ElseIf Combo1.Text = "2dPie" Then
    MSChart1.ChartType = VtChChartType2dPie
    ElseIf Combo1.Text = "2dXY" Then
    MSChart1.ChartType = VtChChartType2dXY
    ElseIf Combo1.Text = "2dBar" Then
    MSChart1.ChartType = VtChChartType2dBar
    ElseIf Combo1.Text = "2dStep" Then
    MSChart1.ChartType = VtChChartType2dStep
    ElseIf Combo1.Text = "3dBar" Then
    MSChart1.ChartType = VtChChartType3dBar
    ElseIf Combo1.Text = "3dArea" Then
    MSChart1.ChartType = VtChChartType3dArea
    ElseIf Combo1.Text = "3dLine" Then
    MSChart1.ChartType = VtChChartType3dLine
    ElseIf Combo1.Text = "3dCombination" Then
    MSChart1.ChartType = VtChChartType3dCombination
End If

Dim xlApp As Excel.Application
Set xlApp = New Excel.Application
Dim xlWkb As Excel.Workbook
Set xlWkb = xlApp.Workbooks.Open("E:\MSChart\MSChart.xls") ' Data Source
Dim xlSht As Excel.Worksheet
Set xlSht = xlWkb.Worksheets(1)

Dim arrPlotData(1 To 5, 1 To 2)

For I = 1 To 5

arrPlotData(I, 1) = xlSht.Range("A" & I + 1).Value
arrPlotData(I, 2) = xlSht.Range("B" & I + 1).Value

Next I

MSChart1.ChartData = arrPlotData
MSChart1.Title = "Microsoft Chart Control Demo"

xlApp.Quit
Set xlApp = Nothing

Err_Handler:
      Err.Clear

End Sub

Private Sub Form_Load()

On Error GoTo Err_Handler

Form1.BorderStyle = 1
ProgressBar1.Visible = False
Timer1.Interval = 25
ProgressBar1.Max = 50

Combo1.AddItem "2dArea"
Combo1.AddItem "2dLine"
Combo1.AddItem "2dPie"
Combo1.AddItem "2dXY"
Combo1.AddItem "2dBar"
Combo1.AddItem "2dStep"
Combo1.AddItem "3dBar"
Combo1.AddItem "3dArea"
Combo1.AddItem "3dLine"
Combo1.AddItem "3dCombination"

Combo1.ListIndex = 4

Err_Handler:
    Err.Clear

End Sub

Private Sub Timer1_Timer()

Static intTime

   If IsEmpty(intTime) Then intTime = 1
   
   ProgressBar1.Value = intTime
       
   If intTime = ProgressBar1.Max Then
      Timer1.Enabled = False
      ProgressBar1.Visible = False
      MSChart1.Visible = True
      intTime = 1
      ProgressBar1.Value = ProgressBar1.Min
   Else
      intTime = intTime + 1
   End If

End Sub