Cara Membuat Splash Screen dengan VBA Excel

More Info:

Splash Screen

Secara sederhananya, splash screen merupakan tampilan awal sebelum sebuah Aplikasi yang dibuat dengan VBA Execl terbuka. Pada splash screen kita bisa menampilkan informasi apapun, bisa berupa image untuk menampilkan gambar yang diinginkan digabungkan dengan beberapa text berupa nama aplikasi, versi aplikasi, info profil, pembuat aplikasi, dan lain sebagainya.

Langkah-langkah Cara Membuat Splash Screen

Untuk membuat form splash screen dengan vba excel cukup mudah, bisa dilakukan dengan beberapa langkah seperti berikut:

Buka visual basic editor (atau dengan ALT + F11)
Buat sebuah user form dan berinama, misalnya MySplashScreen. Setelah user form MySplashScreen dibuat, untuk mempercantiknya silahkan buka toolbox lalu tambahkan beberapa image dan beberapa label untuk menampilkan beberapa informasi. Atur caption form, property image dan label tersebut sesuai kebutuhan, hasilnya misalnya seperti pada tampilan user form MySplashScreen berikut:
Tambahkan (silahkan copas) code berikut pada user form MySplashScreen yang sudah dibuat tadi

Option Explicit 'alt
'untuk menghilankan button close user form MySplashScreen
Const GWL_STYLE = -16
Const WS_CAPTION = &HC00000
Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Declare PtrSafe Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub UserForm_Initialize()
Dim lngWindow As Long, lFrmHdl As Long
lFrmHdl = FindWindowA(vbNullString, Me.Caption) 'USER FORM HARUS PAKE CAPTION
lngWindow = GetWindowLong(lFrmHdl, GWL_STYLE)
lngWindow = lngWindow And (Not WS_CAPTION)
Call SetWindowLong(lFrmHdl, GWL_STYLE, lngWindow)
Call DrawMenuBar(lFrmHdl)

'SET DEFAULT HEIGHT + WIDTH FORM
Me.Height = 135
Me.Width = 347
End Sub
Private Sub UserForm_Activate()
'atur waktu penayangan userform MySplashScreen sesuai kebutuhan
Application.OnTime Now + TimeValue("00:00:05"), "UnloadSPLASH"
End Sub
Buat sebuah module dan tambahkan beberapa code seperti berikut:
Option Explicit 'alt
Sub LoadSPLASH()
MySplashScreen.Show
End Sub

Sub UnloadSPLASH()
Unload MySplashScreen
End Sub

Langkah-langkah Menampilkan Splash Screen

Untuk menampilkan form splash screen pada saat aplikasi excel dibuka pertamakali, tambahkan code berikut pada thisworkbook
Private Sub Workbook_Open()
MySplashScreen.Show 'Call LoadSPLASH
End Sub
Untuk menampilkan form splash screen setelah aplikasi dibuka
- Tambahkan object (misalnya insert sebuah shapes) pada sheet aktif sperti berikut
- Arahkan event click object tersetbut untuk menampilkan splash screen dengan cara
  Klik kanan object ⟾ Assign Macro ⟾ Pada Macro Name, pilih LoadSPLASH (sub modul yang sudah dibuat sebelumnya) seperti berikut: