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

laojuchun · 发表于 2004-8-27 14:52

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

aaaaabbbbb · 发表于 2004-8-27 23:43

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

多媒体 · 发表于 2004-8-28 22:35

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

吃好饭 · 发表于 2004-8-29 13:01

以下是引用laojuchun在2004-8-27 14:52:00的发言： 我选择所有的幻灯片然后将动画效果关闭，但是反映后还是有动画效果，请问如何一次性取消所有幻灯片的动画效果，请高手帮助！

PPTXP中，选中一张幻灯片，然后右键选择“动画方案”，在出现的选项中选择“无动画”，再点一下“应用于所有幻灯片”。

好，一切都ok了。

laojuchun · 发表于 2004-8-30 13:10

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

aaaaabbbbb · 发表于 2004-8-30 23:00

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

hpw · 发表于 2004-8-31 09:42

不用那么复杂吧.

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

吃好饭 · 发表于 2004-8-31 21:56

以下是引用aaaaabbbbb在2004-8-30 23:00:00的发言： 好吃饭说的是各个幻灯片之间切换的动画，这样是可以一次取消的。如果图形或文字或表格等的动画就需要用VBA了。

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

您可以亲自试试看。

aaaaabbbbb · 发表于 2004-8-31 22:36

以下是引用吃好饭在2004-8-31 21:56:00的发言：

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

您可以亲自试试看。

我试过了。

七楼的方法可以。

huangyun · 发表于 2010-5-19 21:08

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

		自动登录	找回密码
密码			免费注册