PowerPoint VBA 形状计时持续时间

【问题标题】：PowerPoint VBA shape timing durationPowerPoint VBA 形状计时持续时间
【发布时间】：2020-04-06 00:44:42
【问题描述】：

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

【问题讨论】：

标签： vba powerpoint shapes animatewithduration

【解决方案1】：

这是大致思路，请根据您的代码自定义：

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

【讨论】：

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