Как создать заставку при запуске Excel? - PullRequest
Новая
       21

Как создать заставку при запуске Excel?

3 голосов
/ 20 августа 2011

Я новичок в программировании Excel и хочу создать всплывающее окно при открытии моего файла Excel, поэтому кто-нибудь может сказать мне, как создать заставку при запуске Excel?

1 Ответ

5 голосов
/ 20 августа 2011

Создайте пользовательскую форму, которая полностью состоит из желаемого изображения-заставки.Затем вызовите эту форму в течение определенного периода времени после загрузки вашей электронной таблицы / приложения.

ОБНОВЛЕНИЕ Теперь с кодом (или хотя бы ссылками):

Как я уже говорил выше, этот вопросшироко обсуждается на форумах в разных стихах.

Кажется, что 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 есть макрос, который будет запускать медленное затухание в форме и затем закройте его, когда он станет полностью невидимым.

...