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
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
Example
Here's how it should look:
How remove the progress bar?
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.
See also
Knowledge communities.
Original article published by
dogfriend. Translated by
aakai1056. -
Latest update by jak58 
