更改动画动作“飞入”为“飞出”（申请加精）

banjinjiu

自定义动画“飞入”为进入型，“飞出”为退出型，两个动画的effecttype或者effectID的值都相同为2，这样的相反动画动作还有很多，比如“出现”、“消失”（1），“缓慢进入”、“缓慢移出”（7）。如何区分两者的区别，感谢儒道佛，他提供的思路是用动画大师看动作分解，看可见性属性和延迟，我是新手，对动画大师没有研究。
我看过别人的代码是使用.exit的值，.exit=0为进入型；exit=1为退出型，原文没有属于什么型，我自己推测。后来我又想到有动画的复制、粘贴，就是没有动画的更改，我还以为是move呢，哈哈。
再后来就想到先增加动画，再删除原先的动画，不就搞定了。找到动画的序号（第几个点击），使用FindFirstAnimationForClick(Click:=n)，n为1就是第一个动作，删除原来的动画effclick.Delete。
忘记交代，要求设定自定义动画“飞入”，用鼠标选择幻灯片中的图形，再运行。

1. 
   
2. Sub moveEffect() '更改动画飞入为飞出
   
3. Set shp = ActiveWindow.Selection.ShapeRange(1) '要求设定自定义动画飞入，先鼠标选择幻灯片中的图形
   
4. With ActivePresentation.Slides(1).TimeLine.MainSequence.AddEffect(Shape:=shp, effectid:=2) '添加动画飞出
   
5. .Exit = 1 '0为飞入，1为飞出
   
6. End With
   
7. Set sldFirst = ActivePresentation.Slides(1)
   
8. Set effclick = sldFirst.TimeLine.MainSequence.FindFirstAnimationForClick(Click:=1) '查找第1个动作（飞入）
   
9. effclick.Delete '删除第1个动作（飞入）
   
10. End Sub

复制代码

banjinjiu

更改动画动作，特别是相反的动作，网上很少，几乎没有，我2013年4月才正式来到这个家，在家中学习各位大侠的东西，现在回报这个家。
另外为了刚入门的新手，我把自定义动画EffectID文件上传，我这是花了一点时间编辑的文件，希望更多的人来探讨学习。

liucqa

支持一下                  

banjinjiu

liucqa 发表于 2013-8-28 18:26
支持一下

我特别想学习VBA，但是自己能力有限，网上资料少，所以即使有人使用了插件，但是看不到代码，不知道别人的思想、步骤，开这个论坛，大家就是共同提高，取长补短，我感觉在这个家受益匪浅，所以一直想回报这个家，虽然我学习还是浅薄，但是只要有一点能力，还是尽其所能，因为我是从这里出来的，更多的初学者和我一样希望获得基础的知识。

csnAlex

改飞入为飞出不用那么复杂，一句就可以。

[code=vb]
Sub moveEffect() '更改动画飞入为飞出
    ActivePresentation.Slides(1).TimeLine.MainSequence(1).Exit = 1
End Sub
[/code]

banjinjiu

csnAlex 发表于 2013-9-2 12:59
改飞入为飞出不用那么复杂，一句就可以。

对，确实技术高。
麻烦你个事情，我有一个课程表，需要分成教师表和课程表，都设计好了，就缺编程，地址在下面。感谢。
http://club.excelhome.net/thread-1052238-1-1.html

leikaiyi123

ActiveWindow.Selection.SlideRange.TimeLine.MainSequence.FindFirstAnimationFor(Shape:=ActiveWindow.Selection.ShapeRange(1)).Exit = 1

chuhaiou

csnAlex 发表于 2013-9-2 12:59
改飞入为飞出不用那么复杂，一句就可以。

飞出为何加不了声音如.AnimationSettings.SoundEffect.Name = "风铃"

chuhaiou

为什么更改正后，原来动画效果中的声音没有了？

dongdonggege

chuhaiou 发表于 2019-5-21 10:10
为什么更改正后，原来动画效果中的声音没有了？

这么多年了，大师还在坚持研究。
1、首先确保，在win7系统中，office安装后，“C:\Program Files (x86)\Microsoft Office\OFFICE11\“下，有MEDIA文件夹，里面大约20个文件。
如果没有，请到这里，http://club.excelhome.net/forum. ... ead&tid=1273097，下载MEDIA文件夹。
2、编辑模式下使用如下程序
Sub lingsheng() '
    ActiveWindow.Selection.ShapeRange.AnimationSettings.SoundEffect.ImportFromFile "C:\Program Files (x86)\Microsoft Office\OFFICE11\MEDIA\chimes.wav"
End Sub
也可以简写成：ActiveWindow.Selection.ShapeRange.AnimationSettings.SoundEffect.ImportFromFile "chimes.wav"
你说的那种好像没有。
3、如出现错误，到锐普网参考我的帖子《自定义动画参数自我学习 》：
http://www.rapidbbs.cn/forum.php ... id=67226&extra=
4、许多的我也不懂，大家互相切磋。