Thank you for this tutorial! At first I could not get it to work, but then I saw that I had to first view macros, create a macro file and then insert my code there. I am so happy to finally be able to easily create counters! Thank you
Sorry for the late response, but I'm so glad to hear this! Not too many people ever make it to this part of PowerPoint. If you're planning on making more projects in PowerPoint, check out www.pptalchemy.co.uk/
This was very helpful and I appreciate you building the code while I watched and followed along on my presentation. I got it to work on one slide, but need it to work on additional slides, adding scores from one slide to the next. I watched another video from Bhivash Shava that showed how to do this but it was way to quick for me to follow (despite stopping and starting several times).
Hello dear I appreciate your video, Great job . for this one I have a question . Is it possible to assign keyboard buttons to the system so we don t need to click but only push the buttons?
Hi, at 5:25 you mentioned .slide is for updating only the current slide, how do I code it if I want it to update all slides that have the scoreboard at once? Meaning that not only on the current slide.
what about jeopardy? how would i add $200, $400, $600, $800, $1,000 (first round), $400, $800, $1,200, $1,600, $2,000 (double jeopardy round), or wagers (final jeopardy round or daily doubles)?
Easy, im sorry i couldnt help you sooner but i am new to this as well. i know for a fact that math remains the same throughout code and all you have to do is increase by 200. You could also go about making a list of numbers which are displayed when you call upon them. yet again i dont know VB that well and im only a high school student that is just learning it for one assignment. In python i could provide some code for you but im sorry i cant really help you out that mch here just providing suggestions.
Thanks for the tutorial. Although I am able to get this to work on the initial slide, for the life of me, I can't get this to work across multiple slides. I've tried two things: 1) When I just copy the working slide, they each contain their own counter, not an updating one. 2) When I create shapes and attach the macros in Master Slide view, the shapes are visible and clickable in presentation mode, but the score never shows up.
Sorry for the late reply. I'm a teacher, so...I'm busy doing teacher stuff most of the time. I'm not sure I exactly understand your situation, but I created a version of the first counter- the one with the up and down arrows. I tested it- it worked. Then, I duplicated it. Then I had two slides with counters. But when I played with the counter on the first page, and then went down and played with the counter on the second page, the counters remembered the score from the other slide and just "continued" going up or down from that number they remembered. So if I left the counter on slide 1 at 20, and then went to slide 2 and pressed the down arrow, it jumped from 0 to 19. Is that the issue you're having? If so, that's because we declared our score1 variable (Dim score1) at the top of the page. The tells the computer that you want all the slides in the presentation to use the same "score1" variable. I can't think of a real easy fix for this, but maybe I can work on it. The simplest but longest way would be to give each shape a unique name in the "selection pane". So, if you have a rectangle and two triangles on each of three slides, name the rectangle on slide 1 "scoreboard1", the rectangle on slide 2 "scoreboard2", and so on. Then, in your VBA code, create as many variables as you need. "score1", "score2", "score3"......etc. Then write new functions "scoreUp1", "ScoreUp2", etc. This way each slide has it's own code. The better way would be to write two functions (upArrow and downArrow) that use the "index number" of the slide. You could reuse that function for all your up arrows, and all your down arrows, and instead of "score1 = score1 +1", you could write something like "scoresArray(slideIndex) = scoresArray(slideIndex) + 1", and then you'd update the text on your scoreboard with a function that says Shapes("scoreboard" & slideIndex).TextFrame.TextRange.Text = scoresArray(slideIndex)" If you figured it out, please post your solution :-)
Hey Aaron, this is awesome. One thing I noticed when I created the "littlescoresquare" Dim and Sub is that when I exited out of slideshow mode, the last score number I had displayed stayed in as the text of the box. So, when I would go back into slideshow mode, the incrementing would begin at the last final score. Is there a quick code for "reset" or "start over"??
Yeah, @Bhavesh Shaha is right- the code is score1 = 0 As for implementation, it depends on what you want to do. WHEN do you want to reset the counters? When you start the presentation? When you end the presentation? The way you described it makes me think that when you end the presentation and you go back to editing mode, you'd like to see zeros. So I'd suggest creating a button in your presentation somewhere at the end, and clicking the button runs a macro. The code for the macro could be Sub closePresentationAndResetCounters() counter1 = 0 counter2 = 0 counter3 = 0 ActivePresentation.SlideShowWindow.View.Exit End Sub You would end your presentation by clicking this button instead of pressing Escape or whatever. If you wanted to do this at the beginning of a presentation, you could make a big invisible button that covers your entire first slide, and give it a macro that sets all counters to zero AND has a trigger animation that makes the invisible shape disappear when clicked.
Have you ever written an If / then statement? I have generated a text field for Fouls I want Textbox to display that says BONUS once greater than 7, is that possible?
Hello again, I have been using your code and it is working well. My Scores were accumulating slide by slide but now they have stopped after I took away a bunch of "unnecessary" code in other modules. Do I need to have the code in different modules? Or each set of code in a separate module? I am brand new to this!
i'm trying to make a win and loss score board for a vs clash of clans game to 30 wins or losses, not any of the scoreboards are working nor the increasers
Make sure you save it as .pptm, and make sure macros are enabled. Macros are powerful, and powerpoint will try to scare you and encourage you to turn them off. Leave them on or your code won't work
@@PPTVBA Even though I can get this to work in the initial slide, when I try this in slide master, it doesn't seem to work. Is the coding for the macros different if done in slide master?
@@edmondhally4520 If you'd want the scoreboard to work on all your slides, do check out this video that explains it in greater detail: ruclips.net/video/K05wWVbqzVI/видео.html
I'm not sure I understand the question. If you're doing 20 scoreboards, look at the littleScoreSquare example at the end of the video (you did watch the whole video, right?). Are you trying to give everybody a point at the same time? Like click a button and make all 20 scores go up by one?
No 20 different scoreboards, but one scoreboard with 20 different contestants like this: ruclips.net/video/4EwNjGMQsQA/видео.html ruclips.net/video/HrJjBBP7Gbc/видео.html
All of these scoreboards go up to 150 in my project. They probably go up to 1,000,000,000,000. If yours isn't, maybe your shape is too small or your font is too big, and part of the number is getting cut off? (Just a guess)
![Points Counter in PowerPoint VBA using Arrow Keys [PPT VBA Tutorial]](/img/1.gif)
Thank you for this tutorial! At first I could not get it to work, but then I saw that I had to first view macros, create a macro file and then insert my code there. I am so happy to finally be able to easily create counters! Thank you
Love this tutorial! Never wrote code in my life, but you helped me make it work. Thank you!
Sorry for the late response, but I'm so glad to hear this! Not too many people ever make it to this part of PowerPoint. If you're planning on making more projects in PowerPoint, check out www.pptalchemy.co.uk/
This was very helpful and I appreciate you building the code while I watched and followed along on my presentation. I got it to work on one slide, but need it to work on additional slides, adding scores from one slide to the next. I watched another video from Bhivash Shava that showed how to do this but it was way to quick for me to follow (despite stopping and starting several times).
Hello dear I appreciate your video, Great job . for this one I have a question . Is it possible to assign keyboard buttons to the system so we don t need to click but only push the buttons?
This was SO helpful and I made a great scoreboard in PowerPoint with this. Any chance you show how to do the equivalent in Google Slides?
Hey there. Love this for counters. Is there a way for the counter to go slide to slide and keep adding the score?
Hi, at 5:25 you mentioned .slide is for updating only the current slide, how do I code it if I want it to update all slides that have the scoreboard at once? Meaning that not only on the current slide.
what about jeopardy? how would i add $200, $400, $600, $800, $1,000 (first round), $400, $800, $1,200, $1,600, $2,000 (double jeopardy round), or wagers (final jeopardy round or daily doubles)?
Can you just put shapes along the bottom with "100", "200", "300", "-100", "-200", "-300", etc?
Easy, im sorry i couldnt help you sooner but i am new to this as well. i know for a fact that math remains the same throughout code and all you have to do is increase by 200. You could also go about making a list of numbers which are displayed when you call upon them. yet again i dont know VB that well and im only a high school student that is just learning it for one assignment. In python i could provide some code for you but im sorry i cant really help you out that mch here just providing suggestions.
This video might help you out: ruclips.net/video/oyPcdBVFxaw/видео.html
Thanks for the tutorial. Although I am able to get this to work on the initial slide, for the life of me, I can't get this to work across multiple slides. I've tried two things: 1) When I just copy the working slide, they each contain their own counter, not an updating one. 2) When I create shapes and attach the macros in Master Slide view, the shapes are visible and clickable in presentation mode, but the score never shows up.
Sorry for the late reply. I'm a teacher, so...I'm busy doing teacher stuff most of the time. I'm not sure I exactly understand your situation, but I created a version of the first counter- the one with the up and down arrows. I tested it- it worked. Then, I duplicated it. Then I had two slides with counters. But when I played with the counter on the first page, and then went down and played with the counter on the second page, the counters remembered the score from the other slide and just "continued" going up or down from that number they remembered. So if I left the counter on slide 1 at 20, and then went to slide 2 and pressed the down arrow, it jumped from 0 to 19. Is that the issue you're having? If so, that's because we declared our score1 variable (Dim score1) at the top of the page. The tells the computer that you want all the slides in the presentation to use the same "score1" variable. I can't think of a real easy fix for this, but maybe I can work on it. The simplest but longest way would be to give each shape a unique name in the "selection pane". So, if you have a rectangle and two triangles on each of three slides, name the rectangle on slide 1 "scoreboard1", the rectangle on slide 2 "scoreboard2", and so on. Then, in your VBA code, create as many variables as you need. "score1", "score2", "score3"......etc. Then write new functions "scoreUp1", "ScoreUp2", etc. This way each slide has it's own code. The better way would be to write two functions (upArrow and downArrow) that use the "index number" of the slide. You could reuse that function for all your up arrows, and all your down arrows, and instead of "score1 = score1 +1", you could write something like "scoresArray(slideIndex) = scoresArray(slideIndex) + 1", and then you'd update the text on your scoreboard with a function that says Shapes("scoreboard" & slideIndex).TextFrame.TextRange.Text = scoresArray(slideIndex)" If you figured it out, please post your solution :-)
Hey Aaron, this is awesome. One thing I noticed when I created the "littlescoresquare" Dim and Sub is that when I exited out of slideshow mode, the last score number I had displayed stayed in as the text of the box. So, when I would go back into slideshow mode, the incrementing would begin at the last final score. Is there a quick code for "reset" or "start over"??
Yes, you can just make score1 = 0 in your sub routine.
Yeah, @Bhavesh Shaha is right- the code is score1 = 0 As for implementation, it depends on what you want to do. WHEN do you want to reset the counters? When you start the presentation? When you end the presentation? The way you described it makes me think that when you end the presentation and you go back to editing mode, you'd like to see zeros. So I'd suggest creating a button in your presentation somewhere at the end, and clicking the button runs a macro. The code for the macro could be
Sub closePresentationAndResetCounters()
counter1 = 0
counter2 = 0
counter3 = 0
ActivePresentation.SlideShowWindow.View.Exit
End Sub
You would end your presentation by clicking this button instead of pressing Escape or whatever. If you wanted to do this at the beginning of a presentation, you could make a big invisible button that covers your entire first slide, and give it a macro that sets all counters to zero AND has a trigger animation that makes the invisible shape disappear when clicked.
Thank you man you just save my day.
I must comment again on how easily these codes are working for me! Thank you again. I am new to coding so I appreciate codes that are this easy!
Thanks Sheri! I'm so glad you were able to create something with this information. Feels good, doesn't it? :-)
Have you ever written an If / then statement? I have generated a text field for Fouls I want Textbox to display that says BONUS once greater than 7, is that possible?
Hey! Glad to see another PowerPoint tutorial on this!
Hello again, I have been using your code and it is working well. My Scores were accumulating slide by slide but now they have stopped after I took away a bunch of "unnecessary" code in other modules. Do I need to have the code in different modules? Or each set of code in a separate module? I am brand new to this!
One module should be all you need, as far as I know. What exactly are you trying to do?
@Aaron Carter can you create a number format that, say, puts a comma in for scores 1,000 +
Great help. Thank you
thank you so much for this tutorial... helped me on our event ticker.
found the video very helpful but when I tried to follow it in PowerPoint had trouble seeing what you was typing
i'm trying to make a win and loss score board for a vs clash of clans game to 30 wins or losses, not any of the scoreboards are working nor the increasers
Make sure you save it as .pptm, and make sure macros are enabled. Macros are powerful, and powerpoint will try to scare you and encourage you to turn them off. Leave them on or your code won't work
i did that. and it still didn't work
When I open Developret tub, there's no visual basic - why?
how to add this counter on every slide and enable to update it on every slide
This can be done by making your labels in a slide master!
@@PPTVBA Even though I can get this to work in the initial slide, when I try this in slide master, it doesn't seem to work. Is the coding for the macros different if done in slide master?
@@edmondhally4520 If you'd want the scoreboard to work on all your slides, do check out this video that explains it in greater detail: ruclips.net/video/K05wWVbqzVI/видео.html
@@PPTVBA I did go back and watch a few of your videos! That was the exact help I needed. Thank you so much, my Power Point looks amazing now.
@@edmondhally4520 Glad that I could help you out! Have fun!
can this script be used in excel?
This is helpfull but what if:
you have 20 differet contestants and you have to give them from one to ten points?
I'm not sure I understand the question. If you're doing 20 scoreboards, look at the littleScoreSquare example at the end of the video (you did watch the whole video, right?). Are you trying to give everybody a point at the same time? Like click a button and make all 20 scores go up by one?
No 20 different scoreboards, but one scoreboard with 20 different contestants like this:
ruclips.net/video/4EwNjGMQsQA/видео.html
ruclips.net/video/HrJjBBP7Gbc/видео.html
Would be interesting to see a tutorial to make this kind of scoreboard.
Thanks for the inquiries, everyone. If you want to make a "Eurovision" scoreboard, just use a bunch of littleScoreSquares :-)
OK Let me be clear... If some country "give" for example 10 pts. someone need to click 10 times on little score squares?
Hello I am doing a system that require number counting from 1 - 150. Can you help me the script to make power point VB do this.
like on you score board, can the number go pass 99, how can you make it go up to 150
All of these scoreboards go up to 150 in my project. They probably go up to 1,000,000,000,000. If yours isn't, maybe your shape is too small or your font is too big, and part of the number is getting cut off? (Just a guess)
Aaron Carter the number go indefinitely. It just gets blocked by the text being too big or the label being small.
Cant see the codes
I'm sorry to hear this- I didn't realize how hard it was to see the code. I have put the code in the description.
@@aaroncarter9263 thank you... pls keep posting videos like this..
through powerpoint code
It will work in excel