Sub 去除所有动画()
Dim oeff As Effect
Dim i As Integer
Dim osld As Slide
For Each osld In ActivePresentation.Slides
If Val(Application.Version)
批量删除所有动画
暂无讨论，说说你的看法吧
- ￥优惠劵使用时效：无法使用使用时效：
之前
使用时效：永久有效优惠劵ID：×
Sub 去除所有动画()
Dim oeff As Effect
Dim i As Integer
Dim osld As Slide
For Each osld In ActivePresentation.Slides
If Val(Application.Version)
之前