Makro i powerpoint indsæt lyd

Jeg har følgende makro som kører aller slides i gennem og indsætter en lyd fil på alle slides. Nu vil jeg gerne have makroen til at gøre sådan at der skiftes til næste slide når lyd filen er færdig. Hvis det skal være helt perfekt skal loopet kører på et variabelt antal slides.




For x = 1 To 31
lyd = "c:\lyd\slide " & x & ".wav"


ActivePresentation.Slides(x).SlideShowTransition.SoundEffect _
    .ImportFromFile lyd
    Next