一秒钟快速在PPT里插入100张图片
2016-05-29 18:49
295 查看
转载者:少儿英语动物ppt课件 来源:www.2ppt.cn
门罗主义的ppt课件
如果要插入几十甚至几百张图片,并且要求每张图片插入到每张幻灯片页面上(即有几张照片就要有几张幻灯片)你会怎么做?
按照常用的方法点击“插入→图片→来自文件”菜单命令,然后一个一个选择需要的图片,或者点击“格式→背景”命令,将图片作为 PowerPoint的背景导入,这样也太浪费时间了。在这种情况下,可以借助PowerPoint强大的宏功能,将多步操作合并为一步,批量插入图片。
第一步:首先准备好图片,假设在C盘下面的Pictures文件夹内有100张jpg格式的图片,如“C:Pictures1.jpg”、 “C:Pictures2.jpg”、“C:Pictures3.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键建立与图片数目相等(如:100)的多个空白幻灯片。按Alt+F8键打开 宏对话框,选中我们上面建立的InsertPic宏,点击“运行”即可,100张图片很快就自动插入到幻灯片中
本文选自http://www.2ppt.cn/Article/1136.html
门罗主义的ppt课件
如果要插入几十甚至几百张图片,并且要求每张图片插入到每张幻灯片页面上(即有几张照片就要有几张幻灯片)你会怎么做?
按照常用的方法点击“插入→图片→来自文件”菜单命令,然后一个一个选择需要的图片,或者点击“格式→背景”命令,将图片作为 PowerPoint的背景导入,这样也太浪费时间了。在这种情况下,可以借助PowerPoint强大的宏功能,将多步操作合并为一步,批量插入图片。
第一步:首先准备好图片,假设在C盘下面的Pictures文件夹内有100张jpg格式的图片,如“C:Pictures1.jpg”、 “C:Pictures2.jpg”、“C:Pictures3.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键建立与图片数目相等(如:100)的多个空白幻灯片。按Alt+F8键打开 宏对话框,选中我们上面建立的InsertPic宏,点击“运行”即可,100张图片很快就自动插入到幻灯片中
本文选自http://www.2ppt.cn/Article/1136.html
相关文章推荐
- 《构建之法》阅读笔记--3
- 关键业务系统的JVM启动参数推荐 2.0版
- ZZULIOJ 1426: 字典树again【字典树+bfs】
- idea springmvc+spring+mybatis+maven
- 队列 -- 顺序队列和链式队列类的实现
- 强悍的 ubuntu —— ubuntu 与 windows 双系统的交互
- SQLite学习笔记三:SQLite可视化管理工具汇总
- IOS开发:按钮控件
- mysql5.6 单机多实例
- Cmake 构建程序
- HDU 1513 && POJ 1159 Palindrome (DP+LCS+滚动数组)
- 团队冲刺第三天
- ASP.NET MVC URL重写与优化(进阶篇)-继承RouteBase玩转URL
- codeigniter nginx rewrite规则配置【转】
- VB.net学习笔记(二十三)再识委托
- OAuth2.0授权方式
- ASP.NET MVC URL重写与优化(初级篇)-使用Global路由表定制URL
- 30学习写论坛-7
- ES5, ES6, ES2016, ES.Next: JavaScript 的版本是怎么回事?「译」
- 用原生JavaScript实现图片瀑布流的浏览效果