PPT进度条

misaraty 收录于学术

2023-12-03 约 346 字预计阅读 1 分钟

前言

如何制作学术或授课PPT中的进度条呢？

1 启动VBA

打开PPT，按下Alt + F8，创建一个宏。

2 加入进度条代码

2.1 进度条在页面顶部

如图所示，

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14


Sub ProgressBar()
On Error Resume Next
    With ActivePresentation
        For X = 1 To .Slides.Count '首页尾页都加
        .Slides(X).Shapes("PB").Delete
        Set s = .Slides(X).Shapes.AddShape(msoShapeRectangle, _
        0, 0, _
        X * .PageSetup.SlideWidth / .Slides.Count, 10) '条高度
        s.Fill.ForeColor.RGB = RGB(251, 128, 114) '条颜色
        s.Line.Visible = 0
        s.Name = "PB"
        Next X:
    End With
End Sub

2.2 进度条在页面底部

如图所示，

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14


Sub ProgressBar()
On Error Resume Next
    With ActivePresentation
        For X = 1 To .Slides.Count '首页尾页都加
        .Slides(X).Shapes("PB").Delete
        Set s = .Slides(X).Shapes.AddShape(msoShapeRectangle, _
        0, .PageSetup.SlideHeight - 10, _
        X * .PageSetup.SlideWidth / .Slides.Count, 10) '条高度
        s.Fill.ForeColor.RGB = RGB(251, 128, 114) '条颜色
        s.Line.Visible = 0
        s.Name = "PB"
        Next X:
    End With
End Sub

3 保存

保存为pptm格式。

注意

若非pptm格式，后续修改宏代码不会保存。

目录

PPT进度条

1 启动VBA

2 加入进度条代码

2.1 进度条在页面顶部

2.2 进度条在页面底部

3 保存