|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
通过PPT软件中的VBA来解决了，几乎搜遍了所有的网站，最后终于找到了答案，将代码给各位分享。' D p& L9 q/ |( E0 Z
代码如下：
D- p" E( A9 d( x" f Sub removeALL()
- {/ q( e$ [' G& W( x Dim I As Integer: Dim J As Integer' s ~; P) W1 x6 F$ ?
Dim oActivePres As Object$ v6 [2 a1 ]7 k$ R; \# _ ]$ H
Set oActivePres = ActivePresentation1 p( Q/ _. k6 n$ k* x% v
With oActivePres
0 }2 z8 S9 O2 n For I = 1 To .Slides.Count6 j9 Y6 s+ t$ f
If Val(Application.Version) < 10 Then" b0 D8 s" ]& u1 G Z6 ?# P4 w `
For J = 1 To .Slides(I).Shapes.Count& w2 S: D! s% K5 m8 I4 d( O
.Slides(I).Shapes(J).AnimationSettings.Animate = msoFalse
7 @; q, f5 Z5 Z* v: N Next J6 ^; L9 `. L9 S
Else( L$ o, W ] n2 `" g/ \
For J = .Slides(I).TimeLine.MainSequence.Count To 1 Step -1
5 ?9 ]( }/ D& v$ c' e .Slides(I).TimeLine.MainSequence(J).Delete
5 D: R1 r" ~) {& z, z$ \3 R) S& O Next J) M! K* w; ?5 ?* E) f0 ]
End If
' s! {6 {. ^% M; o1 w. M2 s& t Next I
/ o' k! o. w: @# ^6 o8 |& J En制作ppt的软件d With8 J( W& w0 c3 x0 V0 H9 N7 C7 V
Set oActivePres = Nothing
4 r! u: R, X$ e" |( N End Sub, n, S' K( i, f8 J" o$ D1 f
另附方法二：
! E! G. M3 P( @ 在PPT放映设置时把PPT设为“播放时不带动画”就可以达到同样效果。
+ J* D2 p f5 r% O6 d" y# f 本文转自http://www.2ppt.cn/Article/97.html 33岁女子骗婚郑成功ppt |
|
发表于 2015-12-1 13:50:06