在PPT中批量插入背景图片.docVIP

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