PPT如何快速批量插入图片
发布时间:2023-02-14 23:23:21
如何快速往PPT中插入100张图片,甚至更多的图片吗?既然是批量处理肯定不能依靠手工啦!利用宏编程可以快速实现!
实现目标:将100张图片分别放到100页幻灯片里。
首先准备好需要使用的图片,将其保存在同一个文件夹中,文件名是有序的数字:1.jpg,2.jpg……,100.jpg
接着,将当前PPT文件和图片们也保存在同一个文件夹中。
然后,在PPT里点击菜单“工具→宏→宏”,打开“宏”窗口,给将要编写的程序取个名。
之后鼠标点击“创建”按钮,即进入Visual Basic编辑器界面,编写代码。
Sub photos()
Dim i As Integer
For i = 2 To100
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=i, Layout:=ppLayoutBlank).SlideIndex
ActivePresentation.Slides(i).Select
With ActiveWindow.Selection.SlideRange
.FollowMasterBackground = msoFalse
.Background.Fill.UserPicture i & ".jpg"
End With
Next
End Sub
解释一下上面的代码:
◆ 因为新建的PPT已经有一页幻灯片了,所以循环语句从2开始,到100。
◆ 最长的那行代码的作用是插入一页幻灯片,ppLayoutBlank 表示插入的幻灯片是空白型的。
◆ Background所在的那行代码,是将图片作为幻灯片的背景图。
上面的程序,新插入了99页幻灯片,然后为每一页幻灯片设置了背景图片,并不是真的将图片插入到幻灯片了。还有,第一张幻灯片并没有 * 作到,需要手动操作。
如果要确实是将图片插入到幻灯片,那么上面的程序修改为如下:
Sub photos()
Dim i As Integer
For i = 2 To100
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=i, Layout:=ppLayoutBlank).SlideIndex
ActivePresentation.Slides(i).Select
With ActiveWindow.Selection.SlideRange
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:= i & ".JPG", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=173, Top:=129, Width:=574, Height:=481).Select
End With
Next
End Sub
注:图片尺寸最后是一样的,如果不是,那就要手动修改。


猜你喜欢
- 无论您是想对整个屏幕进行屏幕剪辑还是只是捕获其中的一部分,macOS 都能为您提供所有选项。如何充分利用 Mac 上的屏幕截图选项,并在此过
- Excel中的行高该如何调整呢?接下来是小编为大家带来的excel2003调整行高的教程,供大家参考。excel2003调整行高的教程:调整
- pdf文件内容怎么修改?PDF文件相较于其他文档在平时的生活学习中使用还是比较少的,而且很多文件还是无法编辑的。那么如何才能把PDF文件按照
- 最近有用户跟小编反映自己使用笔记本电脑一玩游戏就断网,导致自己没有游戏体验感,非常烦恼。这是怎么回事?遇到这一问题不要着急,下面小编就给大家
- 一些公司会将会议记录以PPT的形式进行保存,但这也带来了一个问题,那就是浏览和打印都不太方便。那么,能否将PPT转换成Word格式?又该怎么
- 之前为大家带来了Win10预览版10525已知问题汇总,现在小编继续为大家带来Windows10 Build 10525上手图集,感兴趣的朋
- 敬业签是一款功能强大的桌面便签软件,那你知道在敬业签怎么设置初一十五提醒的吗?接下来我们一起往下看看敬业签设置初一十五提醒的方法吧。方法步骤
- MAC电脑虽然有许多的亮点,不过它的缺点也是很明显的,那就是它的音质了。对于声音这方面来说,只能说苹果公司并没有多大的重视吧,因此MAC的音
- 批注是个很有用的功能,它可以很好的显示作者的意图,便于使用者很好的理解。那么,在PPT 2013中批注怎么使用呢?本文就图文介绍了在PPT
- 在使用电脑的过程中,不少朋友都遇到过蓝屏的现象,像小编就遇到了0xt000000f蓝屏代码,那么遇到这种蓝屏代码应该怎么办呢?下面就和小编一
- 对于wps文档中的数字来说,如果我们需要批量为其加粗,那么,有什么快捷的方法吗?下面就让小编告诉你wps文字如何批量加粗,希望对大家有所帮助
- CAXA2020是一款十分好用的行业办公软件,非常多的童鞋们都是第一次使用这款软件,白天使用的时候黑乎乎的背景底色让我们错过很多细节,怎么把
- 随着科学技术的发展,人们的生活越来越离不开电脑的存在,使用电脑后,人们的生活变得更加有滋有润,在忙碌的生活中也会得到一些属于自己的空余时间。
- 说明INTERCEPT 函数根据已有的 x 值和 y 值计算其线性回归线与 y 轴的交叉点。线性回归曲线公式为:y = a + b * x其
- 我们知道在Excel单元格中输入当前时间的快捷键是“Ctrl+Shift+;”,但是这种输入方法只能显示小时和分钟,即HH:MM格式的时间。
- 在excel中如果不采用正确的方法插入图片,就会导致文件很大。第一,插入图片之前进行处理如果图片还没有在excel文档中插入,最好使用专门的
- 在使用Excel 2010的时候会希望把某些单元格锁定,可以将表格保护起来以防他人篡改或误删数据。下面就跟小编一起看看具体的设置吧。exce
- 电脑缺少msvcp140.dll怎么办呢?相信还要一部分用户不知道如何解决的,不过没关系,没不要害怕,小编在这呢。下面小编整理了关于该问题的
- 现在有线鼠标逐渐被淘汰了,替代它的是无线鼠标,没有了线的限制,自由方便的多。虽然无线鼠标受蓝牙距离的束缚,存在一定的延迟,但也比原来的有线方
- ppmemcheck.exe是PestPatrol相关程序,用于查杀间谍软件和恶意程序进程文件: ppmemcheck or ppmemch