PowerPoint: Create progress bar for presentation
To keep an overview of your PowerPoint presentation, you can create a progress bar for PowerPoint. It shows you and your audience how far you are with your presentation. This practical tip shows you how to do this.
Insert progress indicator in PowerPoint - you have to do that
Below we show you how to create a progress bar for your PowerPoint presentation:
- First open the "Options" in PowerPoint.
- Click on "Customize Ribbon" and check "Developer Tools". Save this process with "OK".
- Now you have to go to the "Developer Tools" tab. Once there, click on "Visual Basic".
- To insert a text here, click on "Insert" and finally on "Module".
- Paste the following code (source: Incas Blog) there:
- Option Explicit Public sld As Slide Public shp As Shape Sub EinfProbar () Dim AnzSeiten As Long AnSSeiten = ActivePresentation.Slides.Count For Each sld In ActivePresentation.Slides' AddShape Parameters (Form (1 = rectangle), distance from left, distance from above, Width, height) Set shp = sld.Shapes.AddShape (1, 36, 500, 648 / AnzSeiten * sld.SlideNumber, 10) 'Name assignment for the Progressbar; is needed to be able to delete the bar later. shp.Name = "ProBar" & sld.SlideNumber shp.Fill.ForeColor.RGB = RGB (0, 52, 104) shp.Fill.BackColor.RGB = RGB (0, 52, 104) Next End Sub Sub DelProbar () For Each sld In ActivePresentation.Slides For Each shp In sld.Shapes If shp.Name Like "ProBar *" Thenshp.Delete End If Next Next End Sub
- You can then exit the tool and click on "Macros" under "Development Tools".
- To insert the progress bar, mark the entry "EinfProbar" and confirm with "Execute".
- Note: The bar is not updated automatically. If you update your presentation, you have to remove the bar with "Macros"> "DelProbar" and insert it again as described in step 7.
This practical tip is based on Office 2010 under Windows 7. In the next practical tip, we will show you how you can track changes in PowerPoint.