excel - 更新された結果から縦棒グラフを生成する

Question

次のコードは、今日の日付に基づいて適切な行を見つけ (日付は既に列 A に手動で書き込まれています)、同じ行にデータを挿入します。「チャート」と呼ばれる別のシートの縦棒グラフに、最後の結果 (今日の日付) を追加する必要があります。

Sub Worksheets_Summary()
Dim OldSheet As Worksheet
Dim NewSheet As Worksheet
Dim Cell As Range
Dim ColNum As Integer
Dim RwNum As Long
Dim book As Workbook
Set book = ThisWorkbook
Set NewSheet = book.Worksheets("Summary")
RwNum = NewSheet.Columns(1).Find(Date).Row
ColNum = 1
For Each OldSheet In book.Worksheets
    If OldSheet.Name <> "Summary" Then
        ColNum = ColNum + 1

        NewSheet.Cells(1, ColNum).Formula _
    = "=HYPERLINK(""#""&CELL(""address"",'" & OldSheet.Name & "'!A1)," _
         & """" & OldSheet.Name & """)"


        NewSheet.Cells(RwNum, ColNum).Value = OldSheet.Range("B11").Value
    End If
Next OldSheet

NewSheet.UsedRange.Columns.AutoFit

End Sub

注: 新しい結果のみがグラフに表示されます。

これは、コード実行後の概要ワークシートです: 概要シート

これは、コード実行後のダッシュボード ワークシートです: ダッシュボード シート