首先准备好需要使用的图片,将其保存在同一个文件夹中,假设在C盘下面的Pictures文件夹内有100张jpg格式的图片,图片名分别为“C:Pictures1.jpg”、“C:Pictures2.jpg”、“C:Pictures3.jpg”等,文件名都是有序的数字排列,然后启动微软Office中的PowerPoint软件。
在PPT用户窗口中按下热键“Alt+F11”直接打开Visual Basic编辑器,你可能会担心自己并不会VB编程啊,打开了这个编辑器又有多大用处呢?别着急,按照下面的步骤来操作,在VB编辑器窗口中找到“插入”功能菜单,然后选择“模块”命令。 紧接着在弹出的代码窗口中输入以下几排简单的代码: 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 写完这段代码后然后就可以关闭VB编辑器窗口了,代码会自动保存,此时在PPT编辑窗口中使用快捷键“Ctrl+M”新建与之前Pictures文件夹中图片数量相等的空白幻灯片,如果文件夹中有100张图片,你就建立100张空白幻灯片,然后关键的时候到啦!请你按下“Alt+F8”快捷键,打开宏对话框,选择刚刚建立的宏命令,点击“运行”即可,现在你就可以坐在电脑旁慢慢喝茶等着它自动生成吧! |