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.

Tweet