如何在Powerpoint中启动幻灯片时打开表单

Question

我收到了以下代码：

Sub OnSlideShowPageChange()
    Dim i As Integer

    i = ActivePresentation.SlideShowWindow.View.CurrentShowPosition

    If (i = 1) Then
        If Not (UserForm1.Visible) Then            
            UserForm1.Show
        End If
    End If
End Sub

此代码保存在通用模块（“Module1”）中。实际上，它会在第一张幻灯片显示时打开表单。问题是幻灯片打开时出现“黑色背景”的错误。当我移动到其他幻灯片时，它工作正常（“黑色背景”desapears）。但是，当我关闭Powerpoint时，会显示着名的错误消息“Powerpoint已停止工作”。

有人可以帮我解决这个问题吗？

提前致谢。

---

大卫，

这是您要我添加的打印屏幕，用于分析：

按钮上的表格应为黑色，如图所示。当我关闭Powerpoint时，会显示消息“Powerpoint已停止工作”。

再次感谢。

Answer 1

表单初始化时是否有代码运行？

如果Userform完全空白，你会得到错误。