使用 VBA 在 Powerpoint 中的一张幻灯片上静音和取消静音多个音频媒体

Question

I use PowerPoint 2016 on Windows 10. Slide A has a text box and a command button. When the command button is selected, a boolean gbool is set and the presentation advances to Slide B.

ActivePresentation.SlideShowWindow.View.GotoSlide <slideB slideindex> 

On Slide B, there are two audio media objects, AM1 and AM2. What I want to happen is if gbool is True then AM1 should play else AM2 should play. I have used the muted flag to attempt this:

Shape.MediaFormat.Muted = False

The problem I have is that, this sometimes works, other times both audio medias will play. The code looks like this:

Private Sub CommandButton1_Click()
    Dim osl As Slide, oSh As Shape, gbool As Boolean
    gbool = function()

    Set osl = ActivePresentation.Slides(<slideB slideindex>)
    Set oSh = osl.Shapes("AM1")
    oSh.MediaFormat.Muted = gbool
    Set oSh = osl.Shapes("AM2")
    oSh.MediaFormat.Muted = Not gbool

   ActivePresentation.SlideShowWindow.View.GotoSlide <slideB slideindex>
End Sub

Any ideas for the random behaviour and is there a better way to do this?

Answer 1

I think I have an answer - at least this method works all the time. Instead of using the muted property of the MediaFormat object, I now use the PlayOnEntry property of the Play Settings object. So the change looks like this:

Set osl = ActivePresentation.Slides(<slideB slideindex>)
Set oSh = osl.Shapes("AM1")
oSh.AnimationSettings.PlaySettings.PlayOnEntry = gbool
Set oSh = osl.Shapes("AM2")
oSh.AnimationSettings.PlaySettings.PlayOnEntry = Not gbool

If there is a better way, I would appreciate to know it.