Added visual components, such as a progress bar, can make your PowerPoint presentations much more appealing to viewers. A progress bar will show the status of the current slide in relation to the total number of slides in a presentation. Inserting a progress bar must be done via macro. Using a VBE, or visual basic editor, you may write specific code to insert the bar into your PowerPoint and configure your desired color, height, and width of the bar. This article will explain how.
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
Set s = .Slides(X).Shapes.AddShape(msoShapeRectangle, _ 0, .PageSetup.SlideHeight - 12, _ X * .PageSetup.SlideWidth / .Slides.Count, 12)
Set s = .Slides(X).Shapes.AddShape(msoShapeRectangle, 0, 0, 0, 0)