查看完整版本: 快速在PPT里插入100张图片

快速在PPT里插入100张图片

几十甚至几百张图片，并且要求每张图片插入到每张幻灯片页面上（即有几张照片就要有几张幻灯片）你会怎么做？

　　按照常用的方法点击“插入→图片→来自文件”菜单命令，然后一个一个选择需要的图片，或者点击“格式→背景”命令，将图片作为PowerPoint的背景导入，这样也太浪费时间了。在这种情况下，可以借助PowerPoint强大的宏功能，将多步操作合并为一步，批量插入图片。

　　第一步：首先准备好图片，假设在C盘下面的Pictures文件夹内有100张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键建立与图片数目相等（如：100）的多个空白幻灯片。按Alt+F8键打开宏对话框，选中我们上面建立的InsertPic宏，点击“运行”即可，100张图片很快就自动插入到幻灯片中了。

。

兄弟果然是高手.啥也不说了.红心送上.感谢.

好用的电脑技巧，先学习一下等到用的时候就好了，知道理论是好的，更重要的是实践。

又学了一招,正为幻灯片要加几十张图片而烦躁呢,谢谢楼主,红心送上:excellence

感觉想一个批处理文件，先学习一下再说，满有趣的。

*** 作者被禁止或删除 内容自动屏蔽 ***

好用的电脑技巧，先学习一下等到用的时候就好了，知道理论是好的，更重要的是实践。

感谢楼主分享心得，以后就不用一张一张的插入了。

先来试试你的办法，好用了再回来支持楼主。

office的宏命令，非常强大，我一般在Word里用，没想在PPT中还有这作用。

这个确实很好，我记下了，一会去试验一下，看看怎么样

非常实用的技巧这样看图片就爽多了，谢谢分享。

楼主把简单的问题搞复杂了，PPt里有这种功能，点击插入——图片——新建相册，就可以选择你要的图片，多少张都可以！

高手啊，不过这个对我这个菜鸟来说有点深奥了。

文章的确好，可惜不是原创的东西，这篇文章我见过了。

楼主的这个技巧是实用的，先学习一下，以后用到了也方便快捷，就不会太麻烦了，支持

我以前用PPT一般都是一张一张的往里面插入图片，很麻烦。对楼主的经验一定去好好学一下，减少今后的工作量，谢谢楼主了，红心捧上

高手啊，  红星送上， 多谢兄弟的指教了。

谢谢指点，ppt是一个应用越来越广的软件 现在很流行用这个讲东西

高手！:excellence
有的时候几十张图片要一张一张的手工添加的确很痛苦。
刚才试验了一下，有效。谢谢提供。