在PPT中批量插入背景图片

作者: heiyiren 分类: 网络转载 发布时间: 2011-06-09 11:59

在我们制作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.Slidesi.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,如有不同,请自行更改。

 

注:此方法适用于office2003/2007/2010版本,背景图不能有中文名称,以数字为佳。

发表评论

电子邮件地址不会被公开。 必填项已用*标注