√ Memasukan Gambar Dengan Filepath Pada Userform

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

Pengolahan gambar dengan memakai VBA memang perlu adanya penguasaan pemrograman dengan VBA, namun jangan khawatir aku akan mengulas sedikit pengetahuan mengenai duduk perkara tersebut. Lalu bagaimana caranya?

Langkah pertama Anda harus menyiapkan satu buah Userform dan bagaimana menciptakan userform, menyisipkan Anda sanggup lihat

[23] Pengenalan Dasar Membuat UserForm VBA Excel

Jika userform sudah dibentuk silakan tambahkan control textbox dan satu buah commandbutton untuk caranya juga sudah aku bahas sebelumnya. dan terakhir silakan tambahkan control Image. 3 buah control semuanya dibentuk pada userform dan untuk lebih jelasnya kira-kira desain menyerupai berikut

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

Setelah ketiga control tersebut dibentuk silakan ganti label Commanbutton1 menjadi "Cari Gambar" memakai properties CommandButton

Perhatikan anak panah diatas merupakan langkah perubahan mengganti nama CommandButton1 menjadi "Cari Gambar" dengan mengganti nama caption Anda sudah sanggup mengganti nama control tombol tersebut. Anda juga sanggup mengganti Name properties dari CommadButton1 tersebut namun disini aku tidak merubahnya supaya 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 supaya gambar yang ditampilkan akan diadaptasi dengan ukuran desain Image.

Oke, kini silakan jalankan kegiatan tersebut maka akan tampil menyerupai 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 menyerupai berikut ini

Jreng, gambar sudah berhasil dimasukan dan path file juga sudah terdapat pada textbox dibawah gambar tersebut ialah 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.
Sumber http://www.excel-id.com/