Макрос в PowerPoint (Счетчик +-1)

Делюсь несложной презентацией с макросами (можно использовать для подсчета очков в играх).

Сам текст макроса:

Sub AddPlus1()
NumberCount.Caption = NumberCount.Caption + 1
End Sub

Sub Minus1()
NumberCount.Caption = NumberCount.Caption - 1
If NumberCount.Caption < 0 Then
NumberCount.Caption = 0
End If

Если нужна презентация на 2 команды: она доступна по платной подписке: https://vk.com/donut/eleonora.webdesign либо на boosty: https://boosty.to/eleonora.webdesign/posts/25a48ab0-0c6d-4b4c-b829-307df1da903