PowerPoint VBA形状计时持续时间

我需要使用vba更改PowerPoint幻灯片中现有形状的持续时间的帮助。

---

我所能找到的就是改变一个新效果的持续时间。我需要使用定义的计时持续时间更改现有形状的持续时间。

这是一般想法，请为您的代码自定义：

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

---

快速提问。项目编号是形状的索引ID吗？项目编号将是动画，如动画窗格中所示。第（3）项将是第三部动画。约翰，非常感谢。我的应用程序现在已完成。