• 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

    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.

    Artikel Terkait

  • Still haven't found what are you looking for

    We have provided a complete list of articles on this site to make it easier for you and giving the best solution for your excel issues

    VISIT LINK
    loading...
    DMCA.com Protection Status

    excelive.com
    is a blogger resources site who provides best excel tutorial based on daily needs. The main mission of excelive is to share our little experience in excel to deliver best time killer for your excel issues.
    T.O.S
    Term of service

    Read More
    Download Area
    to complete all excel lessons, we have provided a download link for you Find Here
    Copyright © 2016 - excelive.com. Some rights reserved.
    Menyalin sebagian atau keseluruhan materi situs hanya diperbolehkan dengan tautan balik terbuka ke sumbernya.
    equipped with by blogger