Menampilkan Icon Pada Title Aplikasi/UserForm Vba Excel

Menampilkan Icon pada title UserForm akan membuat tampilan Aplikasi Vba Excel lebih profesional. Standarnya properties UserForm Vba Excel tidak ada fasilitas ini, untuk menampilkan icon kita bisa menggunakan fungsi API sehingga icon akan terlihat seperti gambar yang ada di bawah.

Pelajari kode-kode yang mempercantik tampilan aplikasi. Aplikasi dengan tampilan bagus lebih menarik untuk dilihat dan menimbulkan kesan penasaran.
Icon Pada Title Aplikasi/UserForm Vba Excel
Admin sangat menyarankan bagi yang sedang mempelajari kode Vba Excel agar membuat file contoh penerapan kode. Dengan membuat file contoh penerapan kode akan mempercepat memahami penggunaan dan fungsi dari kode yang diterapkan

Ikuti langkah-langkah berikut agar Icon Tilte Aplikasi Muncul :

Buka Vba Excel ==>> Dowload File Aplikasi Icon Title
  • Buat Sebuah UserForm
  • Tambahkan Image Control dari Tollbox 
  • Properties Image Controlnya, pilih bagian Picture dan masukkan gambar berformat *.ico yang akan menjadi Icon pada UserForm ====>> Download File Ico Sebagai Percobaan
  • Setelah Icon masuk selanjutnya Klik Kanan UserForm dan Klik View Code
  • Selanjutnya masukkan Code seperti gambar di bawah ini, Perhatikan Garis Merah dan Panah Merah sesuaikan dengan Name pada Properties Image , Garis Biru dan Panah Biru sesuaikan dengan Name UserForm yang anda buat.

Code Pada Option Explicit :
Option Explicit
Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hWnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
LParam As Any) As Long
Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Const WM_SETICON = &H80
Private Const ICON_SMALL = 0&
Private Const ICON_BIG = 1&
Dim hWnd As Long
 Code Pada UserForm_Initialize()
Private Sub UserForm_Initialize()
Image8.Visible = False
hWnd = FindWindow(vbNullString, LoginUser.Caption)
Call SendMessage(hWnd, WM_SETICON, ICON_SMALL, ByVal Image8.Picture.Handle)
Call SendMessage(hWnd, WM_SETICON, ICON_BIG, ByVal Image8.Picture.Handle)
End Sub
  • Selanjutnya Jalankan Aplikasinya dengan menekan F5 pada UserForm. Jika  Langkah-langkah tersebut sudah di ikuti dengan benar, maka Aplikasi VBA Excel Anda akan ada tambahan Icon yang menampilkan Aplikasi lebih profesional.
Catatan Penting :
  1. Gambar yang berformat *.ico tidak semua bisa di jadikan icon pada UserForm Excel, karena ada standar tertentu yang bisa digunakan, seperti menggunakan 16 Colors dan 256 Colors. Untuk yang lebih bagus bisa memakai yang 256 Colors dengan pixel 48 x 48. 
  2. Jika gambar yang dimasukkan bukan berformat *.ico maka icon yang ditampilkan tidak akan sesuai dengan gambar yang telah ditambahkan pada properties imagenya.
Semoga bisa di prakterkkan ..!!

Berlangganan update artikel terbaru via email:

11 Responses to "Menampilkan Icon Pada Title Aplikasi/UserForm Vba Excel"

  1. mantab ilmunya mas Zaki, sangat bermanfaat dan semoga mas zaki terus bertambah ilmunya...amin...

    ReplyDelete
    Replies
    1. Amiin..!! trimkasih atas kunjungannya..!! (c) (c) (c)

      Delete
  2. Agan luar biasa! Terus berkarya ya Gan. Diam-diam saya memantau lho.

    ReplyDelete
  3. Ndak gitu, Min. Saya punya passion yang tinggi seperti ente. Terutama excel

    ReplyDelete
    Replies
    1. Bagi2 dong filenya.. biar bisa di bedah di blog otodidak ini...

      Delete
  4. Ente pakai excel berapa? Aku kok belum moveon dari excel 2007

    ReplyDelete
    Replies
    1. sekarang pake 2016..... yang 2007 juga mantap...

      Delete
  5. Inilah susahnya, saya banyak ide, banyak aplikasi excel saya buat, tapi tidak ada yang benar-benar tuntas. Belum selesai satu bikin baru karena ada ide lagi. Jadinya yang kemarin ndak tuntas.

    ReplyDelete

Komentar Anda Sangat Menentukan Kelangsungan Blog ini

Iklan Atas Artikel

Iklan Tengah Artikel 2

Iklan Bawah Artikel