Animation by Paragraph

[El_Ingeniero]

Dear all,

I've been racking my brains for a while now and I have no idea why this simple code doesn't work. Powerpoint Plus 2019.

I want VBA to apply Fade in to a bullet list in a textbox or placeholder, each line appearing by Paragraph on click anywhere on slide. Code seems fine, but the last line triggers an error: "Compile error: Method or Data member not found".

Any help appreciated!! Thanks in advance

Sub ApplyTextAnimation()
Dim slide As slide
Dim shape As shape
Dim effect As effect
Set slide = ActivePresentation.Slides(1)
Set shape = slide.Shapes(1)
Set effect = slide.TimeLine.MainSequence.AddEffect(shape:=shape, effectId:=msoAnimEffectFade, trigger:=msoAnimTriggerOnPageClick)
effect.TextUnitEffect = msoAnimTextUnitByParagraph
End Sub