How to set chart type, chart area, plot area, X axis, Y axis, series and legend in VB6

'==============================================================
' Tutorial 23
'
' This tutorial shows how to create an Excel file in VB6 with a
' chart and how to set chart type and formatting properties 
' for chart area, plot area, axis, series and legend.
'==============================================================

VERSION 5.00
Begin VB.Form Form1 
    Caption         =   "Form1"
    ClientHeight    =   4590
    ClientLeft      =   60
    ClientTop       =   345
    ClientWidth     =   6885
    LinkTopic       =   "Form1"
    ScaleHeight     =   4590
    ScaleWidth      =   6885
    StartUpPosition =   3
    Begin VB.Label Label1 
        AutoSize        =   -1
        Height          =   100
        Left            =   120
        TabIndex        =   0
        Top             =   120
        Width           =   100
    End
End

Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Form_Load()

    Format.Initialize
    Color.Initialize
    Chart.Initialize
    LineStyleFormat.Initialize
    ShadowFormat.Initialize

    Me.Label1.Caption = "Tutorial 23" & vbCrLf & "-----------------" & vbCrLf

    ' Create an instance of the class that exports Excel files
    Set workbook = CreateObject("EasyXLS.ExcelDocument")

    ' Create a worksheet
    workbook.easy_addWorksheet_2 ("SourceData")

    ' Get the table of data for the worksheet
    Set xlsTable1 = workbook.easy_getSheet("SourceData").easy_getExcelTable()

    ' Add data in cells for report header
    xlsTable1.easy_getCell(0, 0).setValue ("Show Date")
    xlsTable1.easy_getCell(0, 1).setValue ("Available Places")
    xlsTable1.easy_getCell(0, 2).setValue ("Available Tickets")
    xlsTable1.easy_getCell(0, 3).setValue ("Sold Tickets")

    ' Add data in cells for chart report values
    xlsTable1.easy_getCell(1, 0).setValue ("03/13/2005 00:00:00")
    xlsTable1.easy_getCell(1, 0).setFormat (Format.FORMAT_FORMAT_DATE)
    xlsTable1.easy_getCell(2, 0).setValue ("03/14/2005 00:00:00")
    xlsTable1.easy_getCell(2, 0).setFormat (Format.FORMAT_FORMAT_DATE)
    xlsTable1.easy_getCell(3, 0).setValue ("03/15/2005 00:00:00")
    xlsTable1.easy_getCell(3, 0).setFormat (Format.FORMAT_FORMAT_DATE)
    xlsTable1.easy_getCell(4, 0).setValue ("03/16/2005 00:00:00")
    xlsTable1.easy_getCell(4, 0).setFormat (Format.FORMAT_FORMAT_DATE)

    xlsTable1.easy_getCell(1, 1).setValue ("10000")
    xlsTable1.easy_getCell(2, 1).setValue ("5000")
    xlsTable1.easy_getCell(3, 1).setValue ("8500")
    xlsTable1.easy_getCell(4, 1).setValue ("1000")

    xlsTable1.easy_getCell(1, 2).setValue ("8000")
    xlsTable1.easy_getCell(2, 2).setValue ("4000")
    xlsTable1.easy_getCell(3, 2).setValue ("6000")
    xlsTable1.easy_getCell(4, 2).setValue ("1000")

    xlsTable1.easy_getCell(1, 3).setValue ("920")
    xlsTable1.easy_getCell(2, 3).setValue ("1005")
    xlsTable1.easy_getCell(3, 3).setValue ("342")
    xlsTable1.easy_getCell(4, 3).setValue ("967")

    ' Set column widths
    xlsTable1.easy_getColumnAt(0).setWidth (100)
    xlsTable1.easy_getColumnAt(1).setWidth (100)
    xlsTable1.easy_getColumnAt(2).setWidth (100)
    xlsTable1.easy_getColumnAt(3).setWidth (100)

    ' Add a chart sheet
    workbook.easy_addChart_5 "Chart", "=SourceData!$A$1:$D$5", Chart.CHART_SERIES_IN_COLUMNS

    ' Get the previously added chart
    Set xlsChartSheet = workbook.easy_getSheetAt(1)
    Set xlsChart = xlsChartSheet.easy_getExcelChart()

    ' Set chart type
    xlsChart.easy_setChartType (Chart.CHART_CHART_TYPE_CYLINDER_COLUMN)

    ' Format chart area
    Set xlsChartArea = xlsChart.easy_getChartArea()
    xlsChartArea.getLineColorFormat ().setLineColor (CLng(Color.COLOR_DARKGRAY))
    xlsChartArea.getLineStyleFormat ().setDashType (LineStyleFormat.LINESTYLEFORMAT_DASH_TYPE_SOLID)
    xlsChartArea.getLineStyleFormat ().setWidth (0.25)

    ' Format chart plot area
    Set xlsPlotArea = xlsChart.easy_getPlotArea()
    xlsPlotArea.getLineColorFormat ().setLineColor (CLng(Color.COLOR_DARKGRAY))
    xlsPlotArea.getLineStyleFormat ().setDashType (LineStyleFormat.LINESTYLEFORMAT_DASH_TYPE_SOLID)
    xlsPlotArea.getLineStyleFormat ().setWidth (0.25)

    ' Format chart legend
    Set xlsChartLegend = xlsChart.easy_getLegend()
    xlsChartLegend.getFillFormat ().setBackground (CLng(Color.COLOR_LAVENDERBLUSH))
    xlsChartLegend.getFontFormat ().setForeground (CLng(Color.COLOR_BLUE))
    xlsChartLegend.getFontFormat ().setItalic (True)
    xlsChartLegend.setKeysArrangementDirection (Chart.CHART_KEYS_ARRANGEMENT_DIRECTION_HORIZONTAL)
    xlsChartLegend.setPlacement (Chart.CHART_LEGEND_CORNER)
    xlsChartLegend.getShadowFormat ().setShadow (ShadowFormat.SHADOWFORMAT_OFFSET_DIAGONAL_BOTTOM_RIGHT)

    ' Format chart X axis
    Set xlsXAxis = xlsChart.easy_getCategoryXAxis()
    xlsXAxis.getLineColorFormat ().setLineColor (CLng(Color.COLOR_STEELBLUE))
    xlsXAxis.getLineStyleFormat ().setDashType  (LineStyleFormat.LINESTYLEFORMAT_DASH_TYPE_DASH_DOT)
    xlsXAxis.getLineStyleFormat ().setWidth (0.25)
    xlsXAxis.getFontFormat ().setForeground (CLng(Color.COLOR_RED))

    ' Format chart Y axis
    Set xlsYAxis = xlsChart.easy_getValueYAxis()
    xlsYAxis.getLineColorFormat ().setLineColor (CLng(Color.COLOR_STEELBLUE))
    xlsYAxis.getLineStyleFormat ().setDashType (LineStyleFormat.LINESTYLEFORMAT_DASH_TYPE_LONG_DASH)
    xlsYAxis.getLineStyleFormat ().setWidth (0.25)
    xlsYAxis.getFontFormat ().setForeground (CLng(Color.COLOR_BLUE))

    ' Format chart series
    xlsChart.easy_getSeriesAt(0).getFillFormat().setBackground (CLng(Color.COLOR_ROYALBLUE))
    xlsChart.easy_getSeriesAt(1).getFillFormat().setBackground (CLng(Color.COLOR_YELLOW))
    xlsChart.easy_getSeriesAt(2).getFillFormat().setBackground (CLng(Color.COLOR_LIGHTGREEN))

    ' Export Excel file
    Me.Label1.Caption = Me.Label1.Caption & vbCrLf & _
                           "Writing file C:\Samples\Tutorial23 - various Excel chart settings.xlsx"
    workbook.easy_WriteXLSXFile ("C:\Samples\Tutorial23 - various Excel chart settings.xlsx")

    ' Confirm export of Excel file
    If workbook.easy_getError() = "" Then
        Me.Label1.Caption = Me.Label1.Caption & vbCrLf & "File successfully created."
    Else
        Me.Label1.Caption = Me.Label1.Caption & vbCrLf & "Error: " & workbook.easy_getError()
    End If

    ' Dispose memory
    workbook.Dispose
End Sub