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.