jie121244 发表于 2011-9-18 16:08:00

关于PPT一次制作多个背景

现在手中有两百张照片,想要制作一个简易的PPT,但是要这两百张照片分别作每一张的背景,一张一张插入是在是蛋疼的紧……    如何一次插入?

ramini 发表于 2011-9-18 17:54:38

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

学习生 发表于 2011-9-18 18:55:12

被自己找到了
页: [1]
查看完整版本: 关于PPT一次制作多个背景