黑松丛林盆景图片:【PowerPoint技巧】快速插入多张图片功能
来源:百度文库 编辑:偶看新闻 时间:2024/05/03 15:12:35
制作PPT时很多时候我们需要往往PPT里面插入图片,如果要插入的图片数据很多的话,一张张插入操作起来就比较烦索了,这里介绍一种快速插入多张图片到PPT的方法。
工具/原料
MS PowerPoint
测试图片N张
步骤/方法
首先我们找到所要插入到PPT里面的图片,我这里的图片为百度HI里面的表情图片,很熟悉吧。
在开始之前我们需要提前做一下准备工作,就是把这些文件的名称做一下修改,改为从数字,从1开始,直到最后一张。如何修改文件名称可使用右键菜单,如下图:
把所有的文件名都修改完成,如下图:
好了,我们开始下一步,新建一个PPT文档。如下图:
新建宏文件
按下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 & ".gif"
End With
Next
End Sub
把上面的代码复制到框里就可以。
关闭模块代码窗口,代码会自动保存。
关闭Visual Basic编辑器,返回PPT主窗口。
连续按Ctrl+M键建立与图片数目相等的幻灯片。
如我这里有60张图片,我就新建到60张幻灯片。
运行宏文件
按Alt+F8键 打开宏对话框
选中刚刚建立的InsertPic宏,点击“运行”
运行完成,60张图片都插入到了PPT里面,
注意事项
插入代码时注意要把图片的路径修改成为你本地图片的位置
注意所准备图片的图片类型,在上图代码部分写上与你选择图片相对应的扩展名。