如何在Excel启动时创建启动画面?

发布于 2024-11-30 15:15:11 字数 75 浏览 0 评论 0原文

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

I am new to excel programming and I want to create a popup screen when my excel file is opened so can anyone tell me how to create a splash screen when excel start?

如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。

扫码二维码加入Web技术交流群

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。

评论(1

千鲤 2024-12-07 15:15:11

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

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

就像我上面所说的,这个问题在跨宇宙的论坛上得到了广泛的处理。

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 有一个宏,可以在表单,然后在它完全不可见时将其关闭。

Build a custom form that consists entirely of the desired splash image. Then call that form for a set period of time upon the load of your spreadsheet/app.

UPDATE Now with code (or at least links):

Like I said above, this question is dealt with extensively on forums across the inter-verse.

DailyDose seems to have the simplest and most straightforward implementation of the splash screen, making a few important points about running the form as modal to allow your app code to keep running behind the splash.

The code is very simple:

    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 has a macro that'll run a slow fade on the form and then close it when it gets completely invisible.

~没有更多了~
我们使用 Cookies 和其他技术来定制您的体验包括您的登录状态等。通过阅读我们的 隐私政策 了解更多相关信息。 单击 接受 或继续使用网站,即表示您同意使用 Cookies 和您的相关数据。
原文