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