包含动画的PPT转为PDF

最新推荐文章于 2024-04-28 10:05:36 发布

slibra_L

最新推荐文章于 2024-04-28 10:05:36 发布

阅读量2.1k

点赞数 4

分类专栏： windows环境搭建及软件使用 Mac

本文链接：https://blog.csdn.net/slibra_l/article/details/119874437

版权

目的：带动画的PPT转化为PDF，PDF的每一页是动画的一个步骤
方法：使用宏
参考链接：https://www.codercto.com/a/70548.html

具体方法（win、mac均可）：
前提：需启用宏功能

步骤一

打开工具-宏-Visual Basic 编辑器，点击插入-模块，在窗口中粘贴如下代码

Option Explicit
Sub AddElements()
Dim shp As Shape
 
 
Dim i As Integer, n As Integer
n = ActivePresentation.Slides.Count
For i = 1 To n
    Dim s As Slide
    Set s = ActivePresentation.Slides(i)
    s.SlideShowTransition.Hidden = msoTrue
     
    Dim max As Integer: max = AnimationElements(s)
    Dim k As Integer, s2 As Slide
    For k = 1 To max
        Set s2 = s.Duplicate(1)
        s2.Name = "AutoGenerated: " & s2.SlideID
        s2.SlideShowTransition.Hidden = msoFalse
        s2.MoveTo ActivePresentation.Slides.C