To view the progress of a Powerpoint presentation, a progress bar can be displayed at the bottom of the slide show.
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
sHeight = .PageSetup.SlideHeight - 12
n = 0
j = 0
For i = 1 To .Slides.Count
If .Slides(i).SlideShowTransition.Hidden Then j = j + 1
Next i:
For i = 2 To .Slides.Count
.Slides(i).Shapes("progressBar").Delete
If .Slides(i).SlideShowTransition.Hidden = msoFalse Then
Set slider = .Slides(i).Shapes.AddShape(msoShapeRectangle, 0, sHeight, (i - n) * .PageSetup.SlideWidth / (.Slides.Count - j), 12)
With slider
.Fill.ForeColor.RGB = ActivePresentation.SlideMaster.ColorScheme.Colors(ppFill).RGB
.Name = "progressBar"
End With
Else
n = n + 1
End If
Next i:
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 we can add the following function:
Sub RemoveProgressBar()
On Error Resume Next
With ActivePresentation
For i = 1 To .Slides.Count
.Slides(i).Shapes("progressBar").Delete
Next i:
End With
End Sub
Hi, this bar is great! I'm completely new to VBA, but it would be great if the bar could go all the way across the bottom of the page, and the progress was marked by part of the bar being one color, and the remaining part of the bar being another color (for example, the same color but a lighter shade). Would someone be able to point me in the direction of how to figure this out? Many thanks for sharing and for your advice.