如何在 Microsoft PowerPoint 中创建进度条

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

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

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

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

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

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

子进度条（）
结束子

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

接下来，复制并粘贴此代码：

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

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

注意：现在第一行和最后一行代码之间没有换行符。

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

接下来，选择您的宏名称（在我们的示例中为“ProgressBar”）以选择它，然后单击“运行”。

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