Visual Basic for Application, singkatnya VBA, adalah bentuk Visual Basic 6 yang terintegrasi ke dalam program Microsoft Office. Melalui pengkodean, VBA memungkinkan Anda mengotomatiskan tugas dalam program Office, termasuk Excel. Dalam beberapa kasus, Anda bahkan dapat menambahkan fitur baru ke Excel menggunakan VBA.

Meskipun Anda perlu bekerja dengan kode untuk menggunakan VBA, itu tidak berarti bahwa VBA terdiri dari huruf dan angka. Dengan VBA di Excel, Anda dapat membuat makro yang memungkinkan Anda menyisipkan gambar ke dalam sel atau rentang sel. Baca terus untuk mengetahui semua tentang itu!

Cara Menyisipkan Gambar ke dalam Sel Menggunakan VBA di Excel

Untuk membuat makro untuk menyisipkan gambar ke dalam sel Excel menggunakan VBA, Anda sebenarnya tidak memerlukan pengetahuan Visual Basic tingkat lanjut. Yang perlu Anda lakukan hanyalah mengaktifkan alat Pengembang, membuat makro, dan menempelkan kode yang tepat.

Namun, jika Anda tertarik mempelajari VBA dan menulis kode Anda sendiri suatu hari nanti, kami telah menguraikan kode VBA di bagian ketiga. Tentu saja, Anda juga bisa

instagram viewer
menyisipkan gambar di Excel tanpa menggunakan VBA. Tetapi artikel ini adalah tentang menyelesaikannya melalui VBA. Ayo turun ke bisnis!

Untuk menggunakan VBA di Excel, Anda harus mengaktifkan alat Pengembang di Excel. Ini akan mengaktifkan tab Pengembang di pita, yang dinonaktifkan secara default.

  1. Buka Excel.
  2. Pergi ke Mengajukan menu.
  3. Klik Pilihan di bagian bawah layar. Ini akan membuka jendela Opsi Excel.
  4. Di Opsi Excel, masuk ke Sesuaikan Pita tab.
  5. Di bawah Tab Utama, memeriksa Pengembang.

Sekarang alat Pengembang, termasuk akses ke VBA, diaktifkan untuk Anda. Anda tidak perlu melakukan ini setiap kali ingin menggunakan VBA di Excel. Alat pengembang akan tetap aktif hingga Anda menonaktifkannya.

2. Membuat Makro dan Menyisipkan Kode

Sekarang saatnya untuk mulai membuat makro. Alternatifnya, Anda juga bisa buat tombol menggunakan VBA untuk tugas ini, tapi kami akan tetap menggunakan makro.

  1. Di Excel, masuk ke Pengembang tab.
  2. Dalam Kode bagian, pilih Makro.
  3. Di jendela baru, masukkan nama untuk makro Anda di bawah Nama makro. Kami akan menggunakan insertPhotoMacro.
  4. Klik Membuat.

Setelah Anda mengklik Buat, jendela VBA akan terbuka dan menampilkan kode untuk makro Anda. Saat ini, kode akan terdiri dari dua baris: A Sub untuk memulai makro, dan Akhir Sub untuk mengakhirinya.

Mari tambahkan beberapa kode ke makro ini. Tambahkan kode berikut di antara dua baris:

Redupkan photoNameAndPath Sebagai Varian
Foto redup Sebagai Gambar
photoNameAndPath = Aplikasi. GetOpenFilename (Judul:="Pilih Foto keMenyisipkan")
Jika photoNameAndPath = PALSU Kemudian KELUAR Sub
Mengatur foto = Lembar Aktif. Foto-foto. Sisipkan (photoNameAndPath)
Dengan foto
 .Left = Lembar Aktif. Jangkauan("A1").Kiri
 .Top = Lembar Aktif. Jangkauan("A1").Atas
 .Width = Lembar Aktif. Jangkauan("A1").Lebar
 .Tinggi = Lembar Aktif. Jangkauan("A1").Tinggi
 .Penempatan = 1
AkhirDengan

Kode akhir Anda harus seperti di bawah ini:

Anda tidak perlu khawatir tentang menyimpan kemajuan Anda. Setiap perubahan yang Anda buat di VBA langsung disimpan.

Sekarang saatnya melihat kode bekerja.

  1. Tutup jendela VBA.
  2. Pergi ke Pengembang tab di Excel.
  3. Pilih Makro dari Kode bagian.
  4. Sorot makro yang baru saja Anda buat.
  5. Klik Berlari.

