怎样在 Microsoft PowerPoint 中创建进度条

进度条是一种图形,在 PowerPoint 中,它直观地表示已完成幻灯片的百分比。 这也是剩余金额的一个很好的指标。 以下是在 Microsoft PowerPoint 中创建进度条的方法。

您可以通过在每张幻灯片的底部插入一个形状来手动创建进度条。 这种方法的问题在于,您需要根据演示文稿中的幻灯片数量来测量每个形状的长度。 此外,如果添加或删除幻灯片,则需要手动重做幻灯片中每张幻灯片的进度条。

为了保持一切一致并避免让自己头疼,您可以使用宏来创建进度条。 使用此宏,进度条将根据演示文稿中的幻灯片数量自动调整。

宏解释:为什么是微软 Office 文件可能很危险

首先,打开要为其创建进度条的 PowerPoint 演示文稿。 打开后,单击“查看”选项卡,然后选择“宏”。

将出现“宏”窗口。 在“宏名称”下方的文本框中,输入新宏的名称。 名称不能包含空格。 输入后,单击“创建”,或者,如果您使用的是 Mac,请单击“+”图标。

Enter  宏名称并单击创建


“Microsoft Visual Basic for Applications (VBA)”窗口现在将打开。 在编辑器中,您将看到以下代码:

Sub ProgressBar()

End Sub

编辑器中的宏代码

首先,将光标放在两行代码之间。

编辑器中的光标位置

接下来,复制并粘贴此代码:

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

粘贴后,您的代码在编辑器中应如下所示。

编辑器中的最终代码格式

笔记: 现在第一行和最后一行代码之间没有换行符。

您现在可以 close VBA 窗口。 返回 Microsoft PowerPoint,再次单击“查看”选项卡中的“宏”。

宏选项

接下来,选择您的宏名称(我们的“ProgressBar” example) 选择它,然后单击“运行”。

选择进度条宏

进度条现在将出现在演示文稿每张幻灯片的底部。


如果删除幻灯片,进度条会自动调整。 如果添加新幻灯片,则需要再次运行宏(查看 > 宏 > 运行)。 与手动调整所有内容相比,这是一个小小的不便。