Automatisering av diagram

• AddChart2 skapar själva diagramformen — Style:=201 väljer en inbyggd visuell stil, XlChartType:=xlColumnClustered väljer ett standardkolumndiagram, och Left/Top/Width/Height placerar och storleksanpassar det på kalkylbladet i punkter, samma enhet som Excel använder internt för formplacering;
• AddChart2 returnerar faktiskt ett Chart-objekt, inte behållaren ChartObject runt det — .Chart.Parent i slutet av raden kliver tillbaka upp till behållaren, vilket är den typ som chartObj är deklarerad som; denna detalj är lätt att glömma och värd att kopiera exakt;
• SetSourceData anger vilken data det annars tomma diagrammet ska visa — att peka på tbl.ListColumns("Profit").Range innebär att det diagrammerar kolumnen Profit över varje synlig rad i tabellen;
• HasTitle = True måste anges innan ChartTitle.Text tilldelas — att försöka ange titeltext på ett diagram som ännu inte har en titel aktiverad kommer att misslyckas.

1. Köra BuildProfitChart

• Kopiera Sub exakt som den visas i kapitlet och kör den — inga ändringar behövs för denna del.
• Du bör se ett diagram visas på bladet Reports som visar vinst för varje rad som för närvarande är synlig i tabellen.

2. Färglägga staplar och ta bort förklaringen

• Båda egenskaperna tillhör diagramobjektet, inte kalkylbladet — chartObj.Chart är din ingångspunkt, precis som i formaterings­exemplet i kapitlet.
• Stapelfärgen finns på SeriesCollection(1), eftersom det bara finns en dataserie som plottas (Profit) — .Format.Fill.ForeColor.RGB är den specifika egenskapen att sätta.
• Att ta bort förklaringen är en separat boolesk egenskap (HasLegend), separat från raden för fyllnadsfärg.

3. Filtrera och köra SetSourceData igen

• Använd en AutoFilter på Month (Field:=1) begränsad till "January" — samma teknik som i avsnitt 4.2.
• Anropa sedan SetSourceData igen med exakt samma uttryck tbl.ListColumns("Profit").Range från BuildProfitChart — inget i den raden behöver ändras.
• Titta noga på vad som händer med diagrammet efteråt: krymper det till endast januaris fem regioner, eller visar det fortfarande alla femton rader inklusive de som AutoFilter just dolde? Den observationen är själva poängen med denna uppgift, inte bara att köra 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

Kör dessa i ordning: BuildProfitChart, sedan FormatProfitChart, sedan FilterJanuaryAndRefreshChart. För punkt 3 specifikt — var uppmärksam på vad som faktiskt händer. Excel-diagram respekterar generellt en aktiv AutoFilter och döljer automatiskt staplar för filtrerade rader, även utan att köra SetSourceData igen. Att köra den igen här bekräftar mest att diagrammet fortfarande pekar på hela kolumnen — det är själva filtret som gör den visuella döljen, inte anropet till SetSourceData. Det är värt att testa med filtret både på och av för att se skillnaden själv.