|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
通过PPT软件中的VBA来解决了，几乎搜遍了所有的网站，最后终于找到了答案，将代码给各位分享。
' G/ t2 h( w# o: r& L* J$ w 代码如下：
+ ?; F0 f4 [" k& H% Q0 j. v Sub removeALL()
5 _ o5 X P E4 M5 t( j" e/ f Dim I As Integer: Dim J As Integer8 \! A- b1 W# {& D
Dim oActivePres As Object! y3 g3 X l2 y9 l
Set oActivePres = ActivePresentation- z4 V3 g6 Z- @# s
With oActivePres, O7 m* }% J$ \
For I = 1 To .Slides.Count4 p! O7 \7 {! I: B* F
If Val(Application.Version) < 10 Then
- W7 p8 w- Q$ L- `; W For J = 1 To .Slides(I).Shapes.Count. w3 f2 p2 F8 V1 ^2 r1 P! k+ \3 I
.Slides(I).Shapes(J).AnimationSettings.Animate = msoFalse
/ F5 {1 O: J6 a7 Z( \8 I Next J
3 a0 G5 V f" M9 \- ~0 \& x Else/ |, a F/ b0 B
For J = .Slides(I).TimeLine.MainSequence.Count To 1 Step -1; g4 j$ v$ Z( f
.Slides(I).TimeLine.MainSequence(J).Delete% W: @' s6 Q" y& a
Next J* l- _; Y2 ^6 Q
End If
9 s1 J( C w8 _) @7 D/ Q Next I
% f+ ^. S4 F" `7 |2 q: T En制作ppt的软件d With
* M7 B: H8 E% L8 A3 R2 s Set oActivePres = Nothing7 Z- M) U( ?& _& _4 o
End Sub
$ t+ `# D# g% {" @" { 另附方法二：
4 X+ C6 r; J2 C- F# }; Z' G 在PPT放映设置时把PPT设为“播放时不带动画”就可以达到同样效果。
# N i5 ?6 Z, X r3 Y1 s6 a 本文转自http://www.2ppt.cn/Article/97.html 33岁女子骗婚郑成功ppt |
|
发表于 2015-12-1 13:50:06