|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
通过PPT软件中的VBA来解决了，几乎搜遍了所有的网站，最后终于找到了答案，将代码给各位分享。
, w4 E. D9 h8 t9 [8 w5 S; v6 N7 O 代码如下：
6 i4 `1 y7 v8 _$ C) l4 C Sub removeALL()
' R+ } }/ [0 Z6 c8 P! Q Dim I As Integer: Dim J As Integer. w/ Q# \, T# U. o2 p2 ~* d; K
Dim oActivePres As Object5 N7 T( I% e8 ~1 T w! N
Set oActivePres = ActivePresentation
( z" k" e+ U. G$ d5 y7 n With oActivePres
/ _$ X& {* } U$ G* b9 j For I = 1 To .Slides.Count+ a9 I i9 ]: u. @* Q; H" d% g
If Val(Application.Version) < 10 Then
* L6 k4 e) c3 L Z% Q I For J = 1 To .Slides(I).Shapes.Count
4 m: S, D! B4 \% V& k0 e8 F# k .Slides(I).Shapes(J).AnimationSettings.Animate = msoFalse8 s) k% {& s- O6 k7 F4 k
Next J
8 i; |/ _4 W) x1 X: U Else$ C; g1 G8 e X% F6 I/ U. [# k7 {4 w
For J = .Slides(I).TimeLine.MainSequence.Count To 1 Step -1
" W) ]1 \! P: t0 ~2 p .Slides(I).TimeLine.MainSequence(J).Delete
- U7 l% t* A& ` Next J/ C1 w- f+ o: ?- v& I
End If. V: [8 n3 y( j& E# g8 x) U; A
Next I- Z* O! o( o1 [5 j8 _4 F1 S9 U. W; e
En制作ppt的软件d With
* j* _6 |* t0 ]6 P; ^1 }% B Set oActivePres = Nothing
; P9 d" l4 i5 H2 C( V: d$ N/ p End Sub
9 [+ c! {5 r9 E5 X 另附方法二：
- A$ x8 U" f9 a( g 在PPT放映设置时把PPT设为“播放时不带动画”就可以达到同样效果。0 ]+ s, C) X+ F" Z9 A# v# S
本文转自http://www.2ppt.cn/Article/97.html 33岁女子骗婚郑成功ppt |
|
发表于 2015-12-1 13:50:06