• AddChart2 luo itse kaaviomuodon — Style:=201 valitsee sisäänrakennetun visuaalisen tyylin, XlChartType:=xlColumnClustered valitsee tavallisen pylväskaavion, ja Left/Top/Width/Height määrittävät sijainnin ja koon taulukossa pisteinä, sama yksikkö jota Excel käyttää sisäisesti muotojen sijoitteluun;
• AddChart2 palauttaa itse asiassa Chart-olion, ei sen ympärillä olevaa ChartObject-kontaineria — .Chart.Parent rivin lopussa palaa takaisin kontaineriin, joka on se tyyppi, joksi chartObj on määritelty; tämä yksityiskohta on helppo unohtaa ja kannattaa kopioida täsmälleen;
• SetSourceData kertoo muuten tyhjälle kaaviomuodolle, mitä dataa piirtää — osoittamalla sen kohtaan tbl.ListColumns("Profit").Range kaavio piirtää Profit-sarakkeen kaikki näkyvät rivit taulukosta;
• HasTitle = True täytyy asettaa ennen kuin ChartTitle.Text määritetään — jos yrittää asettaa otsikkotekstin kaaviolle, jolla ei vielä ole otsikkoa, se epäonnistuu.

1. BuildProfitChart-makron suorittaminen

• Kopioi Sub täsmälleen kuten luvussa ja suorita se — tähän osaan ei tarvita muutoksia.
• Näet kaavion ilmestyvän Reports-välilehdelle, joka kuvaa Profit-arvon jokaiselle taulukon näkyvälle riville.

2. Palkkien väritys ja selitteen poistaminen

• Molemmat ominaisuudet kuuluvat kaavio-objektille, eivät laskentataulukolle — chartObj.Chart on lähtöpisteesi, kuten luvun muotoiluesimerkissä.
• Palkin väri määritetään SeriesCollection(1):lle, koska vain yksi tietosarja (Profit) piirretään — .Format.Fill.ForeColor.RGB on tarkka ominaisuus, jota muutetaan.
• Selitteen poistaminen on yksittäinen Boolean-ominaisuus (HasLegend), erillinen täyttövärin rivistä.

3. Suodatus ja SetSourceData:n uudelleensuoritus

• Käytä AutoFilter-toimintoa kuukaudelle (Field:=1), rajattuna "January" — sama tekniikka kuin kohdassa 4.2.
• Kutsu sitten SetSourceData uudelleen käyttäen täsmälleen samaa tbl.ListColumns("Profit").Range-ilmaisua kuin BuildProfitChart-makrossa — tätä riviä ei tarvitse muuttaa.
• Tarkkaile, mitä kaaviolle tapahtuu tämän jälkeen: kutistuuko se vain tammikuun viiteen alueeseen vai näyttääkö se edelleen kaikki viisitoista riviä, mukaan lukien AutoFilterin piilottamat? Tämän havainnointi on tehtävän varsinainen tarkoitus, ei pelkkä koodin suorittaminen.

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

Suorita nämä järjestyksessä: BuildProfitChart, sitten FormatProfitChart, sitten FilterJanuaryAndRefreshChart. Kohta 3 — kiinnitä erityistä huomiota siihen, mitä oikeasti tapahtuu. Excelin kaaviot yleensä huomioivat aktiivisen AutoFilter-suodatuksen ja piilottavat suodatetut rivit automaattisesti, vaikka SetSourceData-kutsua ei suoritettaisikaan uudelleen. Tässä sen uudelleensuoritus lähinnä varmistaa, että kaavio osoittaa edelleen oikeaan sarakkeeseen — itse suodatus piilottaa rivit visuaalisesti, ei SetSourceData. Kannattaa testata suodattimen ollessa sekä päällä että pois päältä, jotta näet eron itse.