如何在Microsoft PowerPoint中创建进度栏

04d625ad5341490

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

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

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

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

bf7df1eb36ebdab

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

91c96cecec8c026

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

子ProgressBar()

结束子

33e598a19d1ade0

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

bce9e2053fa439f

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

X上
具有ActivePresentation的错误继续恢复
X到.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”
下一个X:
结尾为

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

f671dbf2a5b8c94

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

现在,您可以关闭VBA窗口。返回Microsoft PowerPoint,再次在“视图”选项卡中单击“宏”。

bf7df1eb36ebdab

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

62f0dedefa5a0e8

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

ba3d49c2ac49ea5

如果删除幻灯片,进度条将自动调整。如果添加新幻灯片,则需要再次运行宏(“视图”>“宏”>“运行”)。与手动调整所有功能相比,这是一个不便之处。

未经允许不得转载:表盘吧 » 如何在Microsoft PowerPoint中创建进度栏