in PowerPoint vba we have a code that have this error:

sequense (unknown member) : invalid request

if i delete this part of the code (Level:=msoAnimateChartBySeries) then its works!!!

but i need this & i do’nt want to delete it. so please help me …

thanks

Dim PPApp As Object
Dim ppshape As Shape
Dim oEffect As Effect

new_sld_count = ActivePresentation.Slides.Count

For Each ppshape In ActivePresentation.Slides(new_sld_count).Shapes

If ppshape.Type = msoChart Then
Set oEffect= ActivePresentation.Slides(new_sld_count).TimeLine.MainSequence.AddEffect(Shape:=ppshape, _
effectId:=msoAnimEffectFade,Level:=msoAnimateChartBySeries)

end if

Next ppshape