向PPT中插入大量图片的宏

    PPT是非常强大的，它的强大表现在于可以做出视觉效果非常出色的演示文档。我们可以通过在PPT中插入图片的方式使PPT绚丽迷人。通常情况下，向PPT文档中插入图片的方法是点击“插入→图片→来自文件”菜单命令，然后选择需要的图片插进来就可以了。这是只插入几张图片的情况，但是如果一次需要插入大量的图片，而每张幻灯片都要有一张图片怎么办呢？使用上述方法可以一次选择多张图片插入到一张幻灯片上，然后再一张一张地去分。这个方法就是个笨办法，因为对于这种重复劳动的工作来说，把它们交给电脑去做是再方便不过的了，而做为人来说，只要去想如何制作出更眩目的效果就好了。要想让人力从向PPT中插入大量图片的劳动中解脱出来，就需要利用强大的宏的力量。

    在编写向PPT中插入大量图片的宏之前，要做好准备工作，这个准备工作就是建立一个文件夹，把需要插入到PPT中的图片放到文件夹下，并以有序的数字重新命名这些图片。例如在C盘建立名为PIC的文件夹，里面有从1.jpg至20.jpg的20张图片。同时在PPT中建立相应的20张空白幻灯片。

    做完准备工作后，就开始编写向PPT中插入大量图片的宏了，在PPT中点击录制宏按钮，打开录制宏对话框，在宏名一栏写上“插入图片”，然后点确定，不用任何动作，关掉录制宏的小对话框，点击运动宏的按钮，选择编辑选项（这些操作可以参考去除超链接中的操作方法），在打开的VB编辑窗口中输入以下代码中斜体的部分：

Sub 插入图片()

    Dim i As Integer
    For i = 1 To ActivePresentation.Slides.Count
    ActivePresentation.Slides(i).Select
    With ActiveWindow.Selection.SlideRange
    .FollowMasterBackground = msoFalse
    .Background.Fill.UserPicture "C:\Pic\" & i & ".jpg"
    End With
    Next
End Sub

    关闭VB编辑窗口，点击运行宏按钮，选中我们上面建立的插入图片宏，点击“运行”。20张图片瞬间插入PPT文档中了。向PPT中插入大量图片的目的达到了。