ytyujia 发表于 2016-4-12 12:12:21

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

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

user_ghroypuk 发表于 2016-4-12 13:23:59

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

fantasybb000 发表于 2016-4-12 14:00:53

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

user_tpjwfwfg 发表于 2016-4-12 14:01:11

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 发表于 2016-4-12 14:29:55

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

user_xvlcwtbk 发表于 2016-4-12 14:34:30

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

user_pkifs 发表于 2016-4-12 15:17:13

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

2020-mark 发表于 2016-4-12 15:32:55

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

user_wtbmbyco 发表于 2016-4-12 16:12:07

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

yang4hui 发表于 2016-4-12 16:16:46

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
页: [1] 2
查看完整版本: 求助：如何一次性取消所有幻灯片的动画效果