要保存演示文稿中动画的状态，可以使用PPT自带的VBA宏功能来实现。下面是一个简单的示例代码：

Sub SaveAnimationState()
    Dim slide As Slide
    Dim shape As Shape
    Dim animation As AnimationEffect
    
    ' 遍历每个幻灯片
    For Each slide In ActivePresentation.Slides
        ' 遍历每个形状
        For Each shape In slide.Shapes
            ' 检查形状是否有动画效果
            If shape.AnimationSettings.Animate = msoTrue Then
                ' 遍历每个动画效果
                For Each animation In shape.AnimationSettings.AnimationEffects
                    ' 保存动画效果的状态
                    animation.Timing.TriggerType = msoAnimTriggerOnPageClick
                Next animation
            End If
        Next shape
    Next slide
    
    ' 保存演示文稿
    ActivePresentation.Save
End Sub

这段VBA代码会遍历演示文稿中的每个幻灯片和形状，然后检查每个形状是否有动画效果。如果有动画效果，就将触发方式设置为“在单击页面时触发”。最后，保存演示文稿。

要使用这段代码，你可以按照以下步骤进行操作：

1. 打开PPT演示文稿；
2. 按下ALT + F11打开Visual Basic for Applications编辑器；
3. 在左侧的“项目资源管理器”窗口中，找到你的演示文稿（通常在“Microsoft PowerPoint 对象”下）；
4. 双击打开演示文稿的“Microsoft PowerPoint 对象”；
5. 在右侧的代码编辑窗口中，将上述代码粘贴到Sub和End Sub之间；
6. 按下CTRL + S保存编辑器中的代码；
7. 关闭VBA编辑器；
8. 在PPT中打开“开发人员”选项卡（如果没有显示，可以在PPT选项中启用）；
9. 在“开发人员”选项卡中，点击“宏”按钮；
10. 在弹出的对话框中，选择你刚刚保存的宏（即SaveAnimationState），然后点击“运行”按钮；
11. 等待一段时间，直到宏执行完毕，并保存演示文稿。

执行完上述步骤后，演示文稿中的动画状态会被保存。