如何利用vba判断powerpoint中自定义动画播放的速度
如何利用VBA判断已经完成的powerpoint作品中某张幻灯片中的某个对象的自定义动画效果及播放速度是否正确。
如：设置第5张幻灯片的正文动画为“展开”效果，速度为“中速”，怎样利用VBA判断其操作是否正确。
[解决办法]

If ActivePresentation.Slides(5).SlideShowTransition.EntryEffect = ppEffectBoxOut And _
   ActivePresentation.Slides(5).SlideShowTransition.Speed = ppTransitionSpeedMedium Then
   MsgBox "right"
Else
   MsgBox "wrong"
End If

[解决办法]

If ActivePresentation.Slides(2).TimeLine.MainSequence.Item(1).Shape.Name = "Rectangle 2" Then
If ActivePresentation.Slides(2).TimeLine.MainSequence.Item(1).Timing.Duration = 2 And _
 ActivePresentation.Slides(2).TimeLine.MainSequence.Item(1).EffectParameters.Direction = msoAnimDirectionOut Then
 MsgBox "right"
 Else
 MsgBox "wrong"
 End If
 End If

[解决办法]
有不明白的再问。
[解决办法]
把你的ppt发给我， dsd999@sohu.com
[解决办法]

Sub AddAnimation()

    Dim sldActive As Slide
    Dim shpSelected As Shape
    Dim slEffect As Effect

    Set sldActive = ActivePresentation.Slides(5)
    Set shpSelected = sldActive.Shapes(1)

    Set slEffect = sldActive.TimeLine.MainSequence.AddEffect(Shape:=shpSelected, effectId:=msoAnimEffectBox)
        
    slEffect.EffectParameters.Direction = msoAnimDirectionOut
    slEffect.Timing.Duration = 2

End Sub

[解决办法]
把这段代码拷贝到vbe的里。

把光标放到过程代码的任意地方。

运行后就能看到那个shape添加了动画。


[解决办法]
把ppt发给你了。

ppt里有两个过程，执行完AddAnimation 后 执行CheckAnimation。


[解决办法]
加判断。

Sub CheckAnimation()

If ActivePresentation.Slides(5).TimeLine.MainSequence.Count > 0 Then
If ActivePresentation.Slides(5).TimeLine.MainSequence.Item(1).Timing.Duration = 2 And _
 ActivePresentation.Slides(5).TimeLine.MainSequence.Item(1).EffectParameters.Direction = msoAnimDirectionOut Then
 MsgBox "right"
 Else
 MsgBox "wrong"
 End If
 Else
 MsgBox "no animation"
 End If

End Sub

------解决方案--------------------

引用:

万分感谢，基本可以了。谢谢

记着结帖，有新问题了再发帖。