간단한 PPT 점수판

간단한 ppt 점수판입니다.

This is a simple score board in PPT.

 

 

현재 팀은 2팀, 4팀, 6팀까지 지원합니다.

 

 

2팀 화면입니다.

 

숫자 위에 파란버튼은 숫자를 올리고

빨간 버튼은 숫자를 내립니다.

ppt 기본 소리와 함께 숫자를 올리고 내립니다.

넓은 배경을 눌러도 숫자가 올라갑니다. 소리는 다른 소리로 했습니다.

초기화는 reset 버튼을 누르면 됩니다.

 

 

 

4팀화면입니다.

 

처음에 이 화면을 기준으로 만들었습니다.

 

 

 

최대 6팀까지 점수를 지원합니다.

 

8팀이나 그 이상도 만들기는 어렵지 않습니다.

 

 

매크로는 최소화해서 아래처럼 간단한 편입니다.

 
Sub ScoreUp(shp As Shape)
    Dim i As Integer
    
    i = Int(Left(shp.Name, 1))
    With shp.Parent.Shapes(i & "SCORE").TextFrame.TextRange
         .Text = .Text + 1
    End With
 
End Sub
 
Sub ScoreDown(shp As Shape)
    Dim i As Integer
    
    i = Int(Left(shp.Name, 1))
    With shp.Parent.Shapes(i & "SCORE").TextFrame.TextRange
         If .Text > 0 Then .Text = .Text - 1
    End With
 
End Sub
 
Sub ScoreReset(oShp As Shape)
    Dim shp As Shape
    For Each shp In oShp.Parent.Shapes
        If shp.Name Like "*SCORE" Then
            shp.TextFrame.TextRange.Text = "0"
        End If
    Next shp
End Sub
 

 

점수 올리고 내리고 초기화 시키는 간단한 매크로입니다.

 

 

팀별로 게임할 때 필요할 듯 싶어 올려봅니다.

 

 

SCORE4.pptm

다운로드

 

 

[2019.11.18]  4슬라이드에 팀을 12팀으로 늘린 버전을 추가합니다.

 

 

SCORE6.pptm

다운로드

 

[2021.09.13] 5팀 화면을 추가합니다.

5팀 화면입니다.

마이너스 점수도 가능합니다.

'If .Text > 0 Then .Text = .Text - 1   '0이상
.Text = .Text - 1                      '0이하 가능

 

SCORE245612.pptm

0.57MB

 

 

 

한가지 더 추가합니다.

 

http://flaticon.com 의 아이콘을 이용한 2팀용 점수판입니다.

윗쪽영역은 점수더하기이고 아랫쪽 영역은 점수 빼기입니다.

상단 점수판을 누르면 점수 초기화됩니다.

 

SCORE2.pptm

다운로드

 

혹시 소리를 바꾸고 싶으시면 아래처럼 도형을 선택하고 삽입-실행에서

소리재생에서 다른 소리 혹은 사용자의 wav파일을 선택해서 수정할 수 있습니다.

 

도움이 되기 바랍니다.