通过VBA编程可以实现Excel的自动化，从而提高工作缃俜橹燧效率，接下来我将简单介绍如何通过VBA向PPT中插入文字
工具/原料
office2016
VBA
方法/步骤
1、首先，打开PPT，在需要添加文字地方插入文本框，再在开始菜单栏点击“选择”
2、然后我们会在PPT右边看到我们插入两个文本框的名字，记住这个名字
3、接下来，打开excel中的开发工具-查看代码，在VBA中输入一下代码
4、Sub插入文字()'声明定义VBA语句中需要使用到的各个变量类蕞瞀洒疸型DimobjPPTAsObject'定义变量objPPT为对象型变量，用于新建PPT文件命令赋苒锃巳伢值DimobjPrsAsObject'定义变量objPrs为对象型变量，用于打开PPT文件命令赋值DimobjChartAsObject'定义变量objChart为对象型变量，用于PPT图形数据表对象赋值'禁止Excel程序的屏幕刷新，即执行VBA时，excel保持静止状态，如有刷新等操作，都在后台运行Application.ScreenUpdating=False'----------------------------------打开要更新数据的PPT报告-----------------------------------------'新建PPT文件对象SetobjPPT=CreateObject("Powerpoint.application")'在同文件路径中打开经分报告（4G）.pptx,",,,msoFalse"表示不显示PPT窗口，静默模式，使程序都在后台完成操作SetobjPrs=objPPT.presentations.Open(ThisWorkbook.Path&"\test.pptx",,,msoFalse)'--------------更新第1张PPT数据--------------objPrs.Slides(1).Shapes("文本框1").TextFrame.TextRange.Text=Worksheets("sheet1").Range("B2").ValueobjPrs.Slides(1).Shapes("文本框2").TextFrame.TextRange.Text=Worksheets("sheet1").Range("A3").Value'-------------------------------------保存、释放变量、关闭---------------------objPrs.SaveobjPrs.CloseobjPPT.QuitApplication.ScreenUpdating=TrueSetobjPPT=NothingSetobjPrs=NothingMsgBox"移动PPT报告数据更新完毕!"EndSubSetobjPrs=objPPT.presentations.Open(ThisWorkbook.Path&"\test.pptx",,,msoFalse)为找到同文件夹下的PPT文档以上代码中，objPrs.Slides(1).Shapes("文本1")为PPT中文本框的名字，Worksheets("sheet1").Range("A3").Value为excel中这个表与单元格的内容，即为要向PPT中插入的内容
5、输入完成后，回到excel，插入控件，点击控件右键，并指定宏，在这里就能找到我们刚才写的代码段名称
6、完成后，关闭PPT，单击按钮，出现以下界面，就完成了。
7、再次打开PPT，发现内容已变。这里只是做了一个小尝试，有兴趣可以自己多试试
