One of the things that annoys me the most when watching someone’s presentation is that there is no way to tell how many slides are left.
Fear not I found a way to add progress bar to power point.
1.In Power Point, go to Tools > Macro > Visual Basic Editor.
2.In Office 2010 you might need to activate the Developer tab in order to get to the editor.
3.The Mac version will take you there through Developer tab > Editor.
4.Once you are in the editor, go Insert > Module.
5.Paste the following code in this newly created module:
Sub Presentation_Progress_Marker()
On Error Resume Next
With ActivePresentation
For N = 2 To .Slides.Count
.Slides(N).Shapes(“Progress_Marker”).Delete
Set s = .Slides(N).Shapes.AddShape(msoShapeRectangle, 0, 0, N * .PageSetup.SlideWidth / .Slides.Count, 10)
Call s.Fill.Solid
s.Fill.ForeColor.RGB = RGB(23, 55, 94)
s.Line.Visible = False
s.Name = “Progress_Marker”
Next N:
End With
End Sub
6.Close the editor.
7.Finally, run the macro: Tools>Macro>Macros and select—Presentation_Progress_Marker.
Once the macro runs, you will see a nice blue line going through the top of your deck starting on the second slide. Obviously, you can control the color, position and pretty much any attribute of the progress bar within the code, it’s all there.
Make sure this is the last thing you do since it examine number of slide you have and then create progress bar.
Now go impress your colleagues with this new awesome feature of your decks!
Fear not I found a way to add progress bar to power point.
1.In Power Point, go to Tools > Macro > Visual Basic Editor.
2.In Office 2010 you might need to activate the Developer tab in order to get to the editor.
3.The Mac version will take you there through Developer tab > Editor.
4.Once you are in the editor, go Insert > Module.
5.Paste the following code in this newly created module:
Sub Presentation_Progress_Marker()
On Error Resume Next
With ActivePresentation
For N = 2 To .Slides.Count
.Slides(N).Shapes(“Progress_Marker”).Delete
Set s = .Slides(N).Shapes.AddShape(msoShapeRectangle, 0, 0, N * .PageSetup.SlideWidth / .Slides.Count, 10)
Call s.Fill.Solid
s.Fill.ForeColor.RGB = RGB(23, 55, 94)
s.Line.Visible = False
s.Name = “Progress_Marker”
Next N:
End With
End Sub
6.Close the editor.
7.Finally, run the macro: Tools>Macro>Macros and select—Presentation_Progress_Marker.
Once the macro runs, you will see a nice blue line going through the top of your deck starting on the second slide. Obviously, you can control the color, position and pretty much any attribute of the progress bar within the code, it’s all there.
Make sure this is the last thing you do since it examine number of slide you have and then create progress bar.
Now go impress your colleagues with this new awesome feature of your decks!