CARA MEMBUAT PLAYLIST VIDEO OTOMATIS DI USERFORM VBA EXCEL

-

Terima kasih telah berkunjung ke blog gelay otodidakdotcom, khusus buat kamu yang ingin serba tau secara otodidak tentang segala hal tanpa harus bayar guru alias gratis, tapi meskipun gratis tentu ilmunya tetap bisa bermanfaat ya. Jangan lupa dukung blog ini dengan cara share ke teman kamu atau siapapun agar penulis semakin cemungut membuat kontennya.

Kembali ke leptop... kita akan membuat cara menambahkan playlist video ke userform vba excel, ini biasanya diterapkan pada layar untuk tujuan pengumuman atau iklan dsb, sebelumnya siapkan terlebih dahulu :

  1. Beberapa file video (bisa 2, 3 atau lebih banyak)
  2. Pastikan leptop kamu sudah terinstal Microsoft Excel dan Windows Media Player (disini gelay menggunakan MS 2010 di Windows 10)

Langkah-langkah membuat playlist video di userform vba excel

1. Buat folder baru

Buat folder baru dan beri nama "Aplikasi Video" tanpa tanda kutip ya, dan didalam folder tersebut buat lagi folder baru lalu beri nama "Video". Folder ini untuk menyimpan file excel yang akan kita buat dan file video yang telah di siapkan sebelumnya supaya nanti memudahkan rujukan path pada kode vba nya, folder ini bisa di simpan di drive C:\ atau D:\ sama saja.

2. Buat userform VBA excel

Buka aplikasi excel kamu pilih tab Developer lalu pilih menu Visual Basic maka akan muncul jendela Microsoft Visual Basic for Applications kemudian insert userform, pada userform tambahkan Windows Media Player yang ada pada toolbox
Jika kamu tidak menemukan Windows Media Player pada toolbox, kamu dapat menambahkannya dengan cara klik kanan pada toolbox pilih Additional Controls, lalu cari Windows Media Player centang dan OK. Kemudian sesuaikan ukuran panjang dan lebar userform dan Windows Media Player-nya sesuai keinginan kamu.

3. Buat playlist video dengan Windows Media Player

Buka folder Video yang telah disiapkan sebelumnya kemudian pilih semua file video klik kanan dan klik Add to Windows Media Player list ini akan membuka Aplikasi WMP, kemudian di pojok kanan atas klik Switch to Library dan pilih Save list ganti dengan nama ListVideo
kemudian klik kanan pada playlist dan pilih Open file location maka akan membuka File Explorer ke tempat penyimpanan playlist yang telah kita buat tadi, ini untuk memastikan playlist telah dibuat dan di simpan pada folder Video yang telah disiapkan, jika playlist ternyata tersimpan di folder yang berbeda maka tinggal copas aja ke folder Video, jadi isi dari folder Video terdapat beberapa file Video dan satu file playlist dengan nama ListVideo.wpl

4. Buat Kode VBA pada Userform

Sebelum membuat kode macro atur dulu properti WMP supaya ketika di tampilkan lebar layar WMP sesuai yang kita inginkan maka centang Stretch to fit pada properti kustom, lihat caranya pada gambar berikut :


Setelah semuanya siap, terakhir yaitu membuat kode macro dengan cara klik kanan pada userform dan View Code kemudian ketik kode berikut ini :

Private Sub UserForm_Activate()
    WindowsMediaPlayer1.URL = ActiveWorkbook.Path & "\Video" & "\ListVideo.wpl"
    WindowsMediaPlayer1.settings.volume = 30 'volume dapat disesuaikan antara 0 sampai 100
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    WindowsMediaPlayer1.Close
End Sub

5. Buat Tombol untuk menjalankan Video pada Userform

Kembali pada lembar excel dan masih di tab Developer klik Design Mode pada menu Controls dan Insert ActiveX Controls pilih Command Button lalu klik kanan pada Command Button dan View Code 
kemudian ketik kode berikut :

Private Sub CommandButton1_Click()
    UserForm1.Show
End Sub

setelah itu klik lagi menu Design Mode untuk mengaktifkan macronya dan coba jalankan maka akan terlihat seperti gambar berikut dan video akan memutar semua file video yang telah ditambahkan kedalam playlist ListVideo
Jangan lupa simpan file excel dengan extensi .xlsm supaya kode VBA nya tidak hilang begitu kamu keluar aplikasi excel.

Selesai..... kini kamu telah bisa membuat aplikasi playlist video pada userform, bukan hanya satu video saja dan nantinya kamu bisa menyesuaikan konten videonya sesuai keinginan kamu, atau dapat dipadukan dengan aplikasi excel lainnya.
Jika ada pertanyaan atau penjelasan lebih lanjut silahkan tinggalkan komentar atau bisa langsung kirim gelay e-mail ke sugi.mpu@gmail.com






Lokasi: Jawa Barat, Indonesia

Komentar

Posting Komentar

Postingan populer dari blog ini

14 RUMUS EXCEL YANG WAJIB DIKUASAI ADMIN

-
Gambar
20 MENIT MENJADI ADMIN PROFESIONAL Fakta bahwa hampir semua Personal Computer (PC) atau Laptop di dalamnya terdapat aplikasi Excel, namun sayangnya aplikasi tersebut jarang dimanfaatkan secara maksimal, contoh seorang admin kantor lebih memilih membeli aplikasi yang instant daripada menggunakan aplikasi Excel, padahal Excel sendiri lebih dari sekedar aplikasi, bisa dikatakan aplikasi yang bisa membuat aplik asi. Sebenarnya kalau mau mendalami system operasi Microsoft Excel itu sangat sederhana hanya dengan mengetik tanda ‘sama dengan’ = di ikuti dengan rumus berupa argumen (nilai yang memberikan informasi atas tindakan, peristiwa, metode, properti, fungsi, atau prosedur) bawaan aplikasi atau kita buat argumen sendiri dan menyimpannya sebagai rumus.  Ada bermacam kategori rumus dalam Excel antara lain Auto Sum, Financial, Logical, Text, Reference, Math dan Lainnya. Wah perlu banyak waktu untuk membahasnya, tapi don’t panik , hanya butuh waktu 20 menit  untuk menguasai 14 ru...
Baca selengkapnya

BONGKAR RAHASIA APLIKASI KEUANGAN EXCEL (The Series)

-
Gambar
#1 KUNCI RUMUS FILTER DATA Bla bla bla bla …… To The Point . MENENTUKAN CELL ROWS COLUMN BESERTA FORMAT FILL-NYA  Agar lebih mudah difahami tentukan dulu Cells yang nantinya akan digunakan untuk praktek ini (E5:E16)  nantinya akan digunakan untuk referensi filter data (F4:G16)  sebagai table untuk input data (J4)  cell ini untuk tombol filter data (I6:J8)  untuk output data ( L4) dan (L5:M16)  untuk menempatkan formula filter   Kalau dibuat bagan maka seperti Gambar Elemen Rumus Filter Data MEMBUAT TABEL DATA PADA CELL YANG TELAH DITENTUKAN (F5:F16) isi dengan tanggal lalu ubah Format Cell dari General menjadi Short Date (DD/MM/YYYY) masing-masing cell di isi dengan tanggal akhir bulan yang berbeda secara beru rutan. (G5:G16) isi dengan nominal saldo gunakan format cell A ccounting N umber F ormat atau C omma S tyle supaya terlihat jelas ribuannya , untuk percontohan nominalnya bebas bisa berapa saja yang di inginkan. Inilah data yang nantinya ak...
Baca selengkapnya