Adding a progress bar to powerpoint presentation
To view the progress of a power point presentation, a progress bar can be displayed at the bottom of the slide show.
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.