如何创建启动屏幕时，Excel启动

Question

我是excel编程的新手，我想在打开excel文件时创建一个弹出屏幕，所以有人能告诉我如何在excel启动时创建一个启动屏幕吗?

Answer 1

构建一个完全由所需的splash图像组成的自定义表单。然后在加载电子表格/应用程序时调用该表单一段时间。

现在更新代码(或至少链接):

就像我上面说的，这个问题在跨宇宙的论坛上被广泛讨论。

DailyDose似乎有最简单和最直接的闪屏实现，做了一些关于运行表单作为模态的要点，以允许你的应用代码在闪屏后继续运行。

代码很简单:

    Sub StartProgram()
        Dim dtDelay As Date
        dtDelay = Now
        ufSplash.Show
        ‘Do initialization stuff
         If Now < (dtDelay + TimeSerial(0, 0, 5)) Then
             Application.Wait dtDelay + TimeSerial(0, 0, 5)
         End If
         Unload ufSplash
    End Sub

VBA Express有一个宏，将运行一个缓慢的淡出的形式，然后关闭它，当它完全不可见。