在PPT页面中，怎么用VBA插入一个PPT附件，求大神指导？

使用VBA *** 作PPT是比较少见的，工作中也会有将不同PPT文件合并为同一文件，网上查到的都是使用软件或者使用重用PPT功能, 但是如果文件超多，还是比较麻烦，可以使用VBA  一步就实现这个功能，完成后，可以一下处理成千上万份PPT（有点夸张，时间也会长，但是还是省事）

1. 新建两个PPT文件，一个名为Test文件，另一个名为Sumppt,  都另存为TEST.pptm 文件（启动宏的PPT）

2. →ALT+F11，点插入模块，将下此文末的代码拷入到所插入模块中后保存

然后将多个PPT放入到跟SumPPT相同文件夹下的位置

3  开始 *** 作：打开SumPPT→ALT+F11点一下 F5 键，出现下面的，然后点“运行”即可

以上内容来自百度文库

Excel不是编程语言，内嵌的VBA有编程功能，可以扩展Excel的应用。Excel也确实内嵌了邮件收发的功能，但添加的附件一般都是当前工作表或工作簿。

SendMail 方法

使用已安装的邮件系统发送工作簿。

expression.SendMail(Recipients, Subject, ReturnReceipt)

expression 必需。该表达式返回一个 Workbook 对象。

Recipients Variant 类型，必需。以文本形式指定收件人的名称，如果有多个收件人，则使用文本字符串数组。必须至少指定一个收件人，而且所有收件人名单都添加到“收件人”中。

Subject Variant 类型，可选。指定消息的主题。如果省略该参数，则使用文档名称。

ReturnReceipt Variant 类型，可选。如果该值为 True，则要求返回回执；如果该值为 False，则不要求返回回执。默认值为 False。

示例

本示例将当前活动工作簿传送给一个收件人。

ActiveWorkbook.SendMail recipients:="Jean Selva"

---