vba - 通过 VBA 在 PowerPoint 2010 中切换黑屏选项的问题

Question

我正在尝试确定如何使用 VBA 将 Powerpoint 演示文稿加黑/取消加黑。我修改了一个我在网上找到的 VBA 宏(http://my.safaribooksonline.com/9780470634004/670?bookview=search——“掌握 VBA for Microsoft Office 2010；第 670 页”)

Sub Test1()
    With ActivePresentation.SlideShowWindow.View
        .State = ppSlideShowBlackScreen
        .State = ppSlideShowRunning
    End With
End Sub

将状态设置为 ppSlideShowBlackScreen确实使屏幕变黑。根据这本书，“要关闭黑屏或白屏并重新开始运行，请将 State 属性设置为 ppSlideShowRunning”。

如果我在 PPT 2007 中运行它，它会按预期工作 - 看起来几乎没有发生任何事情(我想屏幕会变黑几分之一秒然后恢复正常)。注释掉第二行确实会显示黑屏，这表明这是按预期工作的。

但是，如果我在 PPT 2010 中运行此宏，屏幕会变黑并保持黑色。无论我将状态设置为什么，都无法使屏幕恢复到原始状态。

我试过 ppSlideShowWhiteScreen & 它显示一个完全白色的屏幕，但就是这样。

我试过 ppSlideShowPaused同样，但它没有做任何事情

如果我使用 PPT 菜单中的“黑色”屏幕选项，屏幕会变黑并且该选项更改为“非黑色”屏幕。使用它确实会使屏幕恢复正常。此外，使用键盘快捷键(“b”)将在黑色和正常模式之间切换。

因此，在 PPT 2010 中必须有一种方法可以做到这一点，但由于某种原因，VBA 方法无法正常工作。有任何想法吗？

Answer 1

Sub Test1()
    With ActivePresentation.SlideShowWindow.View
        .State = ppSlideShowBlackScreen
        If ppSlideShowDone Then
        .State = ppSlideShowWhiteScreen
        End If
    End With
End Sub