PowerPoint中快速插入多个图片的快捷操作
时间:2022-01-29 15:12:17
如果要往PowerPoint中插入几十甚至几百张图片,并且要求每张图片插入到每张幻灯片页面上(即有几张照片就要有几张幻灯片)你会怎么做?按照常用的方法点击“插入→图片→来自文件”菜单命令,然后一个一个选择需要的图片,或者点击“格式→背如果要往PowerPoint中插入几十甚至几百张图片,并且要求每张图片插入到每张幻灯片页面上(即有几张照片就要有几张幻灯片)你会怎么做?按照常用的方法点击“插入→图片→来自文件”菜单命令,然后一个一个选择需要的图片,或者点击“格式→背景”命令,将图片作为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张图片很快就自动插入到幻灯片中了。
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
Mac怎么修改默认邮箱 苹果Mac系统更改默认邮箱设置图文教程
![](https://img.aspxhome.com/file/2023/8/a214728_0s.png)
Win10笔记本外接显示器分辨率怎么调?
![](https://img.aspxhome.com/file/2023/26/a223805_0s.jpg)
win10一关机就蓝屏怎么办?
![](https://img.aspxhome.com/file/2023/1/a278518_0s.png)
PPT2016怎么设计U型多步骤流程图示?
![](https://img.aspxhome.com/file/2023/10/a345873_0s.jpg)
Win10音量小喇叭控制页面怎么恢复成Win8样式的?
![](https://img.aspxhome.com/file/2023/28/a247430_0s.jpg)
excel 数字签名的使用方法
![](https://img.aspxhome.com/file/2023/1/a155121_0s.gif)
photoshop快捷键有哪些?photoshop cs6的快捷键怎样设置?
![](https://img.aspxhome.com/file/2023/8/a338528_0s.png)
在Word2010中如何使用"重复键入"功能
![](https://img.aspxhome.com/file/2023/1/20851_0s.jpg)
Mac电脑触控板的「三指拖移」功能不见了?原来藏在这儿
![](https://img.aspxhome.com/file/2023/5/a211685_0s.jpeg)
word怎么输入二分之一
Win11查看剪贴板历史记录的步骤教程
![](https://img.aspxhome.com/file/2023/5/53135_0s.png)
wps表格怎么利用公式求积
升级Win11后占用内存太大怎么办?Win11占用内存高的解决办法
![](https://img.aspxhome.com/file/2023/27/a234625_0s.jpg)
win10电脑关闭pximouse进程的方法?
![](https://img.aspxhome.com/file/2023/2/a285753_0s.jpg)
excel2013怎么隐藏工作表
windows7无法访问共享电脑,找不到网络路径怎么办?
![](https://img.aspxhome.com/file/2023/30/a271044_0s.jpg)
PE里找不到U盘_U盘启动盘进入PE里找不到U盘解决办法
![](https://img.aspxhome.com/file/2023/3/a302233_0s.jpg)
Win10系统如何清理缓存?Win10系统清理缓存方法
![](https://img.aspxhome.com/file/2023/1/a272450_0s.jpg)
win11怎么滚动截屏 ?win11滚动截屏方法
![](https://img.aspxhome.com/file/2023/28/a240034_0s.jpg)
word文档中的字体如何放大缩小?
![](https://img.aspxhome.com/file/2023/5/24675_0s.jpg)