Cara membuat Tombol Insert Photo dengan Vba

Ada banyak cara kita membuat tombol insert photo atau logo (gambar)  tanpa harus bikin rumus formula yang rumit. kita bisa gunakan dengan kode vba berikut ini

Private Sub CommandButton1_Click()

On Error Resume Next

Dim Filter As String, Title As String, FileX As String

Dim SourceFile, DestinationFile

X.SetFocus

Filter = "JPG Image Files Only(*.jpg),*.jpg,"

Title = "Silahkan Pilih Photo"

FileX = Application.GetOpenFilename(Filter, , Title)

NamaFile = Range("F17")

Sheets("Sheet1").Image1.Picture = LoadPicture(FileX)

Image1.Picture = LoadPicture(FileX)

DestinationFile = ActiveWorkbook.Path & "\Photo\" & NamaFile & ".jpg"

FileCopy FileX, DestinationFile

End Sub

1. Buat folder baru di data D dengan nama "Photo" (untuk menyimpan riwayat photo)
2. Klik depelover pada menu bar kemudian pilih insert dan pilih Command button 
3. Klik depelover pada menu bar kemudian pilih insert dan pilih image (activeX contorl), jika depelover belum muncul di menu bar silahkan baca dan pahami cara menampilkan depelover.

untuk memperjelas point 2 dan 3, ane berikan contoh gambar berikut ini :

4. klik kanan pada tombol Command Button dan pilih propertis pada akan muncul dialog. pada bagian caption ganti dengan "Ganti Photo".

5. klik 2 x pada tombol Command Button / Ganti Photo dan masukan code vba di atas, ingat pada kode sheets sesuaikan sheets yang sedang digunakan pembuatan tombol ganti photo contoh "Sheet1". jika berhasil akan terlihat seperti gambar berikut ini :

Selamat mencoba, semoga berhasil dan berkah. jika kurang jelas silahkan tinggalkan pesan pada bagian post comment, terimakasih.

 Reff: Kumpulan download applikasi excel dan vba