Adding a progress bar to powerpoint presentation

Once you are done with your presentation, Go to Tools > Macro > Visual Basic Editor. In the opened window, select Insert > Module and copy the below text in the blank page:

Sub AddProgressBar()
On Error Resume Next
With ActivePresentation
For X = 1 To .Slides.Count
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

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 select Execute to achieve this process.


Leave a Reply

Fill in your details below or click an icon to log in: Logo

You are commenting using your account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s