Sekarang sebuah prompt akan terbuka meminta Anda untuk mencari file gambar yang ingin Anda sisipkan. Pilih gambar Anda dan kemudian klik Membuka. Anda sekarang akan melihat foto Anda di sel A1!

Perhatikan bahwa gambar yang disisipkan menyusut agar pas dengan sel A1. Anda dapat mengubah ini, dan juga mengubah kode untuk memasukkan gambar ke sel lain atau bahkan rentang sel. Di bagian selanjutnya, kita akan memecah kode dan menjelaskan parameter yang sedang bekerja.

3. Memecah Kode

Agar kode VBA ini berfungsi sesuai keinginan Anda, Anda perlu memahaminya. Setelah melakukannya, Anda dapat mengubah kode untuk menyisipkan foto di sel mana pun dalam ukuran apa pun. Kita akan membahas kodenya sedikit demi sedikit agar lebih mudah dipahami.

Sub masukkanPhotoMacro()
Redupkan photoNameAndPath Sebagai Varian
Foto redup Sebagai Gambar
photoNameAndPath = Aplikasi. GetOpenFilename (Judul:="Pilih Foto keMenyisipkan")
Jika photoNameAndPath = PALSU Kemudian KELUAR Sub
Mengatur foto = Lembar Aktif. Foto-foto. Sisipkan (photoNameAndPath)
Dengan foto
.Left = Lembar Aktif. Jangkauan("A1").Kiri
.Top = Lembar Aktif. Jangkauan("A1").Atas
.Width = Lembar Aktif. Jangkauan("A1").Lebar
.Tinggi = Lembar Aktif. Jangkauan("A1").Tinggi
.Penempatan = 1
AkhirDengan
Akhir Sub

Setelah kode dimulai, kami menggunakan Redup pernyataan untuk menentukan jenis variabel. Kami punya dua variabel di sini: photoNameAndPath Dan foto diri. Kami telah menentukan yang pertama sebagai a Varian dan yang terakhir sebagai Foto.

Dari sana, variabel photoNameAndPath berjalan dan membuka aplikasi untuk mengetahui keberadaan file gambar. Ini dilakukan melalui Aplikasi. GetOpenFileName. Itu Judul parameter bersifat opsional, dan konten di dalamnya ditampilkan sebagai nama jendela.

Menggunakan Jika photoNameAndPath = Salah Lalu Keluar dari Sub, kami menetapkan bahwa jika alamat yang diberikan tidak valid atau kosong, proses harus dihentikan. Namun, jika file yang tepat dimasukkan, maka Atur foto = Lembar Aktif. Foto-foto. Sisipkan (photoNameAndPath) menunjukkan bahwa gambar harus ditetapkan sebagai variabel foto yang kita definisikan sebelumnya, dan harus dimasukkan ke dalam spreadsheet aktif.

Akhirnya menggunakan Dengan foto dan lima baris yang mengikutinya, kami menguraikan pemosisian gambar. .Kiri Dan .Atas menunjukkan lokasi awal, sementara .Lebar Dan .Tinggi menunjukkan lokasi akhir. Jika Anda ingin menyisipkan gambar di sel lain, atau di rentang, maka ini adalah garis yang harus Anda ubah.

.Penempatan menunjukkan apakah gambar harus disesuaikan ukurannya dengan sel atau disisipkan dalam bentuk bebas. Mengaturnya ke 1 akan mengukurnya dengan sel.

Pada akhirnya, kami menggunakan Berakhir dengan kemudian Akhir Sub untuk menutup makro. Perhatikan bahwa Anda dapat mengubah photoNameAndPath Dan foto variabel ke nama lain apa pun yang Anda suka. Ingatlah untuk menjaga agar nama tetap konsisten di seluruh kode.

Selesaikan Lebih Banyak Pekerjaan di Excel Dengan VBA

Excel memang alat yang luar biasa untuk mengatur dan menganalisis data, tetapi itu tidak berarti bahwa Excel tidak kompeten dalam hal grafik. Meskipun foto dan bitmap bukan setelan terkuat Excel, Excel masih mampu menanganinya dengan sempurna.

Meskipun Anda dapat menyisipkan gambar di Excel menggunakan antarmuka seperti yang Anda lakukan di aplikasi Office lainnya, Anda juga dapat melakukannya menggunakan VBA. Dengan VBA, Anda dapat mengotomatiskan tugas ini dan bahkan memasangkannya dengan tugas lain untuk dijalankan secara bersamaan. Kemungkinan dengan VBA di Excel tidak terbatas.