将多步操作合并为一步

当微软Office和微软VB中的宏函数相遇时，可以创建强大的函数。例如，在本文中，我们介绍了如何使用这两个工具立即插入数百张图片。

如果你想插入几十张甚至几百张图片，要求每张图片都插在每张幻灯片页上(也就是说，如果有几张照片，就会有几张幻灯片)，你会怎么做？

按照通常的方法点击菜单命令“插入图片来自文件”，然后逐个选择需要的图片，或者点击命令“格式背景”导入图片作为PowerPoint的背景，也是浪费时间。在这种情况下，借助PowerPoint强大的宏功能，可以将多步操作合并为一步，批量插入图片。

第一步：首先，准备图片。假设驱动器C下的pictures文件夹中有100张jpg格式的图片，如“C: Pictures1.jpg”、“C: Pictures2.jpg”和“C: Pictures3.jpg”。文件名是有序的数字。

第二步：启动PowerPoint 2003，按Alt F11打开Visual Basic编辑器窗口，点击“插入模块”菜单命令，在弹出的代码编辑窗口中输入如下代码：

Sub InsertPic()

作为整数变暗

对于i=1至活动演示文稿。幻灯片，计数

ActivePresentation。幻灯片(一)。挑选

带活动窗口。选择。幻灯片范围。follow master background=msoFalse

背景，填充，用户图片。jpg '

以…结尾

然后

末端接头

第三步：关闭Visual Basic编辑器窗口，上面的模块代码会自动保存。此时，连续按下Ctrl+M，创建与图片数量相等的空白幻灯片数量(例如，100张)。按Alt F8打开宏对话框，选择上面创建的InsertPic宏，点击“运行”，很快自动在幻灯片中插入100张图片。