如何利用VBA自动生成PPT报告

最新推荐文章于 2024-12-26 15:17:45 发布

Maxxi_Huang

最新推荐文章于 2024-12-26 15:17:45 发布

阅读量1.3w

点赞数 18

分类专栏： VBA 文章标签： VBA 自动化报表自动化PPT模板

本文链接：https://blog.csdn.net/Maxxi_Huang/article/details/93378050

版权

本文是继python（多级表头）之后的另一个项目，主要是利用VBA实现自动更新PPT模板的功能。主要是常规的PPT太多了，不想把时间浪费在Ctrl+C 和Ctrl+V 之间，唯有想想自动化的可行性了；
一开始时候是希望用Python（pptx）来写的，但感觉这个包兼容性不够好，生成的图表不能和现有的图型一致，并且该数据模板的制作时间也很长，所以还是用回微软他家的程序好了。（实验证明，①编程都是有其共同性的，看懂python，VBA也能大概看懂的；②工具不分等级高低，合适就行。）

首先，要感谢下周婷同学和网上的大神们，由于他们无私贡献出代码，我才能依葫芦画瓢（zhaochao）写出代码。。

先上代码，再一行行解释代码的作用。由于本人也是初学VBA，代码比较简陋，请大神们指导一下。谢谢。

PS：数据处理问题，我都放在excel处理了，所以这个VBA就是搬运数据的功能。。。

Sub 第一页()
    Dim pp As PowerPoint.Application   
    Dim pReport As PowerPoint.Presentation
    Dim pchtws1 As Worksheet
    Dim wb As Workbook
    Dim sh As Worksheet
    
    Application.ScreenUpdating = False
    
    
    '选定Excel页码
    Set wb = ThisWorkbook
    Set sh = Sheets("P1") 'sh选定P1页
    

    '