グラフの自動化

• AddChart2 はチャートシェイプ自体を作成 — Style:=201 は組み込みのビジュアルスタイルを選択し、XlChartType:=xlColumnClustered は標準の集合縦棒グラフを選択、Left/Top/Width/Height でワークシート上の位置とサイズをポイント単位（Excel が内部的に図形配置に使用する単位）で指定;
• AddChart2 は実際には ChartObject のコンテナではなく Chart オブジェクト自体を返す — 行末の .Chart.Parent でコンテナに戻る。これは chartObj が宣言されている型であり、この仕様は忘れやすいため正確にコピーする価値がある;
• SetSourceData は、空のチャートシェイプにどのデータをプロットするかを指定するもの — tbl.ListColumns("Profit").Range を指定すると、Table のすべての表示行の Profit 列がグラフ化される;
• HasTitle = True を設定してから ChartTitle.Text を割り当てる必要がある — タイトルがまだ有効でないチャートにタイトルテキストを設定しようとすると失敗する。

1. BuildProfitChart の実行

• この章で示された Sub をそのままコピーして実行 — この部分は変更不要。
• レポートシートに、現在テーブルで表示されている各行の利益をプロットしたグラフが表示されるはず。

2. 棒グラフの色付けと凡例の削除

• どちらのプロパティもワークシートではなくチャートオブジェクトに属する — chartObj.Chart がエントリーポイント（章の書式設定例と同様）。
• 棒グラフの色は SeriesCollection(1) に設定（プロットされているデータ系列は利益のみ）— .Format.Fill.ForeColor.RGB が設定対象のプロパティ。
• 凡例の削除は、塗りつぶしの設定とは別の単一のブールプロパティ（HasLegend）。

3. フィルター適用と SetSourceData の再実行

• 月（AutoFilter）に「January」の Field:=1 を適用 — セクション4.2と同じ手法。
• その後、SetSourceData で使ったのと全く同じ tbl.ListColumns("Profit").Range 式で BuildProfitChart を再度呼び出す — この行は変更不要。
• その後のグラフの挙動をよく観察：1月の5地域だけに縮小されるか、それとも AutoFilter で非表示にした行も含めて全15行が表示され続けるか？この観察が本タスクの本質であり、単にコードを実行することが目的ではない。

Option Explicit

' Point 1 — run this exactly as shown in the chapter
Sub BuildProfitChart()
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim chartObj As ChartObject

    Set ws = ThisWorkbook.Worksheets("Reports")
    Set tbl = ws.ListObjects("tblReports")

    Set chartObj = ws.Shapes.AddChart2(Style:=201, _
        XlChartType:=xlColumnClustered, _
        Left:=400, Top:=20, Width:=400, Height:=250).Chart.Parent

    With chartObj.Chart
        .SetSourceData Source:=tbl.ListColumns("Profit").Range
        .HasTitle = True
        .ChartTitle.Text = "Profit by Region"
    End With
End Sub

' Point 2 — color the bars and remove the legend
Sub FormatProfitChart()
    Dim ws As Worksheet
    Dim chartObj As ChartObject

    Set ws = ThisWorkbook.Worksheets("Reports")
    Set chartObj = ws.ChartObjects(1)

    With chartObj.Chart
        .SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(24, 106, 60)
        .HasLegend = False
    End With
End Sub

' Point 3 — filter to January, then re-point the chart at the same range
Sub FilterJanuaryAndRefreshChart()
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim chartObj As ChartObject

    Set ws = ThisWorkbook.Worksheets("Reports")
    Set tbl = ws.ListObjects("tblReports")
    Set chartObj = ws.ChartObjects(1)

    tbl.Range.AutoFilter Field:=1, Criteria1:="January"

    chartObj.Chart.SetSourceData Source:=tbl.ListColumns("Profit").Range
End Sub

この順番で実行：BuildProfitChart、次に FormatProfitChart、最後に FilterJanuaryAndRefreshChart。特にポイント3では、実際に何が起こるかに注目。Excel のグラフは通常、アクティブな AutoFilter を自動的に反映し、フィルターで除外された行の棒グラフを非表示にする（SetSourceData を再実行しなくても）。ここで再実行するのは、グラフが正しく列全体を参照していることを確認するためであり、実際に表示を制御しているのはフィルター自体であって SetSourceData ではない。フィルターのオン・オフ両方で挙動を確認する価値あり。