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
Haha if only I saw your comment sooner, seems to be able to generate what I wanted!
![image](https://user-images.githubusercontent.com/3514136/152656661-fa2a70da-83ad-4c4a-820d-e6eb444d822b.png)
I created this one by forking this:
To be found here:
https://gist.github.com/OkkeHendriks/c8d8a5fe71201cc59cbf190e4b8e4f78#file-ppt-progress-bar-circles-vbs