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.