THIS CODE GOES UNDER THE FINCHART SPREADSHEET   

 Public Sub SetupFinCharts()
        'format the chart - feel free to change any formatting
        StockChart.ChartType = Excel.XlChartType.xlLine
        StockDataToChartLO.AutoSetDataBoundColumnHeaders = True

        'format the y axis as $
        Dim y As Excel.Axis = StockChart.Axes(Excel.XlAxisType.xlValue)
        y.HasTitle = False
        y.HasMinorGridlines = True
        y.MinorTickMark = Excel.XlTickMark.xlTickMarkOutside
        y.TickLabels.NumberFormat = "$###.00"

        'format the x axis as dates
        Dim x As Excel.Axis = StockChart.Axes(Excel.XlAxisType.xlCategory)
        x.HasTitle = False
        x.CategoryType = Excel.XlCategoryType.xlTimeScale
        x.MajorTickMark = Excel.XlTickMark.xlTickMarkCross
        x.BaseUnit = Excel.XlTimeUnit.xlDays
        x.TickLabels.NumberFormat = "d-mmm"

        'format the chart - feel free to change any formatting
        OptionChart.ChartType = Excel.XlChartType.xlLine
        OptionDataToChartLO.AutoSetDataBoundColumnHeaders = True

        'format the y axis as $
        Dim y2 As Excel.Axis = OptionChart.Axes(Excel.XlAxisType.xlValue)
        y2.HasTitle = False
        y2.HasMinorGridlines = True
        y2.MinorTickMark = Excel.XlTickMark.xlTickMarkOutside
        y2.TickLabels.NumberFormat = "$###.00"

        'format the x axis as dates
        Dim x2 As Excel.Axis = OptionChart.Axes(Excel.XlAxisType.xlCategory)
        x2.HasTitle = False
        x2.CategoryType = Excel.XlCategoryType.xlTimeScale
        x2.MajorTickMark = Excel.XlTickMark.xlTickMarkCross
        x2.BaseUnit = Excel.XlTimeUnit.xlDays
        x2.TickLabels.NumberFormat = "d-mmm"
    End Sub