IT 노하우 뉴스 정보 공유 커뮤니티

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

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

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

On Error Resume NextWith ActivePresentationFor X = 1 To .Slides.Count.Slides(X).Shapes("PB").DeleteSet 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