MS파워포인트에 진행바 삽입

How to proceed

Once the slideshow done, go to Tools > Macro > Visual Basic Editor.

In the opened window, select Insert > Module and copy the below text in the blank page:

       Sub AddProgressBar() 

          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 

End Sub 

Then go to File > Close > Return to Microsoft PowerPoint .

In the displayed page of Microsoft Powerpoint, go to: 


Tools > Macro >Macros, then select AddProcessBar and select Execute to achieve this process.




출저 - http://kwangmin.egloos.com/5337340