Attribute VB_Name = "CasePersistencyGraph"

Function TeamACaseDistributionTable(ByVal calc_result As Variant, ByVal file_path As String)
  Const HEADER_ROW As Long = 1
  Const START_CELL As String = "A1"
  Dim wb As Workbook
  Dim ws As Worksheet
  Dim startCell As Range

  Dim case_team_a_meta As Variant
  Dim case_team_b_meta As Variant

  case_team_a_meta = calc_result(5)
  case_team_b_meta = calc_result(6)

  ' Open the workbook
  Set wb = Workbooks.Open(file_path)
  Set ws = wb.Sheets("Case persistency")

  ' Write headers
  Set startCell = ws.Range(START_CELL)
  startCell.Value = "Team A Case Distribution"
  startCell.Offset(1, 0).Value = "State"
  startCell.Offset(1, 1).Value = "Case"

  startCell.Offset(1 + 1, 0).Value = "Collapse"
  startCell.Offset(1 + 2, 0).Value = "New Case"

  startCell.Offset(1 + 1, 1).Value = case_team_a_meta(0)
  startCell.Offset(1 + 2, 1).Value = case_team_a_meta(1)

  ' Save and close the workbook
  ' wb.Close SaveChanges:=True
End Function

Function TeamACaseDistributionGraph(ByVal calc_result As Variant, ByVal file_path As String)
  Dim wb As Workbook
  Dim ws As Worksheet

  Set wb = Workbooks.Open(file_path)
  Set ws = wb.Sheets("Case persistency")

  ' insert graph
  ActiveSheet.Shapes.AddChart2(251, xlPie).Select
  ActiveChart.SetSourceData Source:=Range("$A$2:$B$4")
  ActiveChart.SetElement (msoElementLegendNone)
  ActiveChart.SetElement (msoElementDataLabelCallout)
  ActiveChart.ChartTitle.Select
  ActiveChart.ChartTitle.Text = "Team A case Distribution"
  Selection.Format.TextFrame2.TextRange.Characters.Text = "Team A case Distribution"

  Set cho = ws.ChartObjects(ws.ChartObjects.Count)
  Set cht = cho.Chart
  cho.Top = 0
  cho.Left = 0
  cho.Width = 400
  cho.Height = 300

End Function


Function TeamBCaseDistributionTable(ByVal calc_result As Variant, ByVal file_path As String)
  Const HEADER_ROW As Long = 1
  Const START_CELL As String = "F1"
  Dim wb As Workbook
  Dim ws As Worksheet
  Dim startCell As Range

  Dim case_team_a_meta As Variant
  Dim case_team_b_meta As Variant

  case_team_a_meta = calc_result(5)
  case_team_b_meta = calc_result(6)

  ' Open the workbook
  Set wb = Workbooks.Open(file_path)
  Set ws = wb.Sheets("Case persistency")

  ' Write headers
  Set startCell = ws.Range(START_CELL)
  startCell.Value = "Team B Case Distribution"
  startCell.Offset(1, 0).Value = "State"
  startCell.Offset(1, 1).Value = "Case"

  startCell.Offset(1 + 1, 0).Value = "Collapse"
  startCell.Offset(1 + 2, 0).Value = "New Case"

  startCell.Offset(1 + 1, 1).Value = case_team_b_meta(0)
  startCell.Offset(1 + 2, 1).Value = case_team_b_meta(1)

End Function

Function TeamBCaseDistributionGraph(ByVal calc_result As Variant, ByVal file_path As String)
  Dim wb As Workbook
  Dim ws As Worksheet

  Set wb = Workbooks.Open(file_path)
  Set ws = wb.Sheets("Case persistency")

  ' insert graph
  ActiveSheet.Shapes.AddChart2(251, xlPie).Select
  ActiveChart.SetSourceData Source:=Range("F2:G4")
  ActiveChart.SetElement (msoElementLegendNone)
  ActiveChart.SetElement (msoElementDataLabelCallout)
  ActiveChart.ChartTitle.Select
  ActiveChart.ChartTitle.Text = "Team B case Distribution"
  Selection.Format.TextFrame2.TextRange.Characters.Text = "Team B case Distribution"

  Set cho = ws.ChartObjects(ws.ChartObjects.Count)
  Set cht = cho.Chart
  cho.Top = 0
  cho.Left = 400
  cho.Width = 400
  cho.Height = 300

End Function





Function Helloworld()
  Debug.Print "helloworld CasePersistency"
End Function