Menyisipkan Gambar (Insert Picture) Kedalam Userform Excel

 Pada postingan/artikel sebelumnya Saya pernah membagikan tutorial sekalgus kode/script Macro untuk menyisipkan gambar ke dalam lembar kerja Aplikasi Excel, dan pada kesempatan ini kembali Saya akan membagikan kode/script Macro untuk menyisipkan gambar (picture) lagi, namun pada artikel/postingan ini kode/script Macro yang akan Saya bagikan adalah untuk menyisipkan gambar (picture) ke dalam Userform.

Kode/script Macro ini juga sudah Saya terapkan di beberapa Aplikasi Berbasis Excel yang pernah Saya bagikan di blog Saya ini, diantaranya adalah Aplikasi Database Siswa (ADABS) Versi 1.0 dan Aplikasi Cetak Kartu Pelajar. Dengan menggunakan kode/script Macro ini kita bisa menyisipkan gambar, baik foto atau pun gambar lainnya ke dalam Userform yang kita buat menggunakan Aplikasi Ms. Excel, dan berikut ini langkah-langkah serta kode/script Macro yang Saya maksud.

A. Membuat/Menyisipkan Userform

Sesuai dengan judul artikel/postingan ini, karena kita akan menyisipkan gambar di Userform maka kita harus membuat sebuah Userform sebagai media untuk menyisipkan gambar (picture) tersebut. Dan berikut ini merupakan langkah-langkah dalam membuat/menyisipkan Userform di Aplikasi Ms. Excel :

1. Pada lembar kerja Ms. Excel kita klik pada menu Developer kemudian klik Visual Basic, dan jika dilembar kerja Ms. Excel Sobat Blogger tidak ada menu Developer tersebut silahkan baca artikel/postingan Saya sebelumnya mengenai Cara Menampilkan/Memunculkan Tab Developer Di Excel, atau juga bisa dengan menekan kombinas tombol ALT+F11 pada keyboard.

2. Didalam halaman/lembar kerja Visual Basic Excel, kita klik pada menu Insert kemudian klik lagi pada Userform :

Kemudian atur tinggi atau pun lebar dari Userform sesuai dengan kebutuhan kita. Dan berikut ini contohnya :

3. Menyisipkan sebuah tool Image sebagai tempat untuk menampilkan gambar (picture), caranya klik pada Image didalam Tool Box, kemudian tempatkan di area Userform, atur lebar atau pun tinggi dari tool Image tersebut sesuai dengan kebutuhan :

Dan berikut ini hasilnya :

4. Langkah selanjutnya adalah menyisipkan CommandButton yang nantinya akan kita gunakan sebagai tombol untuk menyisipkan gambar (picture) ke dalam Userform nantinya. Caranya atau langkah-langkahnya adalah sebagai berikut :

Klik CommandButton pada Tool Box kemudian tempatkan di area Userform tepatnya di bawah tool Image yang sudah kita sisipkan sebelumnya, perhatikan gambar di bawah ini :

Ubah caption dari CommandButton tersebut menjadi "Insert Picture" melalui Properties, caranya : klik pada CommandButton yang sudah kita sisipkan tadi, kemudian pada jendela Properties ubah pada caption menjadi "Insert Picture" :

 Untuk proses pembuatan Userform selesai.

B. Menyisipkan Kode Macro

Silahkan klik kanan pada CommandButton tadi, kemudian pilih View Code :

Kemudian hapus semua kode/script yang ada didalamnya, selanjutnya copy dan paste kode/script Macro di bawah ini kedalamnya :

Private Sub CommandButton1_Click()
'https://aplikasiexcelku.blogspot.com
On Error Resume Next
With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .ButtonName = "Pilih Gambar"
        .Title = "Pilih Gambar"
        .Filters.Add "*.gif & *.jpg", "*.gif; *.jpg; *.jpeg", 1
        If .show = -1 Then
            Me.Image1.PictureSizeMode = fmPictureSizeModeStretch
            Me.Image1.Picture = LoadPicture(.SelectedItems(1))
        Else
        End If
    End With
End Sub

Dan untuk mencobanya silahkan tekan tombol Run atau juga bisa dengan menekan tombol F5 pada keyboard.

Mungkin hanya itu saja artikel/postingan kali ini, mudah-mudahan apa yang sudah Saya sampaikan pada kesempatan kali ini bisa bermanfaat untuk kita semuanya. Sekian, terimakasih, dan selamat mencoba.

Salam belajar.

Download Sample File Insert Picture Kedalam Userform

Share :