powerpoint vba中的动画设置

Question

在vba（PowetPoint）中，我将动画效果添加到形状对象中。 但是如果添加了声音效果，我设置的任何效果都会消失而没有声音效果。 以下是示例代码。

我将效果分为一种效果，另一种是声音效果。 但我无法解决。

Sub hoge()

    Const path As String ="./sound.wav"

    Dim ppSld  As PowerPoint.Slide
    Dim shp    As Shape

    Set ppSld = ActivePresentation.Slides(1)
    Set shp = ppSld.Shapes.AddShape(msoShapeRectangle, 0, 0, 10, 10)

    With ppSld.TimeLine.MainSequence.AddEffect( _
          Shape:=shp _
        , effectId:=msoAnimEffectFly)
        effect.Timing.Duration = 10  'duration time
        effect.EffectInformation.SoundEffect.ImportFromFile path  'sound
    End With
End Sub