create counters that can be used for keeping track of scores using VBA macros in Powerpoint. Macros will only work if you "enable" or "allow" them when opening a macroenabled presentation
++ Code ++
'Note: I just typed the code from the video, you'll need to make sure the indentation adheres to VBA's expectations
Dim score1
Dim score2
____________________________________________
Sub scoreUp() ' These are parentheses, if it's not obvious
score1 = score1 + 1
updateScore1
End Sub
______________________________________________
Sub scoreDown()
score1 = score1 1
updateScore1
End Sub
__________________________________________________
Sub updateScore1()
' This whole thing should be on one line
ActivePresentation.SlideShowWindow.View.Slide.Shapes("score1").TextFrame.TextRange.Text = score1
End Sub
______________________________________________________
Sub resetScore1()
score1 = 0
updateScore1
End Sub
__________________________________________________________
Sub countUp()
score2 = score2 + 1 ' Increments score by 1 every time it's clicked
ActivePresentation.SlideShowWindow.View.Slide.Shapes("score2").TextFrame.TextRange.Text = score2
End Sub
______________________________________________________________
Sub score2init()
score2 = 0
ActivePresentation.SlideShowWindow.View.Slide.Shapes("score2").TextFrame.TextRange.Text = score2
End Sub
____________________________________________________________________
Sub littleScoreSquare(button As Shape)
Dim score3
score3 = CInt(button.TextFrame.TextRange.Text)
score3 = score3 + 1
button.TextFrame.TextRange.Text = score3
End Sub