파워포인트 PPT 프리젠테이션 진행율 슬라이드 바 표시

파워포인트 PPT 프리젠테이션 진행율 슬라이드 바 표시


파워포인트 문서 작업 후 발표할 때 프리젠테이션 모드로 진행 후 발표합니다.
보통 발표 시 시간이 정해져 있어서 시계를 표시하거나 아니면 직접 시간을 보면서 진행합니다.
하지만 페이지 수가 많은 경우 얼마 정도 남아 있는지 바로 파악하는 것은 쉽지 않은데요
보통 페이지 하단에 페이지 번호/총 페이지 수를 표시해서 진행 상태를 확인하기도 합니다

프리젠테이션 시 참석자들에게 얼마나 진행되고 얼마나 남았는지 시각적으로 확인하기 위해 슬라이드 진행 바 표시하는 방법을 알려드리고자 합니다.




상단 메뉴 중 [보기]-[매크로] 버튼을 클릭합니다.




매크로 창이 열리면 매크로 이름에 "pro-bar"를 입력 후 [만들기] 버튼을 클릭합니다.




Microsoft Visual Basic for Applications, 이 실행되는데요.
편집 부분에 Sub pro_bar(), End Sub()가 있습니다.


 


이 사이에 아래 코드를 복사해서 붙여넣기 합니다. 복사가 잘안되시면 아래 첨부 파일을 다운로드하세요

vb복사파일.txt
0.00MB


On Error Resume Next
With ActivePresentation
For X = 1 To .Slides.Count
.Slides(X).Shapes("pro_bar").Delete
Set s = .Slides(X).Shapes.AddShape(msoShapeRectangle, _
0, .PageSetup.SlideHeight - 8, _
X * .PageSetup.SlideWidth / .Slides.Count, 8)
s.Fill.ForeColor.RGB = RGB(183, 200, 0)
s.Name = "pro_bar"
Next X:
End With




다시 파워포인트 매크로 창에서 생성한 매크로 이름을 클릭 후 우측 [실행] 버튼을 클릭합니다.




파워포인트 편집 용지 하단에 노란색 바가 생겼습니다.




프리젠테이션 모드로 실행하면 하단에 진행상태 바가 나오는 것을 확인할 수 있습니다.
페이지가 증가하면 바도 함께 증가합니다.



바 색상을 변경하시려면  RGB 색상을 변경하시면 됩니다.

s.Fill.ForeColor.RGB = RGB(183, 200, 0)