VB Script to display the results graph

The following function is very useful in the scenario to display the results in terms of graph:

Public Function getresult_graph()

'Set FSO_Obj_summary = CreateObject("Scripting.FileSystemObject")

'FSO_Obj_summary.CreateTextFile path_summary

Set excel_summary_report = CreateObject("Excel.Application")

'Set excel_summary_report = excel_summary_report.WorkBooks.Open("Test_Data.xls")

'Set excel_summary_report_wrkbook = excel_summary_report.WorkBooks.Open(path_summary)

Set excel_summary_report_wrkbook = excel_summary_report.Worksheets.Add()

Set excel_summary_report_wrkbook_wrkSheet = excel_summary_report_wrkbook.Worksheets("Sheet1")

excel_summary_report_wrkbook_wrkSheet.Cells(1,1) = "ModuleSummary"

excel_summary_report_wrkbook_wrkSheet.Cells(1,2) = "Result status"

excel_summary_report_wrkbook_wrkSheet.Cells(2,1) = "Number of Modules Passed"

excel_summary_report_wrkbook_wrkSheet.Cells(3,1) = "Number of Modules Failed"

excel_summary_report_wrkbook_wrkSheet.Cells(2,2) = 10

excel_summary_report_wrkbook_wrkSheet.Cells(3,2) = 5

'excel_summary_report_wrkbook.

Set oRange=excel_summary_report_wrkbook_wrkSheet.UsedRange

oRange.Select

Set oChart=excel_summary_report.charts

oChart.Add()

'Pie chart

Set oMychart=oChart(1)

oMychart.Activate

oMychart.ChartType=5

oMychart.ApplyDataLabels 5

oMychart.PlotArea.Fill.Visible=False

oMychart.PlotArea.Border.LineStyle=-4142

oMychart.SeriesCollection(1).DataLabels.Font.Size=15

oMychart.SeriesCollection(1).DataLabels.Font.ColorIndex=2

oMychart.ChartArea.Fill.Forecolor.SchemeColor=49

oMychart.ChartArea.Fill.Backcolor.SchemeColor=14

oMychart.ChartArea.Fill.TwoColorGradient 1,1

oMychart.ChartTitle.Font.Size=20

oMychart.ChartTitle.Font.ColorIndex=4

' excel_summary_report_wrkbook.Save

excel_summary_report_wrkbook.Close

Set excel_summary_report = Nothing

Set excel_summary_report_wrkbook = Nothing

Set excel_summary_report_wrkbook_wrkSheet = Nothing

Set FSO_Obj_summary = Nothing

End Function