如何用vba做ppt

首先，创建一个新的PPT文档，复制这段代码。单击“开发工具”→Visual Basic或查看代码。

子一键电动势()

活动窗口。view . paste special(pppasteenhanced metafile)

活动窗口。selection . shape range . ungroup . ungroup . select

活动窗口。selection . shape range(msoAutoShape)。删除

活动窗口。选区.形状范围.重组

末端接头

请点击输入图片说明。

如果没有开发人员选项卡，请单击文件→选项→自定义功能区→主选项卡→检查开发人员→确定。然后按照第一步继续。如果您已经有一个开发工具选项卡，请跳过这一步。

请点击输入图片说明。

进入VBA界面后，点击插入→模块→按Ctrl+V将复制的代码粘贴到新的空白区域→关闭窗口，返回PPT界面。

请点击输入图片说明。

请点击输入图片说明。

记得先复制元素(不管是AI还是PPT) →Alt+F8打开宏→点击“一键EMF”运行。PS:左边的矩形组合是用PPT做的，右边的是一键处理的。

请点击输入图片说明。

请点击输入图片说明。

我们也可以通过以下方式将宏放入快速访问工具栏:文件→选项→从以下位置选择一个命令→选择宏→将一键EMF添加到对话框右侧的快速访问工具栏。该宏出现在快速访问工具栏上。复制完素材后点击此按钮，可以一键导入。经常指导材料从AI到PPT的朋友不妨试试。

PS:

1.建议将宏处理文档单独保存为pptm格式，使用时打开导入的素材，然后将处理后的素材复制到需要的ppt中。此pptm仅用作中转。

2.在使用密钥之前，请注意先复制元素，否则VBA会报告一个错误。？

3.该代码已在PPT2010和PPT 2013中正确测试。

请点击输入图片说明。