EMF一键导入.pptx

@只为设计 缘起 EMF增强型图元文件是PPT支持的矢量图片格式。设计在《形状那些事》、《EMF使用指南》、《EMF使用指南2》教程中有过介绍。 EMF使用最多的情况是导入AI素材。一般人是这么做的：在AI中复制→PPT中选择性粘贴为EMF→选中图片右键取消组合2次→删除透明框→重新组合。 如果只是偶尔使用还没什么，但如果有几十个上百个素材要导入PPT呢？无疑这些操作都会浪费大量的时间。于是设计作死自己，幸福大家，把上述过程用VBA做成一键的形式。 怎么用？ 复制下面的代码 1 Sub 一键EMF() ActiveWindow.View.PasteSpecial (ppPasteEnhancedMetafile) ActiveWindow.Selection.ShapeRange.Ungroup.Ungroup.Select ActiveWindow.Selection.ShapeRange(msoAutoShape).Delete ActiveWindow.Selection.ShapeRange.Regroup End Sub 怎么用？ 开发工具→Visual Basic或查看代码 如无开发工具，请点击文件→选项→自定义功能区→在“主选项卡”下勾选“开发工具”→确定 打开VBA 2 怎么用？ 插入→模块 粘贴代码→关闭VBA 添加模块 3 怎么用？ 在AI中复制元素后，在PPT中按Alt+F8打开宏点击“一键EMF”后运行 运行宏 4 怎么用？ 文件→选项→自定义快速访问工具栏→下拉箭头选择“宏”→将一键EMF添加到右侧→确定 更简便的用法 4 怎么用？ 在AI中Ctrl+C复制素材→在PPT中点“一键EMF”或Alt+F8运行宏→处理成功 实例 5 有宏的PPT需保存为.pptm格式 建议将此文档单独保存，使用时打开导素材，然后把处理后的素材再复制到需要的ppt里，此pptm只作为中转。 使用一键前，请注意先复制元素，否则VBA会报错。 代码在PPT2010、2013中测试无误，其他版本欢迎大家自测 使用注意 6 END @只为设计 怎么用？