混迹职场多年，你一定和国内顶级的咨询公司打过交道。你是否曾经惊叹：他们究竟是如何做到在短时间内完成海量的交付件，并且PPT里面的文字和图表对得整整齐齐，甚至于一个像素都不差，在翻页的时候，除了局部的内容不一样，你竟然感觉不到其他部分有任何变化。
曾己何时，我也有此感叹。直到后来，我知道了有PPT编程这件事。原来这一切都是提前准备好素材，写好VBA程序，点击按钮便可完成。无论是效率还是质量，都比人工复制粘贴好得多。闲言少叙，先上效果图：
那么，如此省时省力的一键自动生成PPT报告究竟是如何实现的呢？
通常来讲，VBA编程实现如上效果有两种途径：
其一，代码写在PPT中；
其二，代码写在Excel中；
我个人比较喜欢第二种方式，本文介绍了如何在Excel中编写VBA代码，实现一键自动生成PPT报告的酷炫效果。
01—按报告内容准备对应Excel文件
1.以本例为例：我分别准备了五张工作表作为PPT中素材的来源；
2.设置好格式，调整好高度，宽度，字体，居中，颜色等，避免后期再用VBA代码进行设置；
3.数据要有明确的按需筛选的字段，便于VBA自动筛选，然后将筛选结果粘贴进PPT中指定位置；
4.PPT中粘贴的图片，来自于“各省矢量图”这张工作表，这里面有个难点。
我们之前在Excel VS Tableau省市交叉销售地图一文中曾经讲过定义名称动态引用图片的知识。不过，当时用到的是一维的，比较简单。本例中用到的是二维的图片存储区域，稍微复杂些。
4.1：定义名称辖区地图=INDEX(各省矢量图!$B$2:$C$5,MATCH(待分析列表!$P$2,各省矢量图!$A$1:$A$5,0),MATCH(待分析列表!$S$2,各省矢量图!$B$1:$C$1,0))，这里INDEX嵌套了MATCH函数；
4.2：“各省矢量图”中设置A列为辅助列，A1=待分析列表!$S$2，A2=IFERROR(HLOOKUP($A$1,$B$1:$C$5,ROW(A2),0),"")，即将A1值设置为当前省份，A2及以下通过Hlookup函数，将该省份对应的数据查询出来，用于定义名称时计算MATCH(待分析列表!$P$2,各省矢量图!$A$1:$A$5,0)，即Index查询区域的行值；MATCH(待分析列表!$S$2,各省矢量图!$B$1:$C$1,0))用于返回Index查询区域的列值。
关于这个二维表中通过定义名称动态引用图片的方法，用到了辅助列思维，很经典，需要仔细体味和掌握。
02—准备所需的PPT模板
这里我准备好了如下模板，
注意：
1）需要在一个PPT中放两张完全一样的空白模板，便于后续使用以此为基础反复进行Duplicate操作，直至所有的页面都已自动生成为止。然后，删除冗余的首尾模板页即可。
2)本例中的PPT内容小标题，有一些是固定的并且每页都相同的。这样的话就只需将其固化到PPT模板中，调整好格式和位置即可，避免反复用VBA代码粘贴，提高代码运行效率。
03—VBA设置引用
按住ALT+F11，进入VBE编辑环境，点击菜单栏中的引用，添加Microsoft Powerpoint 14.0 Object Library引用。这一步必不可少，这是VBA能够创建PPT的关键所在。
否则会报错，无法定义activeSlide变量，即以下代码会运行错误，
"Dim activeSlide as PowerPoint.Slide"会弹出编译错误的对话框。
04—构建待分析列表
接下来，我们根据PPT内每页要呈现的内容，制作待分析列表，本例中主要字段为K至M列，这里通过VBA代码的for循环语句，将各行值粘贴到P1:P2及S2位置，用于生成标题及确定省份。
05—编写VBA代码
5.1定义相关变量及对象
5.2设置For循环语句，复制模板为新页，设置当前活动PPT页为倒数第二页；
此外切记设置容错处理语句On error resume next！因为本例中所用的Copypicture方法，会发生随机性的不可避免的错误。但实际上，发生这个错误时VBA所有的语句都已经正式执行过，这个错误纯粹就是来捣乱的，可能是微软Office的bug吧。网上关于这个错误有很多解决方法，但我亲测无效！
其实解决起来非常简单，只需一句容错处理语句On error resume next便可！
5.3完成PPT每页内容的粘贴，本例中先通过自动筛选，然后将筛选结果粘贴到指定位置。
5.4删除冗余的头部和尾部幻灯片，只保留有效的内容页。清除对象变量activeSlide和newPowerPoint
注:这个方法有点笨，暂时没想到更好的方法。
注：
1）Range("XXX").CopyPicture方法广泛地应用于本例中，将相应信息粘贴到PPT。这意味着将以图片形式粘贴而无法在PPT中再编辑。
但这里标题其实是可以做成可编的，方法是在PPT模板中，插入一个文本框，将其用ALT+F10键将其命名为"Title",然后通过以下VBA代码为该文本框赋值。activeSlide.Shapes("Title").TextFrame.TextRange.Text= Worksheets("待分析列表").Range("P4")。这样生成的PPT报告中，标题则不再是图片，而是可编辑的文本框。
此外，本例中没有提到Chart的粘贴。其实Chart也是可以粘贴成可编辑模式的，只是其粘贴成链接格式后，需要通过For循环生成多个Chart并且分别为每个Chart准备数据源，在用以下代码调用及粘贴时，也需在For循环中不断修改"chart"名字，使之调用正确的图表完成粘贴进PPT的动作。ActiveSheet.ChartObjects("chart").ChartArea.Copy
activeSlide.Shapes.PasteSpecial(Link = True)
以上的方法过于复杂，这里不展开讨论。关于Chart加入PPT报告的最简单方法，是将Chart所在区域用同样的Copypicture方法粘贴到PPT中，这样的代码最简洁有效。
2）这里还用到了Range("辖区地图").Copypicture方法，这个发现让我感到欣喜。"辖区地图"是之前定义的名称：
辖区地图=INDEX(各省矢量图!$B$2:$C$5,MATCH(待分析列表!$P$2,各省矢量图!$A$1:$A$5,0),MATCH(待分析列表!$S$2,各省矢量图!$B$1:$C$1,0))
本例中，Copypicture方法用到了定义的名称中，继而使动态查询引用二维表中的图片，并将其粘贴进PPT中成为可能。
3）本例中的需求比较特殊：
需要用指定的模板，不能再使用newPowerPoint.Presentations.Add来创建一个创建默认PPT模板，而是需打开指定的PPT模板文件；
因需要创建的页数不固定，需要按需进行PPT模板页的复制(Duplicate)，直到For循环结束为止。
需要按指定字段和条件筛选，然后将筛选结果的列表粘贴进PPT中；
06—错误检查及格式调整
运行代码，检查是否有异常和错误，对于页面布局不满意的地方，需在Excel源文件中对相应工作表的格式进行调整；对于粘贴位置，需在VBA代码中通过以下语句进行调整：
newPowerPoint.ActiveWindow.Selection.ShapeRange.Left = 5
newPowerPoint.ActiveWindow.Selection.ShapeRange.Top = 60
这个环节必不可少！检查无误后，点击宏按钮，完成PPT报告的制作。不足之处是，本程序只生成了报告的主体部分，对于封面和结尾页还是需要手动添加。不管怎样，总数躲过无数的坑，得到了想要的结果。
至此，大功告成。
如果有朋友想要Excel源文件，可关注本文作者个人微信公众号，发送关键词“打包下载”。
这是我的第二篇原创文章，如果阁下觉得还有一点点收获，请不要吝啬给我“好看”哦！那将是我继续发布原创作品的最大鼓励。
