PowerPoint VBA形状计时持续时间

Question

我需要帮助，使用vba更改PowerPoint幻灯片中现有形状的持续时间。我所能找到的只是改变添加新效果的持续时间。我需要使用定义的时间长度来更改现有形状的时间长度。

Answer 1

这是总体思路，请根据您的代码进行自定义：

Sub SetTiming()
    Dim EffAnim As Effect
    Set EffAnim = ActivePresentation.Slides(1).TimeLine.MainSequence.Item(1)
    EffAnim.Timing.Duration = 5
End Sub