“工具”-->“宏”-->“宏”（或者直接按快捷键“Alt + F8”），出现“宏”对话框，其中会列出本演示文档中所有的宏。因为本文档中只有一个宏，已经处于选中状态，因此可以直接点“运行”，宏就运行了，此时幻灯片中应该已添上图片。
注意，本例当中，文件夹中的图片数目必须大于等于演示文档中的幻灯片数目，否则会出错。
照您说的方法试了，我的RUN是灰色不可选状态。后来我就新做一个PPT，将您的宏语句拷到里面，应该是可以用的。只是我有500张照片，如果照片名字是学号，要按照PPT上每张里面的学号来插入，以免张冠李戴。这样可以做吗？
Run呈不可选状态是因为宏安全性设置过高，宏被禁用了。在“工具”-->“宏”-->“安全性”中，点选“中”或“低”，就可以启用宏了。
学号问题可以这么解决：若学号规则为“20060001”、“20060002”……“20060500”，则在原宏代码中，将图片文件路径中的 i 改为“20060000 + i”。如下所示：
Sub 批量插入图片()
For i = 1 To ActivePresentation.Slides.Count
ActivePresentation.Slides(i).Shapes.AddPicture FileName:="D:电脑电脑学习powerpointpptVBA原创编辑阶段适用批量插入图片又一例图片" & 20060000 + i & ".WMF", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=0, Top:=0, Width:=200, Height:=150
Next
End Sub
你试一下。
P.S.:
改变宏完全性设置后，要先关闭PPT，再打开，此时新设置才生效。
谢谢。还有一个问题，学号不是完全规律和连续的,有没有办法按SLIDES上显示的内容来插入？要是能将学号内容从WORD导出时导出到PPT的Foot中，也行。学号只是一个标记，不是必须显示在正文中的。
QUOTE:
以下是引用dela在2006-9-13 15:57:52的发言：
要是能将学号内容从WORD导出时导出到PPT的Foot中，也行。
你现在是要将图片插入PPT中还是要将学号插入PPT中？我有点迷糊了。能否说具体点。
另外，不知你在Word中邮件合并后形成的doc文档是什么样子的，发送到PPT后ppt文档又是什么样子的？最好都传上来（只需一个小片断即可），让我们知道你现在做到了哪一步，下一步想达到什么目的。
提这么多非份的要求，我实在内疚极了。可是成功好象就在眼前，无论如何请再使劲儿帮一次。我现在已经将每个人的信息都发送到PPT中了，下一步让我犯难的是如何一次性插入照片．而照片又要和人对应。照片都是按学号命名的．每个人有对应的学号．本来可以用您前面给的方法，问题是学号排列是不规则的。换句话，如何在插入照片时，不是按幻灯的页来插入，而是按学号来插入？
提这么多非份的要求，我实在内疚极了。可是成功好象就在眼前，无论如何请再使劲儿帮一次。我现在已经将每个人的信息都发送到PPT中了，下一步让我犯难的是如何一次性插入照片．而照片又要和人对应。照片都是按学号命名的．每个人有对应的学号．本来可以用您前面给的方法，问题是学号排列是不规则的。换句话，如何在插入照片时，不是按幻灯的页来插入，而是按学号来插入？
提这么多非份的要求，我实在内疚极了。可是成功好象就在眼前，无论如何请再使劲儿帮一次。我现在已经将每个人的信息都发送到PPT中了，下一步让我犯难的是如何一次性插入照片，而照片又要和人对应。照片都是按学号命名的．每个人有对应的学号．本来可以用您前面给的方法，问题是学号排列是不规则的。换句话，如何在插入照片时，不是按幻灯的页来插入，而是按学号来插入？
QUOTE:
以下是引用cqdanielzh在2006-9-13 17:23:46的发言：
你现在是要将图片插入PPT中还是要将学号插入PPT中？我有点迷糊了。能否说具体点。
另外，不知你在Word中邮件合并后形成的doc文档是什么样子的，发送到PPT后ppt文档又是什么样子的？最好都传上来（只需一个小片断即可），让我们知道你现在做到了哪一步，下一步想达到什么目的。
前面几贴不知怎么没贴上去，抱歉。再贴。
现在我已经将每个人的信息都发送到PPT中了，下一步令我犯难的是如何一次性插入照片，照片是按学号如042001、042002命名的，每个人都有对应的学号。照片要和人对应。本来可按您前述的方法做，问题是SLIDES中学号排列是不规则的！等于要让照片去找对应的幻灯片插入。这个要求太过份了点，我很内疚。。。可是眼看着就要成功了，无论如何请再使劲儿帮一次。