在PPT中批量插入背景图片

在PPT(PowerPiont2007)中批量插入背景图片

在我们制作PPT时，一个PPT中常常包含多张幻灯片，且为了美观，几乎每张幻灯片中都会插入不同的图片作为背景。同样插入背景图操作重复N次，实在太累人。现我们通过宏快速完成。

1、准备背景图片

这里我们假设在硬盘(如C盘根目录)新建一个名为“Pictures”的文件夹，将所有准备好的背景图片存到C:\Pictures下，背景图片文件名的格式为“1.jpg”、“2.jpg”、“3.jpg”……依次顺延，不能产生间断。

 

2、新建PPT文件

在C:\Pictures下新建1个存放背景图片的空白PPT文件，文件名为“批量插入图片.PPT”，打开PPT，选中空白PPT页，连续按Ctrl+M键建立与要插入背景图片数量相等的空白PPT页。

（即：想要播入50张背景图片，就建立50张空白PPT页）

 

3、制作宏

启动PowerPoint 2003/2007，然后单击“视图→宏”命令，如下图1

输入宏名“InsertPic”，宏作用于“批量插入图片.PPT”中，点创建按钮。如下图2

 

此时PPT2007会自动打开“Visual Basic 编辑器”窗口，将以下代码粘贴，如下图3

代码如下：

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

 

 

关闭“Visual Basic编辑器”窗口，上边输入的模块代码就会自动保存。

 

4、运行宏，批量插入背景图片

如图1，单击“视图→宏”命令，如图2，选宏“InsertPic”，点“运行”按钮。此时准备好的背景图片全部放入PPT。完成。

 

小提示：如果不能运行原因有2

1、宏安全性。关闭PPT文件，再打开时，系统会提示，选打开宏。重复步骤4。

2、文件名和路径不批配。以上提供的代码中，

  “ .Background.Fill.UserPicture "C:\Pictures\"& i & ".jpg"”表示插入到幻灯片中的背景图片保存在“C:\Picture\”目录下，背景图片的格式为jpg，如有不同，请自行更改。