Cara Insert Foto Ke Tabel Database Dengan Macro Vba Excel

Salam Pengguna Excel..!! Pada kesempatan ini kita akan sama-sama belajar ala otodidak membuat database yang dilengkapi dengan foto pada tiap data yang ada pada database.

Tujuan memasukkan foto pada tiap data di database agar mudah mengenali identitas pemilik dari data tersebut.

Gambar Tampilan Insert Foto Ke Tabel Database 

Ikuti langkah-langkah yang Admin sajikan ala otodidak tentang Cara Insert Foto Ke Tabel Database Dengan Macro Vba Excel. 

Insert Foto Ke Tabel Database Dengan Macro Vba Excel sering digunakan pada data karyawan pada perusahaan negara atau swasta, dengan berbagai keperluan, antara lain seperti untuk mencetak Kartu Id Karyawan.

Insert Foto Ke Tabel Database Dengan Macro Vba Excel juga dibutuhkan pada pekerjaan mendata siswa, membuat database siswa, dan membuat kartu siswa. 

Dengan menampilkan foto pada tiap data yang ada pada database, pengelola database akan sangat mudah mengenali data yang ada.

Berkenaan dengan penggunaan foto pada data yang terdapat dalam database Admin sendiri sudah mempublish di beberapa posting denga cara sedikit berbeda yaitu pada posting dengan judul berikut ini : 

• Cara Masukkan/Insert Foto Kedalam Aplikasi Dengan Userfrom VBA Excel
• Cara Menampilkan Data dan Foto Dengan Menggunakan Vlookup
• Cara Membuat Database Dengan Foto Di Folder Menggunakan Vlookup

Posting tentang Insert Foto Ke Tabel Database Dengan Macro Vba Excel ini menjadi tambahan yang berkenaan dengan database yang dilengkapi dengan foto.

Anda dapat memilih sendiri posting mana yang sesuai dengan keinginan anda untuk digunakan dalam membangun aplikasi.

Langkah-langkah Insert Foto Ke Tabel Database Dengan Macro Vba Excel :

• Buka Excel dan ubah nama sheet menjadi Database selanjutnya buatlah tabel data dengan format data seperti yang terlihat pada gambar berformat gif diatas, jangan lupa disimpan dalam format Enable Macro atau Binary. 

• Perhatikan gambar dibawah dengan caption Gambar Memasukkan Rectangle dan Rectangle: Rounded Corners. Insert shapes pada kolom J pada setiap baris tabel sebanyak 5 Shapes saja untuk percobaan menampilkan gambar dengan cara klik tab Insert (pada gambar ditunjukkan oleh nomor 1) dan pilih Shapes (pada gambar ditunjukan oleh nomor 2) dan klik pada Rectangle (pada gambar ditunjukkan oleh nomor 3). Rename nama Rectangle dengan cara klik pada Shapes Rectangle dan ubah pada Name Box menjadi Gambar1 untuk Rectangle pada baris pertama data dan gambar2 hingga seterusnya sampai pada gambar5(pada gambar ditunjukkan oleh nomor 4). 

• Inser Rectangle: Rounded Corners (Pada gambar ditunjukkan oleh nomor 5). Dalam percobaan ini masukkan 5 Rectangle: Rounded Corners. Letak setiap satu Rectangle: Rounded Corners pada setiap baris data. Modifikasi Rectangle: Rounded Corners agar terlihat cantik sesuai dengan selera anda. Add text dalam Rectangle: Rounded Corners dengan tulisan "Browser" (Boleh juga digantikan dengan tulisan lain menurut selera masing-masing seperti "Insert Foto" atau "Cari"). Rectangle: Rounded Corners ini akan kita gunakan sebagai tombol yang berfungsi untuk membuka DialogBox Explorer mencari gambar.

• 

  Gambar Memasukkan Rectangle dan Rectangle: Rounded Corners

• Selanjutnya masuk dalam Visual basic dengan cara klik tab developer dan pilih Visual Basic (Ctrl + F11). Setelah jendela visual basic terbuka tambahkan sebuah Modul dengan nama Modul1 

• Masukkan kode macro berikut ini pada pada modul1 tersebut untuk kita gunakan pada Rectangle: Rounded Corners pertama pada baris data pertama yang akan berfungsi sebagai tombol load gambar melalui kotak dialog

Sub LoadGambar1()
'Prosedur untuk meload file gambar yang ada di sheet "Database"
Dim vFilePic

ChDir ActiveWorkbook.Path
vFilePic = Application.GetOpenFilename _
("Pictures (*.gif; *.jpg; *.bmp; *.tif; *.png),*.gif; *.jpg; *.bmp; *.tif; *.png", , "Pilih Foto Siswa")

'Keluar dari prosedur jika tidak ada file yang dipilih pada jendela  open file
If vFilePic = False Then Exit Sub

'Merubah background shape "Gambar" dengan file gambar yang terekam di variabel public vFilePic
ActiveSheet.Unprotect
ActiveSheet.Shapes("Gamba1").Fill.UserPicture vFilePic

End Sub

• Masukkan kode macro berikut ini pada pada modul1 juga untuk kita gunakan pada Rectangle: Rounded Corners kedua pada baris data kedua yang akan berfungsi sebagai tombol load gambar melalui kotak dialog

