【PowerPoint技巧】快速插入多张图片功能

 

 

    制作PPT时很多时候我们需要往往PPT里面插入图片，如果要插入的图片数据很多的话，一张张插入操作起来就比较烦索了，这里介绍一种快速插入多张图片到PPT的方法。

 

工具/原料

•  MS PowerPoint

•  测试图片N张

步骤/方法

1.  首先我们找到所要插入到PPT里面的图片，我这里的图片为百度HI里面的表情图片，很熟悉吧。

1. 在开始之前我们需要提前做一下准备工作，就是把这些文件的名称做一下修改，改为从数字，从1开始，直到最后一张。如何修改文件名称可使用右键菜单，如下图：

1. 把所有的文件名都修改完成，如下图：

1. 好了，我们开始下一步，新建一个PPT文档。如下图：

1. 新建宏文件

• 按下Alt+F11键打开Visual Basic编辑器窗口

• 选择插入菜单中模块功能

 

1. 输入宏代码

• 在打开的模块代码窗口中输入如下内容：

  代码具体内容如下：

  　　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 & ".gif"

  　　End With

  　　Next

  　　End Sub

   

• 把上面的代码复制到框里就可以。

 

 

1. 关闭模块代码窗口，代码会自动保存。

1. 关闭Visual Basic编辑器，返回PPT主窗口。

2. 连续按Ctrl+M键建立与图片数目相等的幻灯片。

• 如我这里有60张图片，我就新建到60张幻灯片。

1. 运行宏文件

• 按Alt+F8键 打开宏对话框

• 选中刚刚建立的InsertPic宏，点击“运行”

1. 运行完成，60张图片都插入到了PPT里面，

 

 

 

 

 

 

 

注意事项

 

• 插入代码时注意要把图片的路径修改成为你本地图片的位置

• 注意所准备图片的图片类型，在上图代码部分写上与你选择图片相对应的扩展名。