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

Question

我在 Windows 10 上使用 PowerPoint 2016。幻灯片 A 有一个文本框和一个命令按钮。 当命令按钮被选中时，一个布尔gbool被设置并且演示文稿前进到幻灯片 B。

ActivePresentation.SlideShowWindow.View.GotoSlide <slideB slideindex> 

在幻灯片 B 上，有两个音频媒体对象，AM1 和 AM2。 我想要发生的是，如果gbool为 True，那么 AM1 应该播放，否则 AM2 应该播放。 我已经使用静音标志来尝试这个：

Shape.MediaFormat.Muted = False

我的问题是，这有时有效，有时两个音频媒体都会播放。 代码如下所示：

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

关于随机行为的任何想法，有没有更好的方法来做到这一点？

Answer 1

我想我有一个答案——至少这种方法一直有效。 我现在不使用 MediaFormat 对象的静音属性，而是使用播放设置对象的 PlayOnEntry 属性。 所以变化看起来像这样：

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

如果有更好的方法，我将不胜感激。