PowerPoint slide PPT progress bar Creation

Since: http://www.newsmth.net/bbscon.php? Bid = 612 & id = 93742

And http://oicu.cc.blog.163.com/blog/static/1230394712010611039349/

Author: dukenuke

 

 

You can use VBA to add a progress bar at the bottom of the PPT to view the total length,
I caught the speaker's mind: "When can I finish talking ?"

Open the PPT, press Alt + F8 to create a macro, and take a macro name at will. You do not need to change the macro region,
Click "CREATE" to delete the content in the module and copy the code.
(You can insert a module after pressing Alt + F11)

The progress bar macro is written by the Shui Mu community.
Dukenuke

.

Sub progressbar () By dukenuke@newsmth.net 'Sun Jul 11 00:06:13 2010 Dim myslides as slides Dim pagebar as shaperange Dim pageshower as shape Dim pagewidth, pageheight, pagestep Set myslides = application. activepresentation. Slides Pagewidth = application. activepresentation. slidemaster. Width Pageheight = application. activepresentation. slidemaster. Height Pagestep = pagewidth/myslides. Count On Error resume next For I = 2 to myslides. Count Set pagebar = myslides. Item (I). shapes. Range (Array ()) Set pagebar = _ Myslides. Item (I). shapes. Range (Array ("rectanglepagenum ")) If isnull (pagebar) or pagebar. Count = 0 Then goto newbar Set pageshower = pagebar. Item (1) Goto nextpage Newbar: Set pageshower = myslides. Item (I). shapes. addshape (_ Msoshaperectangle, 0 ,_ Pageheight-3, I * pagestep, 3) Pageshower. Name = "rectanglepagenum" Nextpage: Pageshower. Fill. forecolor. RGB = RGB (179,162,199) Pageshower. Line. Visible = msofalse Pageshower. width = I * pagestep Pageshower. Top = pageheight-3 Pageshower. Left = 0 Pageshower. Height = 3 Next End sub

The color size can be changed. The current height is 3. At the bottom of the page, the color is lavender.

Save PowerPoint 2007/2010 as a presentation with macros, and add the Macro Button
Go to the quick access toolbar.

Run the macro (press Alt + F8 or use quick access to the toolbar) to run the macro once before you start the PPT presentation,
The progress bar is automatically added when the slides are played. Only the first page is not added and the progress bar is automatically added based on the current page.
Progress of refreshing the number of faces.

Note: You need to re-run the macro after increasing or decreasing the slides (changing the total number of pages.