不能1下全部删除所有页面动画
但是有个办法比你1页1页全选动画来的快
就是CRTL+A 然后CTRL+G
OK
重复100次最多2,3分钟吧
leijunyang 发表于 2008-4-08 11:11:03
你可以在动画栏里全部选中,就能删除当前页的所有动画效果。但是不能一次全部删完所有的。
gasx2007 发表于 2008-4-21 15:14:14
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
谢谢了
但是有个办法比你1页1页全选动画来的快
就是CRTL+A 然后CTRL+G
OK
重复100次最多2,3分钟吧
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