Het toelichten van cijfers tijdens bijeenkomsten kunt u verlevendigen door het toevoegen van animaties, waardoor de cijfers beter begrepen worden. Excel-goeroe Tony De Jonker laat u zien hoe u een staafdiagram geleidelijk kunt onthullen door middel van een besturingselement of een animatiemacro.

Tabel

We gaan uit van de volgende tabel, waarin de aantallen (kolom Aantal1) per maand (kolom datum1) worden bijgehouden.

Kolommen datum2 en Aantal2 dienen ter verrijking en bevatten formules. Markeer daartoe:

• Cellen D5-D16 en voer de volgende formule in: =TEKST(B5;”mmm”)&TEKEN(13)&TEKST(B5;”JJ”)
• Cellen E5-E15 en geef in: =ALS(RIJ()-4<=$R$5;C5;#N/B)
• Beide formules kunt u invoeren door gelijktijdig op de knoppen Control en Enter te drukken.

Grafiek

Op basis van cellen D5-E16 kunt u de volgende staafgrafiek maken:

De formules in kolom datum2 zorgen ervoor dat het jaartal in de X-as op de volgende regel wordt weergegeven, wat de leesbaarheid ten goede komt.

Toevoegen schuifbalk

We kunnen nu een horizontale schuifbalk toevoegen aan de grafiek. Vooraf dient u naar cel R5 te gaan en deze een naam te geven door in het naamvak in te typen: CounterBarChart gevolgd door Enter. Deze cel wordt gebruikt om de cijfers in kolom Aantal2 al dan niet weer te geven.

Ga nu via het Lint naar: Ontwikkelaars -> Besturingselementen -> Invoegen -> Formulierbesturingselementen -> Schuifbalk. U tekent deze horizontale schuifbalk direct onderaan de grafiek.

Als u met de rechtermuisknop op de schuifbalk klikt, kiest u uit het verkorte menu: besturingselement opmaken. U geeft de volgende instellingen mee:

Door de schuiver in de schuifbalk te bewegen zal de waarde in cel R5 (CounterBarChart) mee veranderen. Hierdoor zullen de staven in de grafiek dienovereenkomstig meebewegen.

Leer meer

Op de Excel Power BI Summer Boost 2020

Toevoegen animatie-macro

U kunt de volgende animatiemacro aanmaken door via Alt-F11 naar de Visual Basic Editor te gaan en via Invoegen -> Module de volgende programmatekst in te voeren:

Sub DisplayBarChart()

Dim i As Integer

For i = 1 To 12

Range(“CounterBarChart”).Value = i

Application.Calculate

Application.Wait (Now + TimeValue(“0:00:01”))

ActiveSheet.ChartObjects(“BarChart1”).Activate

ActiveSheet.ChartObjects(“BarChart1”).Chart.Refresh

Application.Calculate

Next

Range(“A1”).Select

End Sub

Maak een vorm naast de grafiek  en koppel de macro aan deze vorm door met rechtermuisknop erop te klikken en uit het verkorte menu Macro Toewijzen te selecteren. Uit het dialoogvenster kiest u dan deze macro, waarna u op OK klikt.

U kunt diverse vormen vinden via het Lint: Illustraties -> Vormen -> Basisvormen.  De grootte, kleur en positie kunt u zelf aanpassen. Als u op de knop klikt zullen de staven in de grafiek een voor een worden weergegeven.

Auteur: Tony De Jonker

Dit artikel is verschenen in cm: 2020, afl. 2