1、,只为设计,缘起,EMF增强型图元文件是PPT支持的矢量图片格式。设计在形状那些事、EMF使用指南、EMF使用指南2教程中有过介绍。EMF使用最多的情况是导入AI素材。一般人是这么做的：在AI中复制PPT中选择性粘贴为EMF选中图片右键取消组合2次删除透明框重新组合。如果只是偶尔使用还没什么，但如果有几十个上百个素材要导入PPT呢？无疑这些操作都会浪费大量的时间。于是设计作死自己，幸福大家，把上述过程用VBA做成一键的形式。,怎么用？,复制下面的代码,1,Sub 一键EMF()ActiveWindow.View.PasteSpecial (ppPasteEnhancedMetafile)Act
2、iveWindow.Selection.ShapeRange.Ungroup.Ungroup.SelectActiveWindow.Selection.ShapeRange(msoAutoShape).DeleteActiveWindow.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 只为设计,怎么用？,
