Ask a question »

Insert a progress bar to Powerpoint presentation

April 2015

To make Powerpoint presentations more appealing, components like progress bars can be used. A progress bar can show the status of the slides in relation to the total number of slides in a progress bar. To insert a progress bar into a Powerpoint presentation, macros can be used. The VBE or visual basic editor can be used to write the code for the progress bar to be inserted in the office software Powerpoint presentation. The color, height and width of the progress bar can be controlled with the macro.The macro has to be executed to insert the progress bar into a Powerpoint presentation.

Insert a progress bar to your Powerpoint presentation




Intro


To view the progress of a Powerpoint presentation, a progress bar can be displayed at the bottom of the slide show.

How to proceed


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        
              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 select AddProcessBar and press Execute

Example


Here's how it should look:

How remove the progress bar?


To remove the progress bar make the following changes to the module:
  • Replace:
  • Set s = .Slides(X).Shapes.AddShape(msoShapeRectangle, _ 0, .PageSetup.SlideHeight - 12, _ X * .PageSetup.SlideWidth / .Slides.Count, 12) 
  • With:
    • Set s = .Slides(X).Shapes.AddShape(msoShapeRectangle, 0, 0, 0, 0) 

Run the macro and the progress bar should be removed.
For unlimited offline reading, you can download this article for free in PDF format:
Insert-a-progress-bar-to-powerpoint-presentation.pdf

See also

In the same category

Insertar una barra de progreso en PowerPoint
By Carlos-vialfa on November 23, 2008
Insérer une barre de progression sous PowerPoint
By dogfriend on November 1, 2007
Original article published by dogfriend. Translated by aakai1056. - Latest update by jak58
This document entitled « Insert a progress bar to Powerpoint presentation » from Kioskea (en.kioskea.net) is made available under the Creative Commons license. You can copy, modify copies of this page, under the conditions stipulated by the license, as this note appears clearly.