• AddChart2 oppretter selve diagramformen — Style:=201 velger en innebygd visuell stil, XlChartType:=xlColumnClustered velger et standard kolonnediagram, og Left/Top/Width/Height plasserer og størrelsesbestemmer det på regnearket i punkter, samme enhet som Excel bruker internt for plassering av former;
• AddChart2 returnerer faktisk et Chart-objekt, ikke ChartObject-beholderen rundt det — .Chart.Parent på slutten av linjen går tilbake til beholderen, som er typen chartObj er deklarert som; denne detaljen er lett å glemme og verdt å kopiere nøyaktig;
• SetSourceData angir hvilke data det ellers tomme diagrammet skal vise — å peke det mot tbl.ListColumns("Profit").Range betyr at det viser Profit-kolonnen for alle synlige rader i tabellen;
• HasTitle = True må settes før ChartTitle.Text tildeles — å prøve å sette titteltekst på et diagram som ikke har tittel aktivert ennå vil feile.

1. Kjøre BuildProfitChart

• Kopier Sub-rutinen nøyaktig som vist i kapitlet og kjør den — ingen endringer er nødvendig for denne delen.
• Du skal se et diagram vises på rapportarket som viser fortjeneste for hver rad som for øyeblikket er synlig i tabellen.

2. Fargelegge stolpene og fjerne forklaringen

• Begge egenskapene tilhører diagramobjektet, ikke regnearket — chartObj.Chart er inngangspunktet, akkurat som i formateringseksempelet i kapitlet.
• Stolpefargen ligger på SeriesCollection(1), siden det bare er én dataserie som vises (Profit) — .Format.Fill.ForeColor.RGB er den spesifikke egenskapen som skal settes.
• Å fjerne forklaringen er en egen boolsk egenskap (HasLegend), separat fra linjen for fyllfarge.

3. Filtrere og kjøre SetSourceData på nytt

• Bruk en AutoFilter på Month (Field:=1) begrenset til "January" — samme teknikk som i seksjon 4.2.
• Kall deretter SetSourceData igjen med nøyaktig samme tbl.ListColumns("Profit").Range-uttrykk fra BuildProfitChart — ingenting med den linjen trenger å endres.
• Følg nøye med på hva som skjer med diagrammet etterpå: krymper det til bare januar sine fem regioner, eller viser det fortsatt alle femten radene inkludert de som AutoFilter nettopp skjulte? Det er selve poenget med denne oppgaven, ikke bare å kjøre koden.

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

Kjør disse i rekkefølge: BuildProfitChart, deretter FormatProfitChart, så FilterJanuaryAndRefreshChart. For punkt 3 spesielt — følg med på hva som faktisk skjer. Excel-diagrammer respekterer vanligvis en aktiv AutoFilter, og skjuler automatisk stolpene for filtrerte rader, selv uten å kjøre SetSourceData på nytt. Å kjøre den på nytt her bekrefter bare at diagrammet fortsatt peker på hele kolonnen — det er filteret i seg selv som skjuler radene visuelt, ikke SetSourceData-kallet. Det er verdt å teste med filter både på og av for å se forskjellen selv.