如何在powerpoint vba中创建进度条？

Question

如何使用PowerPoint VBA创建进度条？它应该作为幻灯片上的动画完成。

Answer 1

这是你在找什么？

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

Answer 2

这人会放杆顶部并防止其出现在第一张幻灯片（不像pptfaq脚本）：

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

1. 在电源点，转到工具>宏> Visual Basic编辑器。

2. 在Office 2010中，您可能需要激活“开发人员”选项卡才能进入编辑器 。 Mac版本将通过Developer 选项卡>编辑器带您到那里。

3. 进入编辑器后，进入插入>模块。

四。将以下代码粘贴到此新创建的模块中：

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 

五。关闭编辑器。最后，运行宏：工具>宏>宏和 select-Presentation_Progress_Marker。