{"text_format":"1","workbook":"xlsx","n_sheets":1,"sheets":["Dashboard"],"not_rendered":{"charts":0,"images":0,"macros":1,"external_links":1,"defined_names":4,"comments":0,"pivot_tables":0},"unopened":[],"bounds":{"document_bytes":16777216,"sheet_cells":100000,"rows_first":2000,"rows_last":500,"rows_between":2000,"halvings":0,"cell_chars":16384,"cell_head_chars":4096},"cells_cut":0,"cells_raw":0,"read":"whole","date_system":"1900"}

{"sheet":"Dashboard","index":0,"n_rows":84,"n_cols":10,"rows_kept":84,"cut":false,"hidden":false,"merged":[[2,2,2,5],[4,3,4,5]]}
[]
[]
[null,null,"Daily Dashboard"]
[]
[null,null,null,"2010-06-07"]
[null,null,null,1,null,5]
[null,null,null,"Today",null,"3 Mth Trend"]
[null,null,"Total",{"$f":"[1]Calculation!H52","v":474536},{"$f":"IF([1]Calculation!I52=1,\"◄+\",IF([1]Calculation!I52=2,\"►\",\"-►\"))","v":"-►"},{"$f":"LineChart(J8:J18,622)","v":""},null,null,null,1791629]
[null,null,null,null,null,{"$f":"BarChart(J8:J18,622)","v":""},null,null,null,1587729]
[null,null,null,null,null,null,null,null,null,1971998]
[null,null,null,null,null,null,null,null,null,1718987]
[null,null,null,null,null,null,null,null,null,1902172]
[null,null,null,null,null,null,null,null,null,1766653]
[null,null,null,null,null,null,null,null,null,2013998]
[null,null,null,null,null,null,null,null,null,1488294]
[null,null,null,null,null,null,null,null,null,1848168]
[null,null,null,null,null,null,null,null,null,1109990.0000399998]
[null,null,null,null,null,null,null,null,null,840463]
[]
[]
[]
[null,null,"Function LineChart(Points As Range, Color As Long) As String"]
[null,null,"    Const cMargin = 2"]
[null,null,"    Dim rng As Range, arr() As Variant, i As Long, j As Long, k As Long"]
[null,null,"    Dim dblMin As Double, dblMax As Double, shp As Shape"]
[]
[null,null,"    Set rng = Application.Caller"]
[]
[null,null,"    ShapeDelete rng"]
[]
[null,null,"    For i = 1 To Points.Count"]
[null,null,"        If j = 0 Then"]
[null,null,"            j = i"]
[null,null,"        ElseIf Points(, j) > Points(, i) Then"]
[null,null,"            j = i"]
[null,null,"        End If"]
[null,null,"        If k = 0 Then"]
[null,null,"            k = i"]
[null,null,"        ElseIf Points(, k) < Points(, i) Then"]
[null,null,"            k = i"]
[null,null,"        End If"]
[null,null,"    Next"]
[null,null,"    dblMin = Points(, j)"]
[null,null,"    dblMax = Points(, k)"]
[]
[null,null,"    With rng.Worksheet.Shapes"]
[null,null,"        For i = 0 To Points.Count - 2"]
[null,null,"            Set shp = .AddLine( _"]
[null,null,"                cMargin + rng.Left + (i * (rng.Width - (cMargin * 2)) / (Points.Count - 1)), _"]
[null,null,"                cMargin + rng.Top + (dblMax - Points(, i + 1)) * (rng.Height - (cMargin * 2)) / (dblMax - dblMin), _"]
[null,null,"                cMargin + rng.Left + ((i + 1) * (rng.Width - (cMargin * 2)) / (Points.Count - 1)), _"]
[null,null,"                cMargin + rng.Top + (dblMax - Points(, i + 2)) * (rng.Height - (cMargin * 2)) / (dblMax - dblMin))"]
[]
[null,null,"            On Error Resume Next"]
[null,null,"            j = 0: j = UBound(arr) + 1"]
[null,null,"            On Error GoTo 0"]
[null,null,"            ReDim Preserve arr(j)"]
[null,null,"            arr(j) = shp.Name"]
[null,null,"        Next"]
[]
[null,null,"        With rng.Worksheet.Shapes.Range(arr)"]
[null,null,"            .Group"]
[]
[null,null,"            If Color > 0 Then .Line.ForeColor.RGB = Color Else .Line.ForeColor.SchemeColor = -Color"]
[null,null,"        End With"]
[]
[null,null,"    End With"]
[]
[null,null,"    LineChart = \"\""]
[null,null,"End Function"]
[]
[null,null,"Sub ShapeDelete(rngSelect As Range)"]
[null,null,"    Dim rng As Range, shp As Shape, blnDelete As Boolean"]
[]
[null,null,"    For Each shp In rngSelect.Worksheet.Shapes"]
[null,null,"        blnDelete = False"]
[null,null,"        Set rng = Intersect(Range(shp.TopLeftCell, shp.BottomRightCell), rngSelect)"]
[null,null,"        If Not rng Is Nothing Then"]
[null,null,"            If rng.Address = Range(shp.TopLeftCell, shp.BottomRightCell).Address Then blnDelete = True"]
[null,null,"        End If"]
[]
[null,null,"        If blnDelete Then shp.Delete"]
[null,null,"    Next"]
[null,null,"End Sub"]