|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
通过PPT软件中的VBA来解决了，几乎搜遍了所有的网站，最后终于找到了答案，将代码给各位分享。% |6 B0 u+ ^! ]8 q5 L4 B: W
代码如下：
7 z5 n. k* ^# E! Q( ] Sub removeALL()
. v% U7 b( T: H Dim I As Integer: Dim J As Integer
: w* ]: i* b8 i3 l$ @/ ], G Dim oActivePres As Object3 f8 k9 ~! S8 K2 z# w, o
Set oActivePres = ActivePresentation9 r% y/ g% ~" D
With oActivePres
0 F! U. P# N) n, ]( K& w For I = 1 To .Slides.Count" s9 X% p& u% M0 [
If Val(Application.Version) < 10 Then
' f( ]; b$ B, Z' Z5 q- e1 _$ p For J = 1 To .Slides(I).Shapes.Count
L6 L( O% D% C; R& N u .Slides(I).Shapes(J).AnimationSettings.Animate = msoFalse, F$ t! W& S; i, ?# t' P, ]
Next J) e2 X M: p% d" v% }
Else
+ ^( W2 v& H) B For J = .Slides(I).TimeLine.MainSequence.Count To 1 Step -1
1 C0 \9 K+ g' N5 L .Slides(I).TimeLine.MainSequence(J).Delete
; S* l. } D' Z' P" B/ ?( g Y Next J' i1 t/ A) [% Q- L7 F
End If& [% i& M) A: u% p
Next I! [ `3 M( ]6 {4 u, N$ K8 s1 `
En制作ppt的软件d With
" Q8 _# k( p2 u# H) R% d: m( z) y Set oActivePres = Nothing
$ r+ v# F6 @, ~: c) z- H/ f8 g$ r End Sub
- w i& [" H* I% a: | 另附方法二：. f: a" e* L8 {4 i& o( q, _
在PPT放映设置时把PPT设为“播放时不带动画”就可以达到同样效果。% R. u) P8 n N) \# y
本文转自http://www.2ppt.cn/Article/97.html 33岁女子骗婚郑成功ppt |
|
发表于 2015-12-1 13:50:06