Как создать экран Excel Всплеск
В современном мире всем нравится заставка, появляющаяся на экране на несколько секунд при открытии любого файла. Большинство людей не знают о заставке. Зритель обязательно впечатлится.
Нам нужно выполнить следующие шаги:
Щелкните вкладку «Разработчик». В группе «Код» выберите Visual Basic
-
Нажмите «Вставить», затем «Пользовательская форма»
Форма пользователя откроется из панели инструментов; выберите Label & draw в форме пользователя
-
Переименуйте поле метки в «Мой экран-заставку»
Чтобы увеличить размер шрифта Нажмите на поле «Метка» и щелкните правой кнопкой мыши и выберите «Свойства»
-
Из окна свойств; выберите «Шрифт» и нажмите три точки
-
Откроется диалоговое окно «Шрифт»
-
Выберите нужный шрифт и увеличьте его размер примерно до 20, чтобы он стал больше
Следующим шагом является вставка изображения из панели инструментов, выберите изображение и нарисуйте немного больше
Щелкните правой кнопкой мыши изображение и выберите «Свойства». Щелкните три точки в меню «Изображение» в разделе «Свойства»
-
Выберите путь, по которому будет сохранено изображение
-
Так теперь выглядит Userform
Дважды щелкните эту книгу * на панели проекта
Введите следующий код в VBE: —
Private Sub Workbook_Open ()
UserForm1.Show
End Sub
Для инициализации пользовательской формы; дважды щелкните пользовательскую форму, кроме метки или изображения. Появится следующая кодировка
Замените приведенный выше код следующим кодом: —
Частная подпрограмма UserForm_Activate ()
Application.OnTime Now + TimeValue («00:00:05»), «Quitform»
End Sub
Теперь нам нужно добавить код в форму выхода *, который мы назначили форме пользователя, чтобы он активировался через 5 секунд.
-
Нажмите «Вставить», затем «Модуль»
-
Это создаст новый модуль.
-
Введите следующий код в модуль
-
Сохраните файл, а затем откройте его.
Следуя этому пути, мы можем создать экран-заставку в Microsoft Excel через VBA.