Automatisering af diagrammer

• AddChart2 opretter selve diagramformen — Style:=201 vælger en indbygget visuel stil, XlChartType:=xlColumnClustered vælger et standard søjlediagram, og Left/Top/Width/Height placerer og størrelsesbestemmer det på regnearket i punkter, samme enhed som Excel bruger internt til formplacering;
• AddChart2 returnerer faktisk et Chart-objekt, ikke ChartObject-beholderen omkring det — .Chart.Parent i slutningen af linjen går et niveau op til beholderen, som er den type, chartObj er erklæret som; denne detalje er let at overse og værd at kopiere nøjagtigt;
• SetSourceData angiver, hvilke data det ellers tomme diagram skal vise — når den peger på tbl.ListColumns("Profit").Range, betyder det, at Profit-kolonnen vises for alle synlige rækker i tabellen;
• HasTitle = True skal sættes, før ChartTitle.Text tildeles — hvis man forsøger at sætte titlen på et diagram, der endnu ikke har en titel slået til, vil det fejle.

1. Kørsel af BuildProfitChart

• Kopiér Sub-proceduren nøjagtigt som vist i kapitlet og kør den — ingen ændringer er nødvendige for denne del.
• Du bør se et diagram dukke op på rapportarket, der viser Profit for hver række, der aktuelt er synlig i tabellen.

2. Farvelægning af søjler og fjernelse af forklaring

• Begge egenskaber tilhører diagramobjektet, ikke regnearket — chartObj.Chart er dit udgangspunkt, ligesom i formateringseksemplet i kapitlet.
• Søjlefarven findes på SeriesCollection(1), da der kun vises én dataserie (Profit) — .Format.Fill.ForeColor.RGB er den specifikke egenskab, der skal indstilles.
• Fjernelse af forklaringen er en enkelt boolesk egenskab (HasLegend), adskilt fra linjen med udfyldningsfarve.

3. Filtrering og genkørsel af SetSourceData

• Anvend et AutoFilter på Month (Field:=1), begrænset til "January" — samme teknik som i afsnit 4.2.
• Kald derefter SetSourceData igen med det nøjagtige samme udtryk tbl.ListColumns("Profit").Range fra BuildProfitChart — intet ved den linje skal ændres.
• Hold nøje øje med, hvad der sker med diagrammet bagefter: Skrumper det ind til kun januars fem regioner, eller viser det stadig alle femten rækker, inklusive dem AutoFilter netop har skjult? Det er faktisk pointen med denne opgave, ikke blot at kø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

Kør disse i rækkefølge: BuildProfitChart, derefter FormatProfitChart, derefter FilterJanuaryAndRefreshChart. For punkt 3 — vær opmærksom på, hvad der faktisk sker. Excel-diagrammer respekterer generelt en aktiv AutoFilter og skjuler automatisk søjler for filtrerede rækker, selv uden at genkøre SetSourceData. At genkøre den her bekræfter mest, at diagrammet stadig peger korrekt på hele kolonnen — det er selve filteret, der står for den visuelle skjulning, ikke SetSourceData-kaldet. Det er værd at teste med filteret både slået til og fra for at se forskellen selv.