ppt中宏的初步.docVIP

VBA教程：第一步，新建一张幻灯片，在上面画一个图形，比如一个矩形。第二步：您需要在您的图形上添加动画代码。通常添加动画都是直接通过右击选择“自定义动画”（2003版），或者是打开“动画”选项卡来进行设置（2007版）。我们可以用VBA代码添加一个物体的动画。在2003版中，打开“工具”菜单中的“宏”选项中的“宏”按钮。在输入框内输入您需要的宏的名称，比如Macro，将其命名，再单击“创建”按钮，创建刚才的那个宏，然后软件会自动跳至Visual Basic编辑器。 2011-5-4 17:41 上传 下载附件 (18.56 KB) 在2007版中，打开“视图”选项卡中的“宏”按钮——在输入框内输入您需要的宏的名称，比如Macro，将其命名，再单击“创建”按钮，创建刚才的那个宏，然后软件会自动跳至Visual Basic编辑器。 2011-5-4 17:50 上传 下载附件 (17.99 KB) 2011-5-4 17:41 上传 下载附件 (8.23 KB) 在“Microsoft Visual Basic”窗口内删除所有已写好的代码，然后开始输入新的动画代码。 2011-5-4 17:41 上传 下载附件 (34.3 KB) 添加动画代码： 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） 2011-5-4 17:41 上传 下载附件 (74.32 KB) Set C = A.TimeLine.MainSequence.AddEffect(Shape:=B, effectid:=msoAnimEffectXXX, trigger:=msoAnimTriggerXXX) 上述代码用于设置添加的动画，其中： effectid:=msoAnimEffectXXX，表示添加的是哪一种动画 “XXX”代表动画的名称，比如渐变（淡出）动画，那么就在XXX处写上Fade，如果您想自如的添加动画，那么您需要掌握所有PPT自定义动画的英文，建议您下载一个英文版的OFFICE，或者将OFFICE的语言改为英语（没成功过）。 下面提供PPT动画的英文： 2011-5-4 17:41 上传 下载附件 (52.61 KB) 2011-5-4 17:41 上传 下载附件 (43.95 KB) 2011-5-4 17:41 上传 下载附件 (4.19 KB) trigger:= msoAnimTriggerXXX，代表动画的“开始”设置，将XXX分别替换： “之前”设置的代码是：WithPrevious “单击时”设置：OnPageClick “之后”设置：AfterPrevious 然后我们可以设置细微效果： 我们可以在后面输入 C.timing.duration = X（用数字替换X代表将动画设置为多少的速度，数字越大速度越慢） C.timing.AutoReverse = msotrue (或者msofalse，msoture和mosfalse它们分别代表开启自动