Progress Bar for PowerPoint slides

gistfile1.txt

  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 - 5, _
              X * .PageSetup.SlideWidth / .Slides.Count, 5)
              s.Fill.ForeColor.RGB = RGB(127, 0, 0)
              s.Fill.BackColor.RGB = RGB(127, 0, 0)
              s.Line.ForeColor.RGB = RGB(127, 0, 0)
              s.Name = "PB"
              Next X:
        End With
   End Sub