Sub LoadGambar2()
'Prosedur untuk meload file gambar yang ada di sheet "Database"
Dim vFilePic

ChDir ActiveWorkbook.Path
vFilePic = Application.GetOpenFilename _
("Pictures (*.gif; *.jpg; *.bmp; *.tif; *.png),*.gif; *.jpg; *.bmp; *.tif; *.png", , "Pilih Foto Siswa")

'Keluar dari prosedur jika tidak ada file yang dipilih pada jendela  open file
If vFilePic = False Then Exit Sub

'Merubah background shape "Gambar" dengan file gambar yang terekam di variabel public vFilePic
ActiveSheet.Unprotect
ActiveSheet.Shapes("Gamba2").Fill.UserPicture vFilePic

End Sub

• Masukkan kode macro berikut ini pada pada modul1 juga untuk kita gunakan pada Rectangle: Rounded Corners ketiga pada baris data ketiga yang akan berfungsi sebagai tombol load gambar melalui kotak dialog

Sub LoadGambar3()
'Prosedur untuk meload file gambar yang ada di sheet "Database"
Dim vFilePic

ChDir ActiveWorkbook.Path
vFilePic = Application.GetOpenFilename _
("Pictures (*.gif; *.jpg; *.bmp; *.tif; *.png),*.gif; *.jpg; *.bmp; *.tif; *.png", , "Pilih Foto Siswa")

'Keluar dari prosedur jika tidak ada file yang dipilih pada jendela  open file
If vFilePic = False Then Exit Sub

'Merubah background shape "Gambar" dengan file gambar yang terekam di variabel public vFilePic
ActiveSheet.Unprotect
ActiveSheet.Shapes("Gamba3").Fill.UserPicture vFilePic

End Sub

• Masukkan kode macro berikut ini pada pada modul1 juga untuk kita gunakan pada Rectangle: Rounded Corners keempat pada baris data keempat yang akan berfungsi sebagai tombol load gambar melalui kotak dialog

Sub LoadGambar4()
'Prosedur untuk meload file gambar yang ada di sheet "Database"
Dim vFilePic

ChDir ActiveWorkbook.Path
vFilePic = Application.GetOpenFilename _
("Pictures (*.gif; *.jpg; *.bmp; *.tif; *.png),*.gif; *.jpg; *.bmp; *.tif; *.png", , "Pilih Foto Siswa")

'Keluar dari prosedur jika tidak ada file yang dipilih pada jendela  open file
If vFilePic = False Then Exit Sub

'Merubah background shape "Gambar" dengan file gambar yang terekam di variabel public vFilePic
ActiveSheet.Unprotect
ActiveSheet.Shapes("Gamba4").Fill.UserPicture vFilePic

End Sub

• Masukkan kode macro berikut ini pada pada modul1 juga untuk kita gunakan pada Rectangle: Rounded Corners kelima pada baris data kelima yang akan berfungsi sebagai tombol load gambar melalui kotak dialog

Sub LoadGambar5()
'Prosedur untuk meload file gambar yang ada di sheet "Database"
Dim vFilePic

ChDir ActiveWorkbook.Path
vFilePic = Application.GetOpenFilename _
("Pictures (*.gif; *.jpg; *.bmp; *.tif; *.png),*.gif; *.jpg; *.bmp; *.tif; *.png", , "Pilih Foto Siswa")

'Keluar dari prosedur jika tidak ada file yang dipilih pada jendela  open file
If vFilePic = False Then Exit Sub

'Merubah background shape "Gambar" dengan file gambar yang terekam di variabel public vFilePic
ActiveSheet.Unprotect
ActiveSheet.Shapes("Gamba5").Fill.UserPicture vFilePic

End Sub

• Langkah selanjutnya kembali ke sheet Database klik kanan pada Rectangle: Rounded Corners pada baris data pertama pilih Assign Macro dan pilih macro dengan nama LoadGambar1. Demikian seterusnya LoadGambar2 hingga LoadGambar5 untuk Rectangle: Rounded Corners pada baris ke 5.

Dalam setiap kode yang admin sajikan sudah Admin tulis beserta dengan tujuan dari kode tersebut. Jika ingin menambahkan tombol lainnya maka tuliskan kode yang sama selanjutnya sesuaikan kode yang telah admin tandai dengan warna merah

Demikian posting tentang Cara Insert Foto Ke Tabel Database Dengan Macro Vba Excel. Semoga dapat menjadi referensi bagi yang sedang mencari cara Insert Foto Ke Tabel Database Dengan Macro Vba Excel.

Bila ada saran, kritikan serta pertanyaan mohon dapat sampaikan pada kolom kementar yang tersedia. Jika Posting Cara Insert Foto Ke Tabel Database Dengan Macro Vba Excel ini dirasakan bermanfaat mohon dapat dishare keteman-teman lain agar mereka juga mengetahui cara ini.

Bagi anda yang ingin mendapatkan semua file dan aplikasi yang admin sajikan pada blog ini untuk dapat dipelajari secara otodidak secara mandiri dapat menghubungi Admin dengan nomor WA 0811-6822-023, Syarat dan Ketentuan Berlaku.

Kunjungi Channel Youtube Think And Action untuk mendapatkan Video Tentang Vba Excel

Go to Link

Go to Link