danq 发表于: 2009-9-06 11:58 来源: 扑奔PPT网
这是可以实现的,下面是一串快速插入背景图片的一段代码,我用过了,很好用的。
首先,我们可以的借助PowerPoint强大的宏功能,将多步操作合并为一步,批量插入图片。
第一步:首先准备好图片, C盘下面的Pictures文件夹内加入30张jpg格式的图片,如“C:\Pictures\1.jpg”、“C:\Pictures\2.jpg”、“C:\Pictures\3.jpg”等,文件名是有序的数字。
第二步:启动PowerPoint 2003,按下Alt+F11键打开Visual Basic编辑器窗口,点击“插入→模块”菜单命令,在弹出的代码编辑窗口中输入以下代码:
第三步:关闭Visual Basic编辑器窗口,上面的模块代码会自动保存。此时,连续按Ctrl+M键建立30张图片的空白幻灯片。按Alt+F8键打开宏对话框,选中我们上面建立的InsertPic宏,点击“运行”即可,30张图片很快就自动插入到幻灯片中了。下面的图片是幻灯片插入八张图片,同理30张亦如此
57C2BED5-B010-4B7E-ACE2-5DF35957BC14.jpg
F1984F93-FB16-44E6-8261-722FCD1E1C75.jpg
这是可以实现的,下面是一串快速插入背景图片的一段代码,我用过了,很好用的。
首先,我们可以的借助PowerPoint强大的宏功能,将多步操作合并为一步,批量插入图片。
第一步:首先准备好图片, C盘下面的Pictures文件夹内加入30张jpg格式的图片,如“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.Slides(i).Select
With ActiveWindow.Selection.SlideRange
.FollowMasterBackground = msoFalse
.Background.Fill.UserPicture "C:\Pictures\" & i & ".jpg"
End With
Next
End Sub
第三步:关闭Visual Basic编辑器窗口,上面的模块代码会自动保存。此时,连续按Ctrl+M键建立30张图片的空白幻灯片。按Alt+F8键打开宏对话框,选中我们上面建立的InsertPic宏,点击“运行”即可,30张图片很快就自动插入到幻灯片中了。下面的图片是幻灯片插入八张图片,同理30张亦如此
57C2BED5-B010-4B7E-ACE2-5DF35957BC14.jpg
F1984F93-FB16-44E6-8261-722FCD1E1C75.jpg