With $oPpt.ActivePresentation.Slides(5).Shapes(1).AnimationSettings
.Animate = True
.TextLevelEffect = 16;ppAnimateByAllLevels
.SoundEffect.ImportFromFile ("d:\金缕衣.mp3")
.SoundEffect.Play
.SoundEffect.Name="风铃"
EndWith
求指点
怎么改才能放音乐