Wednesday, November 4, 2015

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 atas.


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 ..!!

11 komentar

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

Amiin..!! trimkasih atas kunjungannya..!! (c) (c) (c)

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

Bakal dijadikan Terciduk ne admin...!!

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

Ente pakai excel berapa? Aku kok belum moveon dari excel 2007

sekarang pake 2016..... yang 2007 juga mantap...

Bagi2 dong filenya.. biar bisa di bedah di blog otodidak ini...

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.

Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon