用MSCHART控制元件

定義一個二維陣列，例如：Global studydata(1 To 5, 1 To 7) "學歷資料

ElseIf cb_sort.Text = "學歷" And cb_chart.Text = "折線圖" Then

With MSChart1

.ColumnCount = 6

.ChartData = studydata

.DataGrid.ColumnLabel(1, 1) = "研究生及以上"

.DataGrid.ColumnLabel(2, 1) = "本科"

.DataGrid.ColumnLabel(3, 1) = "專科"

.DataGrid.ColumnLabel(4, 1) = "中專"

.DataGrid.ColumnLabel(5, 1) = "高中"

.DataGrid.ColumnLabel(6, 1) = "初中及以下"

.TitleText = "全公司學歷結構圖示"

.ToolTipText = "全公司學歷結構圖示"

.ChartType = VtChChartType2dLine "折線圖

"MSChart1.Stacking = True

End With