PowerPointProgressBar.vb

'https://www.howtogeek.com/709523/how-to-create-a-progress-bar-in-microsoft-powerpoint/
Sub ProgressBar()
    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 - 2, _
    X * .PageSetup.SlideWidth / .Slides.Count, 2)
    s.Fill.ForeColor.RGB = RGB(135, 206, 235)
    s.Line.Visible = False
    s.Name = "PB"
    Next X:
    End With
End Sub