如何打开一个窗体幻灯片时在Powerpoint中

启动，我得到了下面的代码：如何打开一个窗体幻灯片时在Powerpoint中

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

这段代码保存在通用模块（“模块1”）英寸事实上，它将首次幻灯片演示的形式打开。问题在于幻灯片打开时出现“黑色背景”严重错误。当我移动到其他幻灯片时，它工作正常（“黑色背景”desapears）。但是，当我关闭Powerpoint时，显示着名的错误消息“Powerpoint已停止工作”。

有人可以帮我处理这笔交易吗？

在此先感谢。

大卫你好，

这是你叫我来添加，进行分析PRINTSCREEN： Powerpoint Slide1 Screen

的钮的形式应该是黑色，如图所示。当我关闭Powerpoint时，显示“Powerpoint has stopped working”消息。

再次感谢。

来源

2014-06-25 Thor My

你可以添加一个截图，你的意思是“黑色背景”，这不是我熟悉的术语。顺便说一句，当我在测试文件上运行它时，此代码按预期执行。好像你的错误必须来自代码中的其他地方，而不是简单的userform.show事件... –

好的，如果你真的实现我们讨论的代码[这里]（http://stackoverflow.com/questions/24370969/how-to-trap-key-events-in-powerpoint-using-vba），这些东西非常先进。错误是绝对**不**发生，因为您显示的10行代码，以上... –

如何刷新（或重新加载，重绘等...）Slide1？ –

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

如果Userform只是完全空白，你会得到错误吗？

来源

2014-07-10 17:17:37

如何打开一个窗体幻灯片时在Powerpoint中

回答

相关问题