How to make a progress bar in powerpoint vba?

Question

How can I create a progress bar using PowerPoint VBA? This should be done as an animation on a slide.

Answer 1

Is this what you are looking for?

http://www.pptfaq.com/FAQ00597.htm

Answer 2

This tablet will be placed on top and will not appear on the first slide (unlike the pptfaq script):

http://www.faronics.com/news/blog/how-to-add-a-progress-bar-to-powerpoint/

• In Power Point, go to Tools> Macro> Visual Basic Editor.

• In Office 2010, you may need to activate the Developer tab to get to the editor. The Mac version will take you through the developer tab> Editor.

• Once you're in the editor, go to Insert> Module.

Four. Paste the following code into 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 

Five. Close the editor. Finally, run the macro: Tools> Macros> Macros and select-Presentation_Progress_Marker.