How do I add a Progress Bar to my presentation?

I have an automatic tool that does this for PowerPoint 2003 -- never upgraded it thereafter:

http://www.indezine.com/addin/thermometer/

Geetesh Bajaj, Microsoft PowerPoint MVP
http://www.indezine.com
http://www.ppted.com

LinkedIn: http://www.linkedin.com/groupInvitation?gid=1023917
Facebook: http://www.facebook.com/group.php?gid=72485431783
Twitter: http://twitter.com/geetesh

I have an automatic tool that does this for PowerPoint 2003 -- never upgraded it thereafter: http://www.indezine.com/addin/thermometer/ Geetesh Bajaj, Microsoft PowerPoint MVP http://www.indezine.com http://www.ppted.com LinkedIn: http://www.linkedin.com/groupInvitation?gid=1023917 Facebook: http://www.facebook.com/group.php?gid=72485431783 Twitter: http://twitter.com/geetesh

Save Cancel

Below are the steps to add the progress bar to the 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
.Slides(X).Shapes("PB").Delete
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 selectAddProcessBar and select Execute to achieve this process.


For reference, click here: Adding a progress bar to powerpoint presentation

Below are the steps to add the progress bar to the PowerPoint presentation: Once you are done with your presentation, Go to <b>Tools > Macro > Visual Basic Editor</b>. In the opened window, select <b>Insert > Module</b> and copy the below text in the blank page: 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 - 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 <b>File > Close > Return to Microsoft PowerPoint</b>. In the displayed page of Microsoft Powerpoint, go to: <b>Tools > Macro > Macros</b>, then select<b>AddProcessBar</b> and select <b>Execute</b> to achieve this process. For reference, click here: <a href=http://en.kioskea.net/faq/937-adding-a-progress-bar-to-powerpoint-presentation><b>Adding a progress bar to powerpoint presentation</b></a>

Save Cancel

@PowerPoint Info: This is so cool and easy. Thank you for giving sharing this tip :)

@PowerPoint Info: This is so cool and easy. Thank you for giving sharing this tip :)

Save Cancel

Thank you everyone for trying this :)

Thank you everyone for trying this :)

Save Cancel

Let's make it simple:

Insert two rectangular shapes of same dimension. Fill one with some color(Color you want to use for progress bar) and the other one matching the background color of your PowerPoint. Make sure both have same outline color. Place filled shape on the one matching the background color so that it look like a single shape. Now, on slide 1 re-size the filled shape so that both shapes give an impression of single shape filled somewhat. Select both shapes with Ctrl key and paste on all slides at same co-ordinates on each slide. Increase the size of filled shape on subsequent slides and make it completely filled on last slide. Run the slide show ..... :)

See example of such progress bar here.

Let's make it simple: Insert two rectangular shapes of same dimension. Fill one with some color(Color you want to use for progress bar) and the other one matching the background color of your PowerPoint. Make sure both have same outline color. Place filled shape on the one matching the background color so that it look like a single shape. Now, on slide 1 re-size the filled shape so that both shapes give an impression of single shape filled somewhat. Select both shapes with Ctrl key and paste on all slides at same co-ordinates on each slide. Increase the size of filled shape on subsequent slides and make it completely filled on last slide. Run the slide show ..... :) See example of such progress bar <a href="http://powerpointinfo.blogspot.com/2010/04/progress-bar-powerpoint-slideshow.html">here</a>.

Save Cancel

Thanks Sukhpreetjee.
It works very well in PPT 2007 as well.
Can you suggest some routine macro VB commands for powerpoint 2007 ?
Dr shyamal padh

Thanks Sukhpreetjee. It works very well in PPT 2007 as well. Can you suggest some routine macro VB commands for powerpoint 2007 ? Dr shyamal padh

Save Cancel

I feel the vba is much easier. Although I dont know anything of VBA but managed to add the progress bar in a few minutes. Thanks

I feel the vba is much easier. Although I dont know anything of VBA but managed to add the progress bar in a few minutes. Thanks

Save Cancel

Thanks Sukhpreet, I tried it out in PowerPoint 2007 - Slightly different way to get to the macro, but works a treat :)

(In PowerPoint 2007, Click Developer & then Visual Basic in the Code group to get to the VBA editor)

Thanks Sukhpreet, I tried it out in PowerPoint 2007 - Slightly different way to get to the macro, but works a treat :) (In PowerPoint 2007, Click Developer & then Visual Basic in the Code group to get to the VBA editor)

Save Cancel

Thanks Sukhpreet! I did it easily.

Thanks Sukhpreet! I did it easily.

Save Cancel

Confirm this worked fine in PowerPoint 2010.

Confirm this worked fine in PowerPoint 2010.<div><br></div><div>You need to first save the PPTX as a Macro-Enabled Presentation (PPTM) and then click the Macros button on the View tab (of all places) to get started.<br><div><br></div><div>If you need to add more slides, do so, click Macros and run the macro again.</div><div><br></div><div>Thanks</div></div>

Save Cancel

You can try PowerPoint Add-In that works like this macro, see http://www.presentation-progressbar.com/.

<span style="font-family: Arial, Verdana; font-size: 10pt; font-style: normal; font-variant: normal; font-weight: normal; line-height: normal; ">You can try PowerPoint Add-In that works like this macro, see</span>&nbsp;<a href="http://www.presentation-progressbar.com/">http://www.presentation-progressbar.com/</a>.

Save Cancel