|
|
在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，如有不同，请自行更改。 |
|
