怎样在master slides中插入多个placeholders

cqdanielzh · 发表于 2006-9-12 10:03

“工具”-->“宏”-->“宏”（或者直接按快捷键“Alt + F8”），出现“宏”对话框，其中会列出本演示文档中所有的宏。因为本文档中只有一个宏，已经处于选中状态，因此可以直接点“运行”，宏就运行了，此时幻灯片中应该已添上图片。

注意，本例当中，文件夹中的图片数目必须大于等于演示文档中的幻灯片数目，否则会出错。

dela · 发表于 2006-9-13 10:04

照您说的方法试了，我的RUN是灰色不可选状态。后来我就新做一个PPT，将您的宏语句拷到里面，应该是可以用的。只是我有500张照片，如果照片名字是学号，要按照PPT上每张里面的学号来插入，以免张冠李戴。这样可以做吗？

cqdanielzh · 发表于 2006-9-13 11:52

Run呈不可选状态是因为宏安全性设置过高，宏被禁用了。在“工具”-->“宏”-->“安全性”中，点选“中”或“低”，就可以启用宏了。

学号问题可以这么解决：若学号规则为“20060001”、“20060002”……“20060500”，则在原宏代码中，将图片文件路径中的 i 改为“20060000 + i”。如下所示：

Sub 批量插入图片()
       For i = 1 To ActivePresentation.Slides.Count
        ActivePresentation.Slides(i).Shapes.AddPicture FileName:="D:\电脑\电脑学习\powerpoint\pptVBA\原创\编辑阶段适用\批量插入图片又一例\图片\" & 20060000 + i & ".WMF", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=0, Top:=0, Width:=200, Height:=150
       Next
End Sub
你试一下。

cqdanielzh · 发表于 2006-9-13 11:55

P.S.:

改变宏完全性设置后，要先关闭PPT，再打开，此时新设置才生效。

dela · 发表于 2006-9-13 15:57

谢谢。还有一个问题，学号不是完全规律和连续的,有没有办法按SLIDES上显示的内容来插入？要是能将学号内容从WORD导出时导出到PPT的Foot中，也行。学号只是一个标记，不是必须显示在正文中的。

cqdanielzh · 发表于 2006-9-13 17:23

QUOTE:

以下是引用dela在2006-9-13 15:57:52的发言：

要是能将学号内容从WORD导出时导出到PPT的Foot中，也行。

你现在是要将图片插入PPT中还是要将学号插入PPT中？我有点迷糊了。能否说具体点。

另外，不知你在Word中邮件合并后形成的doc文档是什么样子的，发送到PPT后ppt文档又是什么样子的？最好都传上来（只需一个小片断即可），让我们知道你现在做到了哪一步，下一步想达到什么目的。

dela · 发表于 2006-9-13 22:39

[此贴子已经被作者于2006-9-13 22:40:59编辑过]

dela · 发表于 2006-9-13 22:41

dela · 发表于 2006-9-13 22:42

dela · 发表于 2006-9-13 22:44

		自动登录	找回密码
密码			免费注册