• AddChart2 cria a própria forma do gráfico — Style:=201 seleciona um estilo visual interno, XlChartType:=xlColumnClustered escolhe um gráfico de colunas padrão, e Left/Top/Width/Height posicionam e dimensionam o gráfico na planilha em pontos, a mesma unidade que o Excel usa internamente para posicionamento de formas;
• AddChart2 na verdade retorna um objeto Chart, não o contêiner ChartObject ao redor dele — o .Chart.Parent no final dessa linha é o que retorna ao contêiner, que é o tipo que chartObj foi declarado; esse detalhe é fácil de esquecer e vale a pena copiar exatamente;
• SetSourceData é o que informa à forma do gráfico, que de outra forma estaria vazia, quais dados devem ser plotados — apontar para tbl.ListColumns("Profit").Range faz com que ele plote a coluna Profit em todas as linhas visíveis da tabela;
• HasTitle = True precisa ser definido antes de atribuir ChartTitle.Text — tentar definir o texto do título em um gráfico que ainda não tem título ativado irá falhar.

1. Executando BuildProfitChart

• Copie o Sub exatamente como mostrado no capítulo e execute — nenhuma alteração é necessária nesta parte.
• Você deverá ver um gráfico aparecer na planilha Reports, exibindo o Lucro para cada linha atualmente visível na tabela.

2. Colorindo as barras e removendo a legenda

• Ambas as propriedades pertencem ao objeto do gráfico, não à planilha — chartObj.Chart é o ponto de entrada, assim como no exemplo de formatação do capítulo.
• A cor da barra está em SeriesCollection(1), já que há apenas uma série de dados sendo exibida (Profit) — .Format.Fill.ForeColor.RGB é a propriedade específica a ser definida.
• Remover a legenda é uma propriedade booleana única (HasLegend), separada da linha de cor de preenchimento.

3. Filtrando e executando novamente SetSourceData

• Aplique um AutoFilter em Month (Field:=1) restrito a "January" — a mesma técnica da seção 4.2.
• Em seguida, chame SetSourceData novamente com a mesma expressão tbl.ListColumns("Profit").Range do BuildProfitChart — nada nessa linha precisa ser alterado.
• Observe atentamente o que acontece com o gráfico depois: ele reduz para mostrar apenas as cinco regiões de January ou ainda exibe todas as quinze linhas, incluindo as que o AutoFilter acabou de ocultar? Essa observação é o verdadeiro objetivo desta tarefa, não apenas executar o código.

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

Execute nesta ordem: BuildProfitChart, depois FormatProfitChart, depois FilterJanuaryAndRefreshChart. Para o ponto 3 especificamente — preste atenção ao que realmente acontece. Os gráficos do Excel geralmente respeitam um AutoFilter ativo, ocultando automaticamente as barras das linhas filtradas, mesmo sem executar novamente o SetSourceData. Executá-lo novamente aqui serve principalmente para confirmar que o gráfico ainda está apontando corretamente para a coluna completa — é o próprio filtro que faz a ocultação visual, não a chamada do SetSourceData. Vale a pena testar com o filtro ativado e desativado para ver a diferença.