如何在VBA中实现消失的动画？
如何在VBA中实现消失的动画？
提问于 2016-03-11 17:13:35
我试图在VBA过程中测试形状上的效果动画。
我已经实现了一个在MainSequence中添加一些新的动画，定义在时间线中的位置.但我无法创造出令人不快的动画。
我在代码的开头检查了--有些已经there...and了-- EffectType似乎返回了与相关的出现动画相同的值，因此我很遗憾地认为，没有办法在VBA中创建不匹配的动画。
请告诉我我错了，我必须在300多张幻灯片上做同样的创作…
回答 3
Stack Overflow用户
发布于 2018-07-11 23:29:14
是的，你错了，不管文件是什么.我想你已经知道了。
诀窍是这样的。若要添加正在消失的动画，必须添加显示动画，但将其“退出”属性设置为“msoTrue”
看看下面的代码示例：
Private Sub SetAnimation()
Dim effNewEffect As Effect
With ActiveWindow.View.Slide
Set effNewEffect = .TimeLine.MainSequence.AddEffect(.Shapes(.Shapes.Count), msoAnimEffectAppear, trigger:=msoAnimTriggerWithPrevious, Index:=-1)
End With
effNewEffect.Timing.TriggerDelayTime = 1.0
effNewEffect.Exit = msoTrue
End Sub它将在当前幻灯片的最后一个形状中添加一个消失动画，作为MainSequence中的最后一个，延迟1.0s到之前的动画。
Stack Overflow用户
发布于 2016-03-15 15:42:10
我找到的解决方案是在"Effect“对象上使用"Exit”属性。
默认情况下，"Exit“属性是msoFalse。
Stack Overflow用户
发布于 2016-10-17 16:48:04
真不敢相信我什么都有答案，除了这里。
- 选择要消失的对象
- 转到动画，选择淡出(红色的)
- 打开动画窗格
- 转到对象的单击向下菜单。
- 选择效果选项
- 转到计时菜单
- 单击触发器
- 点击“点击开始效果”，并找到与动画面板上的对象号匹配的对象号。
- 工作完成了。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/35946102
复制相关文章
相似问题
腾讯云开发者
