请教怎么一次删除所有的动画效果

wang8790599

请教怎么一次删除所有的动画效果？谢谢

user_udlkl

你可以在动画栏里全部选中，就能删除当前页的所有动画效果了。

user_vtfpa

2楼的兄弟说的只是1个页面的动画，全部页面的动画怎么删除呢？

ianbu

好像只能一个一个页面动画删除吧

l2311320

哎，没有办法了，100多页一个个的删吧
谢谢了

shangluo

好像没有办法一次性删除全部动画吧

user_duyte

好像没有别的办法了:P

user_qzgfq

不能1下全部删除所有页面动画
但是有个办法比你1页1页全选动画来的快
就是CRTL+A 然后CTRL+G
OK
重复100次最多2，3分钟吧

user_zvwrm

你可以在动画栏里全部选中，就能删除当前页的所有动画效果。但是不能一次全部删完所有的。

maoyl

Sub delMainSequence() '删除主动画序列中的全部动画
On Error Resume Next
With ActivePresentation
For i = 1 To .Slides.Count
For j = 1 To .Slides(i).TimeLine.MainSequence.Count
.Slides(i).TimeLine.MainSequence(j).Delete
Next j
Next i
End With
End Sub
Sub delInteractiveSequences() '删除交互序列中的全部动画
On Error Resume Next
With ActivePresentation
For i = 1 To .Slides.Count
For j = 1 To .Slides(i).TimeLine.InteractiveSequences.Count
For g = 1 To .Slides(i).TimeLine.InteractiveSequences(j).Count
.Slides(i).TimeLine.InteractiveSequences(j)(g).Delete
Next g
Next j
Next i
End With
End Sub