'area chart
Sub BuildChart2
chart2.Clear
chart2.ChartType = chart2.CHARTTYPE_AREA
chart2.AddCategories(Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"))
chart2.AddSeries("Seoul", Array(20, 40, 25, 50, 15, 45, 33, 34, 20, 30, 22, 13))
chart2.AddSeries("Sidney", Array(5, 30, 21, 18, 59, 50, 28, 33, 7, 20, 10, 30))
chart2.AddSeries("Moscow", Array(30, 5, 18, 21, 33, 41, 29, 15, 30, 10, 33, 5))
chart2.TitleText = "Average Temperature"
chart2.XAxisPointOnColumn = False
chart2.XAxisTitle = "Month"
chart2.YAxisTitle = "Temperature (Celsius)"
chart2.Refresh
End Sub
'area chart spline
Sub BuildChart3
chart3.Clear
chart3.ChartType = chart2.CHARTTYPE_AREA
chart3.AddCategories(Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"))
chart3.AddSeries("Seoul", Array(20, 40, 25, 50, 15, 45, 33, 34, 20, 30, 22, 13))
chart3.AddSeries("Sidney", Array(5, 30, 21, 18, 59, 50, 28, 33, 7, 20, 10, 30))
chart3.AddSeries("Moscow", Array(30, 5, 18, 21, 33, 41, 29, 15, 30, 10, 33, 5))
chart3.TitleText = "Average Temperature (Spline)"
chart3.XAxisPointOnColumn = False
chart3.XAxisTitle = "Month"
chart3.YAxisTitle = "Temperature (Celsius)"
chart3.SeriesSpline = True
chart3.Refresh
End Sub
'area chart data labels
Sub BuildChart4
chart4.Clear
chart4.ChartType = chart2.CHARTTYPE_AREA
chart4.AddCategories(Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"))
chart4.AddSeries("Seoul", Array(20, 40, 25, 50, 15, 45, 33, 34, 20, 30, 22, 13))
chart4.AddSeries("Sidney", Array(5, 30, 21, 18, 59, 50, 28, 33, 7, 20, 10, 30))
chart4.AddSeries("Moscow", Array(30, 5, 18, 21, 33, 41, 29, 15, 30, 10, 33, 5))
chart4.TitleText = "Average Temperature (Data Labels)"
chart4.XAxisPointOnColumn = False
chart4.XAxisTitle = "Month"
chart4.YAxisTitle = "Temperature (Celsius)"
chart4.SeriesShowDot = True
chart4.SeriesDataLabelsVisible = True
chart4.SeriesDataLabelsOffsetY = 10
chart4.Refresh
End Sub
'area chart stacked normal
Sub BuildChart5
chart5.Clear
chart5.ChartType = chart2.CHARTTYPE_AREA
chart5.AddCategories(Array("Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"))
chart5.AddSeries("Budget", Array(5000, 3000, 5000, 7000, 6000, 4000, 1000))
chart5.AddSeries("Income", Array(8000, 4000, 7000, 2000, 6000, 3000, 5000))
chart5.AddSeries("Expenses", Array(4000, 4000, 6000, 3000, 4000, 5000, 7000))
chart5.AddSeries("Debt", Array(3000, 4000, 3000, 1000, 2000, 4000, 3000))
chart5.TitleText = "Monthly Revenue (Stacked Normal)"
chart5.XAxisPointOnColumn = False
chart5.XAxisTitle = "Month"
chart5.YAxisTitle = "Amount"
chart5.SeriesStacked = True
chart5.Refresh
End Sub
'area chart stacked percent
Sub BuildChart6
chart6.Clear
chart6.ChartType = chart2.CHARTTYPE_AREA
chart6.AddCategories(Array("Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"))
chart6.AddSeries("Budget", Array(5000, 3000, 5000, 7000, 6000, 4000, 1000))
chart6.AddSeries("Income", Array(8000, 4000, 7000, 2000, 6000, 3000, 5000))
chart6.AddSeries("Expenses", Array(4000, 4000, 6000, 3000, 4000, 5000, 7000))
chart6.AddSeries("Debt", Array(3000, 4000, 3000, 1000, 2000, 4000, 3000))
chart6.TitleText = "Monthly Revenue (Stacked Percent)"
chart6.XAxisPointOnColumn = False
chart6.XAxisTitle = "Month"
chart6.YAxisTitle = "Amount"
chart6.SeriesStackedPercent = True
chart6.Refresh
End Sub