Animation by Paragraph

[John Wilson]

Sub ApplyTextAnimation()
Dim osld As slide
Dim oshp As shape
Dim oeff As effect
Set osld = ActivePresentation.Slides(1)
Set oshp = osld.Shapes(2)
Set oeff = osld.TimeLine.MainSequence.AddEffect(shape:=oshp, effectId:=msoAnimEffectFade, Level:=msoAnimateTextByFirstLevel, trigger:=msoAnimTriggerOnPageClick)
End Sub

However you mentioned Shapes(1) - if you are trying to animate a Title Placeholder by paragraph it will always fail even if you use the GUI because titles only have one (real) paragraph.

PS TextUnitEffect is legacy code from pre 2007 versions + it's not a good idea to use Shape /Slide etc for object variables of the same type - it will soon lead to confusion.