[VBA] Scorebord bijhouden in Powerpoint met VBA en macro's

[Gotenks1990]

Ik ben bezig met in Powerpoint een groepsquiz te maken dat bij leerlingen met een beperking specifieke vaardigheden moet testen, dit is in functie van mijn werk. Het scorebord (zie de afbeelding hieronder) staat geplaatst op alle slides en bestaat uit 5 groepen, gaande van groep 1 t.e.m. groep 5. Qua opmaak is er niet veel aan: iedere groep heeft 1 textbox (txtGroep1, txtGroep2, ...) en 2 rechthoekjes waaraan elk een macro is gekoppel (bv. Groep1Plus, Groep2Plus, Groep1Min, Groep2Min, ...).



Als er bij bv. groep 1 op '+1' gedrukt wordt, wordt macro Groep1Plus aangesproken om de score op te tellen met +1 en de score te tonen in de textbox txtGroep1. Idem ditto voor -1. De scores moeten getoond worden doorheen de hele presentatie.

Ik dacht dat het een simpele macro was (gewoon optellen/aftrekken en waarde tonen), maar ik krijg de score niet meer getoond in de textboxen. Toegegeven, ik ben nogal roestig geworden wat betreft VBA. Hierbij de code:

code:

Static scoreGroep1 As Integer
Static scoreGroep2 As Integer
Static scoreGroep3 As Integer
Static scoreGroep4 As Integer
Static scoreGroep5 As Integer

Sub StartQuiz()
    ' Reset de score naar 0
    scoreGroep1 = 0
    scoreGroep2 = 0
    scoreGroep3 = 0
    scoreGroep4 = 0
    scoreGroep5 = 0
End Sub

Sub Groep1Plus()
    scoreGroep1 = scoreGroep1 + 1
    Me.txtGroep1.Text = scoreGroep1
End Sub

Sub Groep1Min()
    scoreGroep1 = scoreGroep1 - 1
    Me.txtGroep1 = scoreGroep1
End Sub

Sub Groep2Plus()
    scoreGroep2 = scoreGroep2 + 1
    Me.txtGroep2.Text = scoreGroep2
End Sub

Sub Groep2Min()
    scoreGroep2 = scoreGroep2 - 1
    Me.txtGroep2 = scoreGroep2
End Sub

Sub Groep3Plus()
    scoreGroep3 = scoreGroep3 + 1
    Me.txtGroep3.Text = scoreGroep3
End Sub

Sub Groep3Min()
    scoreGroep3 = scoreGroep3 - 1
    Me.txtGroep3 = scoreGroep3
End Sub

Sub Groep4Plus()
    scoreGroep4 = scoreGroep4 + 1
    Me.txtGroep4.Text = scoreGroep4
End Sub

Sub Groep4Min()
    scoreGroep4 = scoreGroep4 - 1
    Me.txtGroep4 = scoreGroep4
End Sub

Sub Groep5Plus()
    scoreGroep5 = scoreGroep5 + 1
    Me.txtGroep5.Text = scoreGroep5
End Sub

Sub Groep5Min()
    scoreGroep5 = scoreGroep5 - 1
    Me.txtGroep5 = scoreGroep5
End Sub

Ik heb de "Me.txtGroep1.Text = scoreGroep1" ook al vervangen door "ActivePresentation.Slides(3).Shapes("txtGroep1").TextFrame.TextRange.Text = scoreGroep1", maar ook zonder resultaat.

Iemand die ziet wat ik over het hoofd zie?

Thanks!

[nescafe]

VBA is standaard nogal laks in foutdetectie (bijv. de missende .Text property in alle Min()-functies wordt nu niet kenbaar gemaakt).

Plaats eens Option Explicit bovenin je sub module en ga vervolgens naar Foutopsporing > Compileren.
Krijg je nu al meer info?

[vdws]

