Add triggered animation to video

I am using the following code to add triggered animation to a shape:
Appear animation to a shape
Play animation to Media

ActiveWindow.Selection.SlideRange.Shapes(Selected_Obj_Name).Select 'Select the triggering object
ActiveWindow.Selection.SlideRange.Shapes(Cur_Obj_Name).Select Replace:=False 'Select ALSO the triggered object
Set oshpR = ActiveWindow.Selection.ShapeRange
Set oshp = oshpR(1)

If oshpR(oshpR.Count).Type <> 16 Then 'Not a Media - Add Appear
Set oeff = osld.TimeLine.InteractiveSequences.Add(1) _
.AddEffect(oshpR(Cur_Obj_Name), msoAnimEffectAppear, , msoAnimTriggerOnShapeClick)
oeff.Timing.TriggerShape = oshp
oeff.Exit = False 'Appear
oeff.Timing.TriggerType = msoAnimTriggerWithPrevious
End If
If oshpR(oshpR.Count).Type = 16 Then 'a Media - Add Play
Set oeff = osld.TimeLine.InteractiveSequences.Add(1) _
.AddEffect(oshpR(Cur_Obj_Name), msoAnimEffectMediaPlay, , msoAnimTriggerOnShapeClick)
oeff.Timing.TriggerType = msoAnimTriggerWithPrevious
End If


The code for the Shape works just fine and adds appear animation triggered on the triggering object

The code for the Media works, but it adds the play animation triggered on itself instead to be triggered on the triggering object.

Any idea why it works fine for non-media and does not work for media ?

Thanks for your help !!!