本帖最后由 zaoeyo 于 2011-5-5 13:31 编辑 简述:大家可以下载使用无极的动画扩展插件,或者学习下述代码,也能少许提高PPT动画的一些效果。在一般的PowerPoint中,动画的效果可以通过右击动画窗格中的动画,展开“效果选项”选项或者“计时”选项来进行精确设置。在2007和2003版本的PPT中,效果选项有:声音设置、平滑开始或结束、翻转动画效果等,而在2010版中多了弹跳结束的设置,但是这些设置只限至于某些动画,比如路径动画,但开始和结束等动画就没有平滑开始或者平滑结束等设置,所以我们可以利用VBA强制性地添加这些效果。并且利用VBA可以实现:“鼠标接触某个物体后,物体执行某个动画”的效果! (该效果将会制作作品来详细讲解,这里先放一放)-------------------------------------------------------------------------------------------------VBA教程:第一步,新建一张幻灯片,在上面画一个图形,比如一个矩形。第二步:您需要在您的图形上添加动画代码。通常添加动画都是直接通过右击选择“自定义动画”(2003版),或者是打开“动画”选项卡来进行设置(2007版)。我们可以用VBA代码添加一个物体的动画。在2003版中,打开“工具”菜单中的“宏”选项中的“宏”按钮。在输入框内输入您需要的宏的名称,比如Macro,将其命名,再单击“创建”按钮,创建刚才的那个宏,然后软件会自动跳至Visual Basic编辑器。在2007版中,打开“视图”选项卡中的“宏”按钮——在输入框内输入您需要的宏的名称,比如Macro,将其命名,再单击“创建”按钮,创建刚才的那个宏,然后软件会自动跳至Visual Basic编辑器。在“Microsoft Visual Basic”窗口内删除所有已写好的代码,然后开始输入新的动画代码。-------------------------------------------------------------------------------------------------
添加动画代码:
Sub add_ani()
Dim A As Slide
Dim B As Shape
Dim C As Effect
Set A = ActivePresentation.Slides(1)
Set B = A.Shapes(1)
Set C = A.TimeLine.MainSequence.AddEffect(Shape:=B, effectid:=msoAnimEffectFade, trigger:=msoAnimTriggerWithPrevious)
C.Timing.Duration = 1
C.Exit = False
End Sub
那么,您就在第一张幻灯片的第一个图形上添加了一个速度为1,开始为“之前”的淡出动画。
-------------------------------------------------------------------------------------------------
下面剖析代码:
' 在“macro”处输入你的动画名称,或者不输入,就用Macro这个名称
Sub macro()
' 现在定义3个变量,A、B、C分别代表幻灯片、图形和效果
Dim A As Slide
Dim B As Shape
Dim C As Effect
' 使用Set命令设定这些变量的内容
Set A = ActivePresentation.Slides(1)
' 该代码定位这个动画是在PPT中的第几页,其中1代表第“1”页
Set B = A.Shapes(1)
' 该代码定位您要添加动画的那个图形是第几个图形,其中“1”代表第1个图形,注意,如何判别您选中的图形是第几个图形呢,首先在这个图形上通过一般方法添加一个动画,那么在动画窗格内会显示图形的名称,然后在动画上单击鼠标右键,选择“计时”命令,然后展开“触发器”按钮,单击“单击下列对象时启动效果”复选框,然后展开右边的按钮,找到刚才的那个图形的名字,数数看是第几个即可。(该方法普遍适用于任何版本的PPT)
Set C = A.TimeLine.MainSequence.AddEffect(Shape:=B, effectid:=msoAnimEffectXXX, trigger:=msoAnimTriggerXXX)
' 上述代码用于设置添加的动画,其中:
effectid:=msoAnimEffectXXX,表示添加的是哪一种动画
“XXX”代表动画的名称,比如渐变(淡出)动画,那么就在XXX处写上Fade,如果您想自如的添加动画,那么您需要掌握所有PPT自定义动画的英文,建议您下载一个英文版的OFFICE,或者将OFFICE的语言改为英语(没成功过)。
下面提供PPT动画的英文:
trigger:= msoAnimTriggerXXX,代表动画的“开始”设置,将XXX分别替换:
“之前”设置的代码是:WithPrevious
“单击时”设置:OnPageClick
“之后”设置:AfterPrevious
-------------------------------------------------------------------------------------------------
然后我们可以设置细微效果:
我们可以在后面输入
C.timing.duration = X
(用数字替换X代表将动画设置为多少的速度,数字越大速度越慢)
C.timing.AutoReverse = msotrue (或者msofalse,msoture和mosfalse它们分别代表开启自动翻转效果和关闭自动翻转效果)
C.timing.SmoothEnd = msoture (或者msofalse,msoture和mosfalse它们分别代表开启平滑结束和关闭平滑结束效果)
C.timing.SmoothStart= msoture (或者msofalse,msoture和mosfalse它们分别代表开启平滑开始和关闭平滑开始效果)
C.timing.RewindAtEnd = msoture (或者msofalse,msoture和mosfalse它们分别代表开启回到原始状态和关闭原始状态)
C.timing.speed = X (用数字替换X代表将动画设置为多少的速度,数字越大速度越快)
C.timing.Repeatcount = X (用数字替换X代表将动画重复多少次)
C.timing.RepeatDuration = X (用数字替换X代表将动画重复的时间)
C.Exit = true (或者“False”,它们代表该动画是进入动画还是退出动画,其中“True”代表退出动画,“False”代表进入动画。如果是强调和路径动画,比较复杂,我还没有学懂,所以不好意思无法讲解。)
End sub
(最后结束整个语句)
-------------------------------------------------------------------------------------------------
那么我们可以用这些代码制造PPT中没有的动画效果
渐变反转动画:一个物体淡入后淡出,常规设置需要两个动画,VBA只需一个动画代码:
Sub fade()
Dim a As Slide
Dim b As Shape
Dim c As Effect
Set a = ActivePresentation.Slides(1) ' the first slide
Set b = a.Shapes(1) ' shape 1 on first slide
Set c =a.TimeLine.MainSequence.AddEffect(Shape:=b, effectid:=msoAnimEffectFade, trigger:=msoAnimTriggerWithPrevious)
c.Timing.Duration = 2
c.Exit = False
c.timing.autoreverse = msotrue
End Sub
该动画的无限重复,并美化:
Sub fade_repeat()
Dim a As Slide
Dim b As Shape
Dim c As Effect
Set a = ActivePresentation.Slides(1) ' the first slide
Set b = a.Shapes(1) ' shape 1 on first slide
Set c =a.TimeLine.MainSequence.AddEffect(Shape:=b, effectid:=msoAnimEffectFade, trigger:=msoAnimTriggerWithPrevious)
With c
.Timing.Duration = 2
.Exit = False
.timing.autoreverse = msotrue
.timing.SmoothEnd = msotrue
.timing.SmoothStart = msotrue
.timing.repeatcount = 999
End With
End Sub
无限闪烁动画:
Sub spark_repeat()
Dim a As Slide
Dim b As Shape
Dim c As Effect
Set a = ActivePresentation.Slides(1) ' the first slide
Set b = a.Shapes(1) ' shape 1 on first slide
Set c =a.TimeLine.MainSequence.AddEffect(Shape:=b, effectid:=msoAnimEffectFade, trigger:=msoAnimTriggerWithPrevious)
With c
.Timing.speed = 10
.Exit = False
.timing.autoreverse = msotrue
.timing.SmoothEnd = msotrue
.timing.SmoothStart = msotrue
.timing.repeatcount = 999
End with
End Sub
-------------------------------------------------------------------------------------------------
当宏制作好后,在物体上单击鼠标右键——动作设置(2003版),或者在2007版中,打开“插入”选项卡——动作,然后将“宏”复选框勾住,然后选择对应的宏即可。
那么,我们可以选择“鼠标移过”选项卡中的“宏”效果,那么就实现了鼠标移过物体后,出现对应的动画效果了!
推荐朋友们直接新建一个幻灯片,在里面画一个矩形,然后打开VB编辑窗口,直接将蓝色的代码复制入内,然后,在矩形上单击鼠标右键——动作设置——宏——选择刚才的宏——确定——放映幻灯片看效果