Komt het niet door de static? Waarom niet "Dim scoreGroep1 As Integer" gebruiken?

[Gotenks1990]

nescafe schreef op maandag 20 juni 2016 @ 12:47:
VBA is standaard nogal laks in foutdetectie (bijv. de missende .Text property in alle Min()-functies wordt nu niet kenbaar gemaakt).

Plaats eens Option Explicit bovenin je sub module en ga vervolgens naar Foutopsporing > Compileren.
Krijg je nu al meer info?

Bedankt hiervoor, handige tip! Nu krijg ik tenminste te zien dat de foutmelding zegt dat er een ongeldig gebruik is van het sleutelwoord Me. Ik dacht dat je in VBA altijd Me... moest gebruiken om zo het tekstveld te benaderen binnen de hele presentatie? Blijkbaar werkt het niet als het gebruikt wordt in een module...

Hoe moet ik er dan voor zorgen dat de score steeds in het betreffende tekstveld getoond moet worden?

vdws schreef op maandag 20 juni 2016 @ 13:36:
Komt het niet door de static? Waarom niet "Dim scoreGroep1 As Integer" gebruiken?

Ik wil de variabelen graag als globale variabelen gebruiken, zodat deze in alle functies benaderd kunnen worden. Het schoot me er juist in dat het 'public' moet zijn i.p.v. 'static' om dit te bereiken.

[farlane]

Gotenks1990 schreef op maandag 20 juni 2016 @ 16:02:
[...]

Bedankt hiervoor, handige tip! Nu krijg ik tenminste te zien dat de foutmelding zegt dat er een ongeldig gebruik is van het sleutelwoord Me. Ik dacht dat je in VBA altijd Me... moest gebruiken om zo het tekstveld te benaderen binnen de hele presentatie? Blijkbaar werkt het niet als het gebruikt wordt in een module...

"Me" is als "this" en werkt alleen als er sprake is van een "current object". Per definitie is dat in een module niet het geval (per slot van rekening kun je een module niet instantieren) , en in bijvoorbeeld een class wel.

[nescafe]

Gotenks1990 schreef op maandag 20 juni 2016 @ 16:02:
[...]

Hoe moet ik er dan voor zorgen dat de score steeds in het betreffende tekstveld getoond moet worden?

Volgens mij wordt er door PP al per slide een class aangemaakt.
Als je je code verhuist naar die class zou het al goed moeten gaan ("Me" is dan de instantie van de slide)

class Slide3:

code:

Option Explicit

Sub Groep1Plus()
    Scores.scoreGroep1 = Scores.scoreGroep1 + 1
    Me.txtGroep1.Text = Scores.scoreGroep1
End Sub

Omdat je de scores over de verschillende slides wilt kunnen benaderen kun je deze declareren in een eigen module:

module Scores:

code:

Option Explicit

Public scoreGroep1 As Integer

[Gotenks1990]

nescafe schreef op maandag 20 juni 2016 @ 20:15:
[...]


Volgens mij wordt er door PP al per slide een class aangemaakt.
Als je je code verhuist naar die class zou het al goed moeten gaan ("Me" is dan de instantie van de slide)

class Slide3:

code:

Option Explicit

Sub Groep1Plus()
    Scores.scoreGroep1 = Scores.scoreGroep1 + 1
    Me.txtGroep1.Text = Scores.scoreGroep1
End Sub

Omdat je de scores over de verschillende slides wilt kunnen benaderen kun je deze declareren in een eigen module:

module Scores:

code:

Option Explicit

Public scoreGroep1 As Integer

Bedankt Nescafe, dit helpt me al een eind verder! Hierdoor werken het op- en aftellen van de waarden en krijg ik de waarde van de variabele nu te zien op de slide waar ik dit doe. Het enige probleem dat nu nog resteert is dat als ik op slide 1 de waardes verander, op de overige slides gewoon 0 blijft staan en dus niet mee worden overgenomen.

