在PPT中批量插入背景图片

时间:2022-05-16 22:59:16 阅读: 最新文章 文档下载
说明:文章内容仅供预览,部分内容可能不全。下载后的文档,内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的,是否完整无缺。
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.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,如有不同,请自行更改。


本文来源:https://www.wddqw.com/doc/2e7d4c04eff9aef8941e0649.html