파워포인트에서 진행률바 자동으로 만들어 추가하는 매크로

파워포인트에서 진행률 바를 자동으로 만들어서 추가하는 매크로 입니다. 

슬라이드별로 현재 슬라이드가 전체 슬라이드 대비 어느정도쯤인지 자동으로 만들어서 생성을 해줍니다. 

꾀 유용한데 코드도 간단해서 쉽게 사용할수 있는거 같아요. 

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