Diskusi tentang Excel

Memasukan Gambar dengan FilePath pada UserForm

Ada beberapa pertanyaan yang masuk melalui email mengenai pengolahan gambar dengan Userform menggunakan VBA dan pada kesempatan kali ini saya akan mengulas bagaimana cara memasukan gambar menggunakan toolbox control Image dan letak file pada folder lalu bagaimana pula menampilkan path dari file gambar tersebut?

Pengolahan gambar dengan menggunakan VBA memang perlu adanya penguasaan pemrograman dengan VBA, namun jangan khawatir saya akan mengulas sedikit pengetahuan mengenai masalah tersebut. Lalu bagaimana caranya?

Langkah pertama Anda harus menyiapkan satu buah Userform dan bagaimana membuat userform, menyisipkan Anda bisa lihat

[23] Pengenalan Dasar Membuat UserForm VBA Excel
Jika userform sudah dibuat silakan tambahkan control textbox dan satu buah commandbutton untuk caranya juga sudah saya bahas sebelumnya. dan terakhir silakan tambahkan control Image. 3 buah control semuanya dibuat pada userform dan untuk lebih jelasnya kira-kira desain seperti berikut


1. Merupakan control Image
2. Merupakan CommandButton
3. Merupakan control Textbox

Setelah ketiga control tersebut dibuat silakan ganti label Commanbutton1 menjadi "Cari Gambar" menggunakan properties CommandButton


Perhatikan anak panah diatas merupakan langkah perubahan mengganti nama CommandButton1 menjadi "Cari Gambar" dengan mengganti nama caption Anda sudah bisa mengganti nama control tombol tersebut. Anda juga bisa mengganti Name properties dari CommadButton1 tersebut namun disini saya tidak merubahnya agar ada pemahaman.

Langkah kedua silakan double klik CommandButton tersebut kemudian ketikkan script VBA dibawah ini

Private Sub CommandButton1_Click()
    Dim FileGambar As String
   
    FileGambar = Application.GetOpenFilename()
    If FileGambar = "False" Then
        MsgBox "Anda membatalkan pemilihan gambar"
        Exit Sub
    End If

    'Memasukan gambar
    Me.TextBox1.Text = FileGambar
    Me.Image1.Picture = LoadPicture(FileGambar)

End Sub
Oia, jangan lupa Anda ganti PictureSizeMode menjadi PicturesizeModeStreet hal ini bertujuan agar gambar yang ditampilkan akan disesuaikan dengan ukuran desain Image.

Oke, sekarang silakan jalankan program tersebut maka akan tampil seperti berikut ini


Apabila Anda menekan tombol Cari Gambar maka jendela pencarian gambar akan muncul dan silakan Anda pilih lokasi penyimpanan gambar yang akan dimasukan tersebut.


Klik tombol Open maka gambar akan masuk kedalam Image yang ada pada userform sesuai ukuran kira-kira seperti berikut ini


Jreng, gambar sudah berhasil dimasukan dan path file juga sudah terdapat pada textbox dibawah gambar tersebut yaitu pada lokasi C:\Users\HOME\Documents\Suri Cruise\Suri-Cruise-6.jpg

Demikian, tutorial cara memasukan gambar dengan filepath pada Userform semoga bermanfaat dan selamat mencoba.

Related

UserForm 8238419414531606810

Post a Comment

  1. thanks min atas ilmunya.tapi permisi.gimana ya min agar supaya fotonya tidak hilang kembali ketika userform di close..nuhun min

    ReplyDelete
  2. Itu kan perintah seperti halnya insert gambar ya?
    Jadi kalau mau simpan gambar lebih baik pakai perintah simpan data...sepertinya modulnya akan lebih panjang...
    Makasih infonya untuk insert incture

    ReplyDelete

Tulisan ini Bermanfaat..? Silakan berkomentar sesuai topik artikelnya, tidak dianjurkan menggunakan kata-kata yang dapat menimbulkan hal negatif. Mohon maaf apabila tidak memiliki etika akan Admin HAPUS tanpa pemberitahuan kembali. Terimakasih... salam Exceler

emo-but-icon

item