PPT实战技巧之 如何快速批量插入图片

    微软Office办公软件作为职场人士必须掌控的技能之一，对于不少朋友来说都是应用自如。新一代Office 2010的闪亮登场给大家带来了众多新颖又强大的功能，不仅能帮助Office用户更轻松地完成工作，也能更容易的实现自己的创意，其乐无穷。Word、Excel、PPT等功能对于大多Office用户就算不是精通也至少是游刃有余，但有一个小问题想要考考大家，知道如何快速往PPT中插入100张图片甚至更多的图片吗？呵呵要是还不知道也没关系，看过本文后保证你就会了。

    既然是批量处理肯定不能依靠手工啦！而我们要调用的是微软VB中的宏功能，利用宏可以更为高效的解决一些重复性劳动问题。不就是往PPT中插入大批量的图片吗？我们甚至可以将每张图片插入到PPT的每一页中。详细做法如下：

    首先准备好需要使用的图片，将其保存在同一个文件夹中，假设在C盘下面的Pictures文件夹内有100张jpg格式的图片，图片名分别为“C：Pictures1.jpg”、“C：Pictures2.jpg”、“C：Pictures3.jpg”等，文件名都是有序的数字排列，然后启动微软Office中的PowerPoint软件。

    在PPT用户窗口中按下热键“Alt+F11”直接打开Visual Basic编辑器，你可能会担心自己并不会VB编程啊，打开了这个编辑器又有多大用处呢？别着急，按照下面的步骤来操作，在VB编辑器窗口中找到“插入”功能菜单，然后选择“模块”命令。

    紧接着在弹出的代码窗口中输入以下几排简单的代码：

    Sub InsertPic（）
    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：Pictures" & i & ".jpg"
    End With
    Next
    End Sub

    写完这段代码后然后就可以关闭VB编辑器窗口了，代码会自动保存，此时在PPT编辑窗口中使用快捷键“Ctrl+M”新建与之前Pictures文件夹中图片数量相等的空白幻灯片，如果文件夹中有100张图片，你就建立100张空白幻灯片，然后关键的时候到啦！请你按下“Alt+F8”快捷键，打开宏对话框，选择刚刚建立的宏命令，点击“运行”即可，现在你就可以坐在电脑旁慢慢喝茶等着它自动生成吧！