求助：如何一次性取消所有幻灯片的动画效果

ytyujia

我选择所有的幻灯片然后将动画效果关闭，但是反映后还是有动画效果，请问如何一次性取消所有幻灯片的动画效果，请高手帮助！

user_ghroypuk

可以做个宏，不过今天不行了。

fantasybb000

一次性取消一张幻灯片的动画效果倒是可以，这个……

user_tpjwfwfg

PPTXP中，选中一张幻灯片，然后右键选择“动画方案”，在出现的选项中选择“无动画”，再点一下“应用于所有幻灯片”。
好，一切都ok了。
document.body.clientWidth*0.5) {this.resized=true;this.width=document.body.clientWidth*0.5;this.style.cursor='pointer';} else {this.onclick=null}" alt="" />

75lu

to 吃好饭: 你好，你说的是XP吧，我用的是OFFICE2000呢

user_xvlcwtbk

好吃饭说的是各个幻灯片之间切换的动画，这样是可以一次取消的。如果图形或文字或表格等的动画就需要用VBA了。

user_pkifs

不用那么复杂吧.
可点击 幻灯片放映  -->   设置放映方式  --> 放映时不加动画,应该就可以了.

2020-mark

不是的，动画可以取消的。看那幅图就应该知道，并不是“幻灯片切换”而是“幻灯片设计”。
您可以亲自试试看。

user_wtbmbyco

我试过了。七楼的方法可以。

yang4hui

Sub removeALL()
Dim I As Integer: Dim J As Integer
Dim oActivePres As Object
Set oActivePres = ActivePresentation
With oActivePres
For I = 1 To .Slides.Count
If Val(Application.Version) < 10 Then
For J = 1 To .Slides(I).Shapes.Count
.Slides(I).Shapes(J).AnimationSettings.Animate = msoFalse
Next J
Else
For J = .Slides(I).TimeLine.MainSequence.Count To 1 Step -1
.Slides(I).TimeLine.MainSequence(J).Delete
Next J
End If
Next I
End With
Set oActivePres = Nothing
End Sub