批量插入ppt背景图片的宏讲解

2022-04-05 17:57:12   文档大全网     [ 字体: ] [ 阅读: ]

#文档大全网# 导语】以下是®文档大全网的小编为您整理的《批量插入ppt背景图片的宏讲解》,欢迎阅读!
背景图片,批量,讲解,插入,ppt
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

1、首先将需要插入的图片重命名为1.jpg2.jpg。。。。并存放在一个文件夹内;

2、红色字体为待插入的所有图片所在的文件夹路径; 3、蓝色字体为图片的格式(jpg.bmp等)

第一步:首先准备好图片,假设在C盘下 面的Pictures文件夹内有60jpg格式图片,如“C\Pictures\1.jpg”“C\Pictures\2.jpg”“C \Pictures\3.jpg”等,文件名是有序的数字。

第二步:启动PowerPoint 2003,按下Alt+F11键打开 Visual Basic编辑器窗口,点击插入模块菜单命令,在弹出的代码编辑窗口中输入以下代码:

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编辑器窗口,上面的模块代码会自动保存。此时,连续按Ctrl+M键建立与图片数目相等(如:60)的多个空白幻灯片。按 Alt+F8打开宏对话框,选中我们上面建立的InsertPic宏,点击运行即可,60图片快就自动插入到幻灯片中了。


本文来源:https://www.wddqxz.cn/d391a55d7dd184254b35eefdc8d376eeaeaa178b.html

相关推荐