Kode Macro VBA Untuk Memainkan Musik

Kode Macro VBA Untuk Memainkan Musik

Menambahkan sebuah perintah, menu, tombol atau feature untuk memainkan suara (file WAV) dalam Sebuah aplikasi berbasis excel yang anda buat, barangkali bisa dijadikan sebagai pelengkap atau mungkin hanya sekedar untuk memperindah tampilan aplikasi. Tentunya, hal yang pertama yang harus dilakukan adalah dengan menambahkan kode VBA dalam aplikasi anda.

Langkah 1 : Menambahkan Module untuk memainkan musik

1. Aktifkan jendela Microsoft Visual Basic
2. Tambahkan sebuah module dengan cara klik menu Insert > Module
3. Copy dan paste code berikut di bagian paling atas pada module yang sudah dibuat sebelumnya
Declare Function sndPlaySound32 Lib "winmm.dll" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long

Langkah 2 : Tombol untuk memainkan musik

1. Minimize jendela visual basic anda
2. Tambahkan sebuah CommmandButton untuk memainkan musik dan letakkan di dalam sheet yang anda inginkan

Jika tab Developer belum muncul, klik menu office button > excel options > di bagian kategori Popular centang show developer tab in the ribbon
3. Klik 2x tombol yang baru dibuat, yang secara otomatis akan membawa ke jendela visual basic lagi
4. Masukkan kode berikut ini untuk memanggil suara atau musik
Private Sub CommandButton1_Click()
Call sndPlaySound32("C:\Windows\Media\tada.wav", 0)
End Sub
tada.wav merupakan sebuah file WAV yang terletak di drive C:\... anda bisa memodifikasi file ini sesuai dengan selera, namun file yang bisa dimainkan untuk kode diatas hanya file audio yang berekstensi WAV
5. Simpan pekerjaan anda sebagai Excel Macro-Enabled Workbook.

Sumber Informasi :
http://www.rumahexcel.com/2012/10/kode-macro-vba-untuk-memainkan-musik.html#ixzz2KsnULIFS