PowerPoint Templates & Games

How to make number points counter scoreboard in powerpoint

You can keep score by downloading this number points counter scoreboard in PowerPoint. A free template is available at the end of the post too.

You can also make multiple points counter scoreboard in PowerPoint which you can embed in games such as Jeopardy Quiz.

Download Jeopardy ScoreBoard Template in PowerPoint

Multiple Scoreboard Scoring System in PowerPoint Quiz

How to make Number Counter in PowerPoint using VBA Macros

Play Video

We will be making a number counter in Microsoft PowerPoint which will be controlled by two buttons, one increases the value by 1 and the other decreases it by 1.

Creating the PowerPoint Points Counter

  1. Enable the Developer Tab in PowerPoint
  2. Insert an ActiveX Element “Label”
  3. Select the label, go to its properties and change the caption to 0.
  4. Write two macros, one which adds 1 to the label and the other which subtracts 1 from the label.
  5. Insert the suitable macros to the corresponding shape or button in your PowerPoint presentation. 
Sub PlusOne ()
counter.Caption = (counter.Caption) + 1
End Sub

Sub MinusOne ()
counter.Caption = (counter.Caption) - 1
End Sub

Sub ExitAndReset()
counter.Caption = 0
End Sub 

Scoreboard Counter across multiple slides in PowerPoint

We can easily add multiple scoreboard counters in all the selected slides of our PowerPoint Presentation and have the same values be present throughout our slide show mode.

If you increase a label in Slide 1, the same change will be seen in Slide 2 too!

We use the same basic concept of increase the caption of a label (ActiveX component) but we place it in a slide-master. This allows for the same label to be present in all the PPT slides and allows for easy integration!

Placing Counter Labels within SlideMaster

Just insert the Labels in a Slide Layout inside the Slide Master.
We need to have only one set of Labels.

Do not have different Labels for all your different slides. That will cause lots of confusion and if their names overlap, it will cause your Macros to fail.

PowerPoint Number Counter VBA Macro across all slides

Double click your ActiveX Label to access the Visual Basic Applications Window. You’ll be within the Slide-Master in which the Label is present.

Your code must also be within the same Slide-Master for the macros to run and change the caption of Labels which are also present within that slide-master.

How to make a Multiple Points Counter ScoreBoard in PowerPoint

Play Video

We will be making a simple multiple points counter scoreboard in PowerPoint. In this tutorial we will have three labels and three buttons for each.

These buttons will be for adding 2, adding 1 and subtracting 1.

Creating the PowerPoint Multiple Counter Scoreboard

Remember that you can customize the number of labels and VBA Macros based on your needs and requirements of your PowerPoint Presentation Game:

  1. Go to Insert > SmartArt and add a SmartArt which can be used for your PowerPoint Scoreboard.

    You can customize the design and the number of columns and rows. Remember to adjust the number of labels and shapes to be inserted accordingly.

  2. Add 3 labels: Label1, Label2, Label3 respectively from the Developer Tab (watch the video to learn how to enable Developer Tab in PowerPoint).

  3. Write 4 macros for each Label in your Visual Basic Application such that they:
    1. Increase caption by 1
    2. Increase caption by 2
    3. Decrease caption by 1
    4. Make the caption 0

  4. Insert the suitable Visual Basic macros to the corresponding shape or button in your PowerPoint presentation by selecting the shape; clicking on Insert > Action > Mouse Click > Run Macro:

    Each shape button runs the macro of +2 or +1 or -1 correspondingly when clicked on it. There is also a reset button which makes the caption of the Label equal to 0.

  5. Add two shapes with the necessary macros to reset all the three counters and to exit the PowerPoint Show.
Sub Label1Plus2()
Label1.Caption = (Label1.Caption) + 2
End Sub
Sub Label1Plus1()
Label1.Caption = (Label1.Caption) + 1
End Sub
Sub Label1Minus1()
Label1.Caption = (Label1.Caption) - 1
End Sub
Sub Label1Reset()
Label1.Caption = 0
End Sub

'similarly make for Label2, Label3'

Sub ExitPPT()
End Sub

Sub Reset()
Label1.Caption = 0
Label2.Caption = 0
Label3.Caption = 0
End Sub 

Remember to save your PowerPoint files as .PPTM so that the Macros will be functioning. .PPT format deletes all the VBA Macros.

Use Arrow Keys to control ScoreBoard Points Counter in PowerPoint

This is a module for Interactive PowerPoint Score Counter for Numbers which is created using Visual Basic Applications (VBA).

The following macros allows us to control the ActiveX Element: Label’s Caption to be controlled via keyboard‘s arrow keys: left and right; and also other keys such as tab and the number keys. 

The Number Counter is increase and decreased based on the VBA Code which is very self explanatory.

If you want to find out more key-constants of VBA, you can click here.

Private Sub CommandButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If (KeyCode = vbKeyRight) Then
Counter.Caption = (Counter.Caption) + 1
End If

If (KeyCode = vbKeyLeft) Then
Counter.Caption = (Counter.Caption) - 1
End If

If (KeyCode = vbKeyTab) Then
Counter.Caption = (Counter.Caption) + 50
End If

If (KeyCode = vbKey4) Then
Counter.Caption = (Counter.Caption) + 4
End If

End Sub  

MacOS: PowerPoint Points Scoreboard

Office for Mac doesn’t support ActiveX Element such as Labels. However, we used ActiveX Labels to make the Points Counter in Windows. So, how can we possible create a Scoreboard in PowerPoint for Mac? We are going to use good-old shapes and integers.

  1. Insert a shape named “counter” in Slide 1.
  2. Type “0” within the shape.
  3. We shall be using the following VBA code to increase the counter by 1.
  4. Add another shape and run the macro AddOne when it is clicked (Select the Shape > Insert > Action > Mouse Click > Run Macro > AddOne)
Sub AddOne()
Dim counter as TextRange
Set counter = ActivePresentation.Slides(1).Shapes("counter").TextFrame.TextRange
counter = Int(counter) + 1
End Sub