ppt宏功能实现快速插入几十甚至几百张图片
狸窝 复制 收藏 保存到桌面 快速找教程方案 反馈需求 社会主义核心价值观 在线客服 马上注册 升级VIP
当微软的Office与微软VB中的宏功能相遇时,便可以创造出强大的功能,例如在这篇文章中就介绍了利用这两个工具瞬间插入上百张图片。按照常用的方法点击“插入→图片→来自文件”菜单命令,然后一个一个选择需要的图片,或者点击“格式→背景”命令,将图片作为PowerPoint的背景 导入,这样也太浪费时间了。在这种情况下,可以借助PowerPoint强大的宏功能,将多步操作合并为一步,批量插入图片。
快速在PPT里插入百张图片:
如果要插入几十甚至几百张图片,并且要求每张图片插入到每张幻灯片页面上(即有几张照片就要有几张幻灯片)你会怎么做?按照常用的方法点击“插入→图片→来自文件”菜单命令,然后一个一个选择需要的图片,或者点击“格式→背景”命令,将图片作为PowerPoint的背景导入,这样也太浪费时间了。在这种情况下,可以借助PowerPoint强大的宏功能,将多步操作合并为一步,批量插入图片。
第一步:首先准备好图片,假设在C盘下面的Pictures文件夹内有60张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键建立与图片数目相等(如:60)的多个空白幻灯片。按Alt+F8键打开宏对话框,选中我们上面建立的InsertPic宏,点击“运行”即可,60张图片很快就自动插入到幻灯片中了。
好玩的实用教程:
☆«⊰ pdf转word/doc教程 doc转epub 视频加水印 电影加广告字幕 ⊱»☆
『笑话』我同桌说他能通过指甲看出我缺什么,我就把指甲伸给他看。
他把我大拇指涂黑了,其他指甲涂上了橙色。
另一只手全涂成了红色,然后他问我我看出来缺什么了吗,我说:“没看出来呀”。
他:“你缺心眼啊!”
他把我大拇指涂黑了,其他指甲涂上了橙色。
另一只手全涂成了红色,然后他问我我看出来缺什么了吗,我说:“没看出来呀”。
他:“你缺心眼啊!”
群组话题
- 在女人上面怎么成为真正的男人 1个简单易行的方法揭秘 男人必看! 帮助用户解决问题
- Leawo 藍光到 DVD 轉檔器能以超越同業 6 倍的速度,將藍光內容轉換為 DVD 光碟 光碟複製為光碟/ISO檔
- Leawo 藍光轉檔器支援將藍光影片轉換為 MKV、MP4、AVI 等 180+ 種格式 光碟複製為光碟/ISO檔
- Leawo 藍光播放器 支援多種格式,包括 DVD、藍光與 4K UHD 藍光 光碟複製為光碟/ISO檔
- CleverGet:多合一線上影片下載工具 光碟複製為光碟/ISO檔
- Leawo 藍光 Cinavia 消除器的核心功 光碟複製為光碟/ISO檔
- 影片燒錄 DVD:如何將 MP4 影片燒錄到 DVD? 光碟複製為光碟/ISO檔
- 複製與備份藍光/DVD 光碟,並支援多種輸出格式與複製模式 视频转换器
- Leawo 影片轉檔器終極版(Prof. Media DVD 媒體包) 光碟複製為光碟/ISO檔
- 如何替换GIF图片中的广告或LOGO,添加自己的个性化标签,让你的GIF更具创意! 视频转换器
- 如何解除视频的隔行扫描,隔行扫描将每一帧分为两场,分别扫描奇数行和偶数行 视频转换器