VBA 4 PowerPoint

Topic

New Reply

Need VBA help for PowerPoint. How can I script animation options via VBA?

Go to this post for more info
http://www.wopr.com/cgi-bin/w3t/showthread…lapsed&sb=5link

Reply | Quote

Replies

Here’s some code appropriated from QUE’s Special Edition Using VBA 5:

Sub Fly_From_Left()
ActiveWindow.Selection.SlideRange.Shapes(“Rectangle 5”).Select
With ActiveWindow.Selection.ShapeRange.AnimationSettings
.Animate = msoTrue
.EntryEffect = ppEffectFlyFromLeft
.TextLevelEffect = ppAnimateByAllLevels
.AnimateBackground = msoTrue
End With
End Sub

Reply | Quote