PowerPoint VBA shape timing duration

Question

I need help changing the duration time of an existing shape in a PowerPoint slide using vba. All I can find is changing the duration of a new effect added. I need to change the duration time of an existing shape with a defined timing duration.

Answer 1

This is the general idea, please customize for your code:

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