SlideShowTransition.Duration property (PowerPoint)
Returns or sets the length of an animation in seconds. Read/write.
expression A variable that represents a Timing object.
The following example adds a shape and an animation to that shape, then sets its animation duration.
Sub AddShapeSetTiming() Dim effDiamond As Effect Dim shpRectangle As Shape 'Adds shape and sets animation effect Set shpRectangle = ActivePresentation.Slides(1).Shapes _ .AddShape(Type:=msoShapeRectangle, Left:=100, _ Top:=100, Width:=50, Height:=50) Set effDiamond = ActivePresentation.Slides(1).TimeLine.MainSequence _ .AddEffect(Shape:=sh, effectId:=msoAnimEffectPathDiamond) 'Sets duration of effect effDiamond.Timing.Duration = 5 End Sub
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.