如何在 PowerPoint 中创建和使用进度条

Microsoft PowerPoint是我们都喜欢使用的强大工具。就交付演示而言,没有其他程序可以如此完整。现在,我们中的一些人希望能够为演示文稿创建一个进度条。现在的问题是,这可能吗?

如何在PowerPoint中创建和使用(PowerPoint)进度条(Progress Bar)

这个问题的答案是肯定的。任何拥有正确信息的人都可以轻松创建进度条,你猜怎么着?我们将详细介绍如何完成它。

现在,可以通过在每张幻灯片下方安装相关形状来手动安装进度条。然而,这带来了额外的问题。您会看到,用户必须根据演示文稿中的幻灯片数量来测量每个形状的长度。

此外,每当删除幻灯片时,您将需要为所有其他幻灯片重新创建进度条。我们不会为做那样的事情而烦恼;因此,我们决定走宏观(Macro)路线。就是这样!

  1. 打开您喜欢的PowerPoint演示文稿
  2. 选择宏并注入名称
  3. 在Microsoft Visual Basic(Microsoft Visual Basic) for Applications ( VBA ) 窗口中粘贴代码
  4. 关闭并运行宏

让我们从更详细的角度来看这个问题。

1]打开(Open)您喜欢的PowerPoint演示文稿

好的,所以您必须在这里做的第一件事是打开您要使用的PowerPoint演示文稿。(PowerPoint)如果没有,您可以从头开始创建一个,然后逐步进行。

2]选择宏并注入名称

如何在 PowerPoint 中创建和使用进度条

打开演示文档后,您现在必须继续并单击View,然后确保选择右侧的Macros。单击按钮后,应立即出现一个小窗口。

然后,下一步是键入Macro Name。我们选择添加SlideBar,但您可以自由添加最适合的名称。完成后,点击创建按钮以完成此部分。

3]在Microsoft Visual Basic for Applications ( VBA ) 窗口中粘贴(Paste)代码

好的,所以在点击创建(Create)按钮后,将出现一个新窗口。这个窗口被称为Microsoft Visual Basic for Applications ( VBA ),它就是魔法发生的地方。

在编辑器中,您应该看到以下内容:

Sub ProgressBar()

End Sub

(Click)在代码的两行之间单击,并确保立即复制并粘贴以下内容:

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 - 12, _
X * .PageSetup.SlideWidth / .Slides.Count, 12)
s.Fill.ForeColor.RGB = RGB(127, 0, 0)
s.Name = "PB"
Next X:
End With

4]关闭并运行宏

完成上述任务后,您现在必须立即关闭VBA窗口。

完成后,单击PowerPoint中的(PowerPoint)View选项卡,然后选择Macros

选择Macro的名称,然后选择Run完成,就是这样。

现在阅读(Now read):如何在 Excel、PowerPoint 和 Word 中创建漏斗图。



About the author

我是一名软件工程师,在 Xbox 行业拥有超过 10 年的经验。我专注于游戏开发和安全测试。我也是一位经验丰富的评论员,并且一直在为一些游戏界的知名人士开发项目,包括 Ubisoft、Microsoft 和 Sony。在空闲时间,我喜欢玩电子游戏和看电视节目。



Related posts