• AddChart2 crea effettivamente la forma del grafico — Style:=201 seleziona uno stile visivo predefinito, XlChartType:=xlColumnClustered seleziona un grafico a colonne standard, e Left/Top/Width/Height ne determinano posizione e dimensioni sul foglio di lavoro in punti, la stessa unità che Excel utilizza internamente per il posizionamento delle forme;
• AddChart2 restituisce in realtà un oggetto Chart, non il contenitore ChartObject che lo circonda — il .Chart.Parent alla fine di quella riga serve a risalire al contenitore, che è il tipo con cui chartObj è dichiarato; questa particolarità è facile da dimenticare e vale la pena copiarla esattamente;
• SetSourceData indica alla forma del grafico, altrimenti vuota, quali dati rappresentare — puntando a tbl.ListColumns("Profit").Range si rappresenta la colonna Profit su tutte le righe visibili della Tabella;
• HasTitle = True deve essere impostato prima di assegnare ChartTitle.Text — provare a impostare il testo del titolo su un grafico che non ha ancora un titolo attivo causerà un errore.

1. Esecuzione di BuildProfitChart

• Copiare la Sub esattamente come mostrato nel capitolo ed eseguirla — non sono necessarie modifiche per questa parte.
• Si dovrebbe vedere un grafico apparire nel foglio Reports che traccia il Profit per ogni riga attualmente visibile nella tabella.

2. Colorazione delle barre e rimozione della legenda

• Entrambe le proprietà appartengono all'oggetto chart, non al foglio di lavoro — chartObj.Chart è il punto di accesso, come nell'esempio di formattazione nel capitolo.
• Il colore delle barre si trova su SeriesCollection(1), poiché viene tracciata solo una serie di dati (Profit) — .Format.Fill.ForeColor.RGB è la proprietà specifica da impostare.
• La rimozione della legenda è una singola proprietà booleana (HasLegend), separata dalla riga del colore di riempimento.

3. Filtraggio e ri-esecuzione di SetSourceData

• Applicare un AutoFilter su Month (Field:=1) limitato a "January" — la stessa tecnica della sezione 4.2.
• Quindi chiamare nuovamente SetSourceData con la stessa espressione tbl.ListColumns("Profit").Range di BuildProfitChart — non è necessario modificare quella riga.
• Osservare attentamente cosa succede al grafico dopo: si restringe solo alle cinque regioni di January, oppure mostra ancora tutte e quindici le righe comprese quelle appena nascoste da AutoFilter? Questa osservazione è il vero obiettivo di questo esercizio, non solo l'esecuzione del codice.

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

Eseguire questi in ordine: BuildProfitChart, poi FormatProfitChart, poi FilterJanuaryAndRefreshChart. Per il punto 3 in particolare — prestare attenzione a ciò che accade realmente. I grafici di Excel generalmente rispettano un AutoFilter attivo, nascondendo automaticamente le barre delle righe filtrate, anche senza rieseguire SetSourceData. Rieseguirlo qui serve principalmente a confermare che il grafico è ancora correttamente puntato sull'intera colonna — è il filtro stesso che gestisce la visualizzazione, non la chiamata a SetSourceData. Vale la pena testare con il filtro sia attivo che disattivo per vedere la differenza.