vba - 如何在 VBA 中实现消失的动画？

Question

我正在尝试在 VBA 程序中测试形状上的效果动画。

我已经实现了在 MainSequence 添加一些新动画，定义在时间轴中的哪个位置......但我无法创建消失的动画。

我检查了一些已经存在的代码的开头......并且 EffectType 似乎返回与相关出现动画相同的值，所以我很遗憾地相信没有办法在 VBA 中创建消失的动画。

请告诉我我错了，我必须在 300 多张幻灯片上做同样的创作...

Answer 1

是的，你错了，但是文档是......好吧，我想你已经知道了。

这是诀窍。要添加消失动画，您必须添加出现动画，但将其“退出”属性设置为“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

它将向当前幻灯片中的最后一个 Shape 添加一个消失动画，作为 MainSequence 中的最后一个，与前一个动画延迟 1.0 秒。