Mengambil dan Menyisipkan Gambar ke dalam Sel Aktif

menyisipkan gambar dalam lembar kerja excel

Menyisipkan sebuah gambar ke dalam lembar kerja Microsoft Excel yang umumnya dilakukan menggunakan perintah Insert Picture dapat juga dilakukan menggunakan Macro VBA seperti tampilan berikut :
Menyisipkan gambar menggunakan Macro VBA

Menyisipkan gambar menggunakan Macro VBA

Dalam tampilan di atas, Macro VBA memerintahkan pengguna untuk mencari gambar yang akan disisipkan ke dalam lembar kerja dengan menggunakan referensi sel aktif A2. Dari gambar tersebut juga dapat di jelaskan bahwa gambar sudah disesuaikan ukurannya sehingga lebih terlihat proporsional disertai juga dengan garis tepi (figura) berwarna merah.

Dalam kasus ini, Macro VBA (module) di panggil menggunakan sebuah tombol yang diletakkan di dalam lembar kerja. Sementara kode yang ditulis dalam module adalah sebagai berikut :

Sub SisipkanGambar()
File = Application.GetOpenFilename("JPG File Format (*.jpg), *.jpg")
If File <> False Then
On Error Resume Next
ActiveSheet.Shapes("Gbr").Delete
Set Pigura = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, 0, 100, 100)
ActiveSheet.[B2].Select
With Pigura
       .Line.Weight = 3 'opsi tebal garis
    .Line.ForeColor.RGB = RGB(250, 0, 0) 'opsi warna garis
    .Name = "Gbr"
    .Left = ActiveCell.Left
    .Top = ActiveCell.Top
    .Fill.UserPicture File
End With
End If
End Sub

download

Sedikit penjelasan dari kode di atas:

File = ...
adalah sebuah baris kode yang berfungsi menampilkan jendela untuk membuka file gambar dengan format yang sudah ditentukan, yakni format *.jpg
If File <> False Then
Artinya, jika pengguna memilih sebuah file gambar (perintah File) maka baris kode selanjutnya akan dijalankan
ActiveSheet.Shapes("Gbr").Delete
Jika terdapat file gambar yang terpilih, dan ketika pengguna menekan tombol Open maka kode ini akan dieksekusi terlebih dahulu, yakni menghapus sebuah Shapes dengan nama Gbr yang terdapat di lembar kerja (lihat penjelasan .Name)
Set Figura = ...
Menentukan sebuah objek dengan nama Figura yang memiliki ketentuan, lebar dan tinggi 100
ActiveSheet.[B2].Select
Memilih sel B2 yang digunakan sebagai referensi untuk meletakkan File gambar
.Line.Weight
Berfungsi untuk memberikan tebal garis tepi. Kode ini merupakan pilihan jika Anda menginginkan kustomasi tebal garis tepi. Jika Anda tidak menyertakan baris ini, maka tebal garis yang dipakai adalah ukuran default
.Line.ForeColor.RGB
Fungsi dari baris kode ini adalah untuk memberi warna garis tepi. Sama halnya dengan baris perintah sebelumnya, baris kode ini adalah pilihan jika Anda menginginkan garis tepi memiliki warna yang berbeda.
.Name = "Gbr"
Sebuah properti yang diberikan untuk Shapes yang berisi gambar. Dalam tutorial ini nama shape adalah Gbr.
.Left dan .Top
Berfungsi untuk menentukan posisi gambar ketika diletakkan di lembar kerja.
.Fill.UserPicture File
Adalah baris kode VBA terakhir yang memerintahkan untuk meletakkan sebuah file gambar yang terpilih.

Silahkan uji kode ini dengan menekan tombol F5 untuk menyisipkan gambar menggunakan Kode VBA di atas.

Sekarang Anda sudah berhasil mempelajari bagaimana cara untuk mengambil sebuah gambar dan meyisipkannya ke dalam lembar kerja Microsoft Excel. Semoga Anda menyukai tutorial dari excelive untuk edisi ini.
Kunjungi kami lain waktu untuk mengetahui kehebatan Microsoft Excel lainnya, See you soon.