[farlane]

Gotenks1990 schreef op woensdag 22 juni 2016 @ 09:11:
[...]

Bedankt Nescafe, dit helpt me al een eind verder! Hierdoor werken het op- en aftellen van de waarden en krijg ik de waarde van de variabele nu te zien op de slide waar ik dit doe. Het enige probleem dat nu nog resteert is dat als ik op slide 1 de waardes verander, op de overige slides gewoon 0 blijft staan en dus niet mee worden overgenomen.

Als de variabelen zelf wel hun waarde behouden, door ze static te maken in een module bijvoorbeeld, kan het zijn dat je bij het laden van de slide je velden moet updaten.

[nescafe]

Ik zie zo 1-2-3 geen Slide.Activate event waarin je de controls kunt bijwerken met de actuele waarden, maar je kunt natuurlijk wel controls in meerdere slides tegelijkertijd updaten.

Slide1 / Slide2 / Slide3:

code:

Option Explicit

Sub Groep1Plus()
    Call Scores.Groep1Plus()
End Sub

Scores:

code:

Option Explicit

Public scoreGroep1 As Integer

Public Sub Groep1Plus()
    scoreGroep1 = scoreGroep1 + 1
    Slide1.txtGroep1.Text = scoreGroep1
    Slide2.txtGroep1.Text = scoreGroep1
    Slide3.txtGroep1.Text = scoreGroep1
End Sub

[Gotenks1990]

nescafe schreef op woensdag 22 juni 2016 @ 15:55:
Ik zie zo 1-2-3 geen Slide.Activate event waarin je de controls kunt bijwerken met de actuele waarden, maar je kunt natuurlijk wel controls in meerdere slides tegelijkertijd updaten.

Slide1 / Slide2 / Slide3:

code:

Option Explicit

Sub Groep1Plus()
    Call Scores.Groep1Plus()
End Sub

Scores:

code:

Option Explicit

Public scoreGroep1 As Integer

Public Sub Groep1Plus()
    scoreGroep1 = scoreGroep1 + 1
    Slide1.txtGroep1.Text = scoreGroep1
    Slide2.txtGroep1.Text = scoreGroep1
    Slide3.txtGroep1.Text = scoreGroep1
End Sub

Geprobeerd, maar dan heb ik het probleem dat het niets meer doet...
Ik zal het documentje even uploaden, dan kun je er ook eens zelf in sleutelen, dat is misschien iets makkelijker Ik probeer er ook nog aan verder te klommelen.

EDIT: Bestandje is via deze link te downloaden tot 30 juni 2016: https://we.tl/8H3Nxp3h2X

[nescafe]

Tja duidelijker dan hiervoor kan ik het niet uitleggen..







Screencast in GIF-formaat (4MB!)

Wellicht dat de modulenaam iets afwijkt (in dit voorbeeld Module1, in mijn eerdere voorbeeld Scores)?

[Gotenks1990]

Klopt, ik zat in de war met het gebruik van de module. Ik dacht als je een functie maakte in de module, dat je niet meer de naam van de module (in dit geval Module1) moest gebruiken om de functie op te roepen... Mijn excuses hiervoor!

Ik heb je feedback gevolgd en geïntegreerd, en het werkt nu als een pareltje! Doordat ik nu weet hoe ik de velden kan updaten, heb ik op het begin van de presentatie ook een extra knop gemaakt "Start Quiz" die alle scores naar 0 reset. Kwestie van zeker te zijn dat iedereen begint met een propere lei.

Heel erg bedankt voor alle hulp!

[nescafe]

Geen probleem. Had ik iets duidelijker kunnen aangeven. Maar met een beetje screenshot dus wel gelukt

Wat ik je kan aanraden is om de volgende keer even te zoeken in de object browser (F2) in de VBA-editor. Als je er met intellisense niet direct uitkomt kun je daar altijd functies op naam zoeken.