Insert a progress bar to Powerpoint presentation

[Duy Dinh]

To make Powerpoint presentations more appealing, components like progress bars can be used. A progress bar can show the status of the slides in relation to the total number of slides in a progress bar. To insert a progress bar into a Powerpoint presentation, macros can be used. The VBE or visual basic editor can be used to write the code for the progress bar to be inserted in the office software Powerpoint presentation. The color, height and width of the progress bar can be controlled with the macro.The macro has to be executed to insert the progress bar into a Powerpoint presentation.
Insert a progress bar to your Powerpoint presentation

Intro
How to proceed
Example
How remove the progress bar?
See also: Powerpoint progress bar

Intro
To view the progress of a Powerpoint presentation, a progress bar can be displayed at the bottom of the slide show.
How to proceed
Once the slideshow is complete, go to Tools > Macro > Visual Basic Editor.

In the new window, select Insert > Module and copy this 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 press Execute

To remove the progress bar make the following changes to the module:

Replace:

Set s = .Slides(X).Shapes.AddShape(msoShapeRectangle, _ 0, .PageSetup.SlideHeight - 12, _ X * .PageSetup.SlideWidth / .Slides.Count, 12)

With:

    Set s = .Slides(X).Shapes.AddShape(msoShapeRectangle, 0, 0, 0, 0)

Run the macro and the progress bar should be removed

http://en.kioskea.net/faq/937-insert-a-progress-bar-to-powerpoint-presentation