Хотите оригинально поздравить с каким-нибудь праздником коллегу по работе? Установите на его компьютере поздравление-сюрприз от VBA Excel.
Как это работает?
Поздравляемый включает свой компьютер, на котором после загрузки Windows, из папки «Автозагрузка» открывается файл Excel с поздравлением (форма с поздравлением разворачивается на весь экран).
Что для этого нужно?
- Создайте файл Excel с поддержкой макросов.
- Сохраните его в папку «Автозагрузка». Обычно, путь к ней таков:
C:\Users\user\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup. - Откройте редактор VBA, создайте пользовательскую форму и добавьте на нее три элемента управления
Label. - Вставьте в модули книги и формы следующие процедуры:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 |
' В модуль книги Private Sub Workbook_Open() UserForm1.Show End Sub 'В модуль формы Private Sub UserForm_Initialize() Dim colForm&, colTxt&, c1$, c2$, c3$ colForm = RGB(0, 0, 255) 'Цвет формы (синий) colTxt = RGB(255, 255, 255) 'Цвет текста (белый) c1 = "Привет!" 'Заголовок c2 = "Поздравляю с Днем рождения!!!" 'Поздравление c3 = "Твой Комп" 'Подпись With Application .DisplayFullScreen = True Me.Width = .Width Me.Height = .Height .DisplayFullScreen = False End With With Me .Caption = "" .BackColor = colForm End With With Label1 .Caption = c1 .BackColor = colForm .TextAlign = fmTextAlignCenter .Font.Size = 40 .ForeColor = colTxt .Width = Me.Width .Height = 50 .Top = Me.Height / 3 .Left = 0 End With With Label2 .Caption = c2 .BackColor = colForm .TextAlign = fmTextAlignCenter .Font.Size = 50 .ForeColor = colTxt .Width = Me.Width .Height = 60 .Top = Me.Height / 2.4 .Left = 0 End With With Label3 .Caption = c3 .BackColor = colForm .TextAlign = fmTextAlignCenter .Font.Size = 30 .ForeColor = colTxt .Width = Me.Width .Height = 40 .Top = Me.Height / 1.8 .Left = 0 End With End Sub |
- Сохраните книгу.
Примечания
- Каждому элементу Label можно задать свой размер и цвет текста.
- Другие варианты разворачивания формы на весь экран, если вдруг не получится с этим кодом, можно посмотреть в статье Пользовательская форма на весь экран.
Содержание рубрики VBA Excel по тематическим разделам со ссылками на все статьи.