Loncat ke daftar isi utama

Bagaimana cara menyisipkan banyak gambar dan mengubah ukurannya sekaligus di Excel?

Mudah bagi kita untuk memasukkan satu gambar ke dalam Excel, tetapi jika Anda perlu memasukkan beberapa gambar sekaligus agar dapat menghemat banyak waktu, bagaimana Anda bisa melakukannya?


Sisipkan beberapa gambar dan ubah ukurannya secara massal dengan fitur Sisipkan Gambar

Kita bisa menyisipkan banyak gambar secara massal dengan fitur (Sisipkan) Gambar di Excel, lalu mengubah ukurannya secara bersamaan. Harap lakukan sebagai berikut:

1. Di lembar kerja, klik Menyisipkan > Gambar.

2. Pada dialog Sisipkan Gambar, buka folder yang berisi gambar yang akan Anda sisipkan, pilih beberapa gambar yang Anda butuhkan, dan klik Menyisipkan tombol. Lihat tangkapan layar:
Note: Memegang Ctrl kunci, Anda dapat memilih beberapa gambar yang tidak berdekatan dengan mengkliknya satu per satu; memegang perubahan kunci, Anda dapat memilih beberapa gambar yang berdekatan dengan mengklik gambar pertama dan terakhir.

Sekarang gambar disisipkan secara massal dan ditumpuk di lembar kerja.

3. Biarkan gambar-gambar ini tetap dipilih, dan ubah ukurannya secara massal dengan memasukkan nomor baru ke keduanya Lebar dan Tinggi kotak di Ukuran kelompok di dibentuk tab. Lihat tangkapan layar:

Sekarang semua gambar yang disisipkan diubah ke ukuran yang sama secara bersamaan sekaligus.

4. Saat ini Anda perlu memindahkan setiap gambar secara manual ke tempat yang sesuai.

Note: Jika ada lusinan gambar yang bertumpuk, akan cukup memakan waktu untuk memindahkannya secara manual ke tempat yang pas.

Batch menyisipkan beberapa gambar yang cocok dengan konten sel di Excel

Grafik Cocokkan Gambar Impor Fitur Kutools for Excel, adalah alat fantastis yang dapat mengimpor dan menyisipkan banyak gambar berdasarkan konten sel, dan mengubah ukuran gambar yang diimpor sama dengan ukuran sel atau ke ukuran yang ditentukan dengan mudah.


pertandingan iklan yang diimpor pics 01

Kutools untuk Excel - Tingkatkan Excel dengan lebih dari 300 alat penting. Nikmati uji coba GRATIS 30 hari berfitur lengkap tanpa memerlukan kartu kredit! Get It Now

Sisipkan beberapa gambar dan ubah ukurannya secara massal dengan OneNote

Untuk menghindari memindahkan gambar bertumpuk satu per satu, metode ini memperkenalkan trik lain untuk menyisipkan banyak gambar dengan bantuan OneNote. Harap lakukan sebagai berikut:

1. Luncurkan OneNote, dan buat halaman baru. Dan kemudian klik Menyisipkan > Gambar.

2. Pada dialog Sisipkan Gambar, buka folder yang berisi gambar yang akan Anda sisipkan, pilih beberapa gambar yang Anda butuhkan, dan klik Menyisipkan tombol. Lihat tangkapan layar:
Note: Memegang Ctrl kunci, Anda dapat memilih beberapa gambar yang tidak berdekatan dengan mengkliknya satu per satu; memegang perubahan kunci, Anda dapat memilih beberapa gambar yang berdekatan dengan mengklik gambar pertama dan terakhir.

doc menyisipkan beberapa gambar OneNote 032

3. tekan Ctrl + A untuk memilih semua gambar yang disisipkan di OneNote, lalu tekan Ctrl + C kunci untuk menyalinnya.

4. Buka lembar kerja di Excel, dan tekan Ctrl + V kunci untuk menempelkan gambar di lembar kerja. Sekarang semua gambar ditempel secara vertikal seperti gambar kiri yang ditampilkan.

5. Pilih salah satu gambar, dan tekan Ctrl + A kunci untuk memilih semuanya. Kemudian ubah ukuran gambar secara massal dengan memasukkan nomor baru ke keduanya Lebar dan Tinggi kotak di Ukuran kelompok di dibentuk tab. Lihat tangkapan layar:

Sekarang semua gambar yang ditentukan dimasukkan ke dalam Excel dan diubah ukurannya ke ukuran yang sama secara massal.


Masukkan beberapa gambar ke dalam Excel dengan kode VBA

Dengan kode VBA berikut, Anda dapat memasukkan beberapa gambar ke dalam file Excel sel demi sel.

1. Pilih sel pertama dari rentang tujuan yang ingin Anda sisipkan gambar.

2. Tahan ALT + F11 kunci, dan itu membuka Microsoft Visual Basic untuk Aplikasi jendela.

3. Klik Menyisipkan > Modul, dan tempelkan makro berikut di file Jendela Modul.

Sub InsertPictures()
'Update 20140513
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)
xColIndex = Application.ActiveCell.Column
If IsArray(PicList) Then
    xRowIndex = Application.ActiveCell.Row
    For lLoop = LBound(PicList) To UBound(PicList)
        Set Rng = Cells(xRowIndex, xColIndex)
        Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        xRowIndex = xRowIndex + 1
    Next
End If
End Sub

4. Lalu tekan F5 kunci untuk menjalankan kode ini.

5. Pada dialog Open, silahkan buka folder yang berisi gambar yang ingin Anda sisipkan, pilih beberapa gambar yang akan Anda sisipkan, dan klik Open tombol. Dan semua gambar yang dipilih telah diimpor ke pilihan Anda berdasarkan ukuran sel. Lihat tangkapan layar:


Masukkan beberapa gambar dan sesuaikan secara otomatis dengan Kutools for Excel

Kutools untuk Excel'S Impor Gambar utilitas dapat membantu Anda dengan cepat memasukkan beberapa gambar ke dalam Excel berdasarkan ukuran sel atau ukuran gambar. Anda juga dapat menentukan tinggi dan lebar gambar sesuai kebutuhan.

Kutools untuk Excel - Tingkatkan Excel dengan lebih dari 300 alat penting. Nikmati uji coba GRATIS 30 hari berfitur lengkap tanpa memerlukan kartu kredit! Get It Now

1. Klik Kutools Ditambah > Ekspor Impor > Impor Gambar, lihat tangkapan layar:

2. di Impor Gambar kotak dialog, lakukan hal berikut:
(1) Tentukan urutan tampilan gambar dari Impor pesanan daftar drop-down, Anda dapat memilih Isi secara vertikal sel demi sel or Isi sel horizontal demi sel.
(2) Klik Add tombol untuk memilih file gambar atau folder untuk menambahkan gambar ke dalam daftar Gambar. Dan semua gambar yang Anda pilih akan dicantumkan di kotak daftar.
(3) Klik Ukuran impor tombol;

3. Sekarang di Impor Ukuran Gambar Dialog, Anda dapat memilih ukuran gambar yang sesuai dengan kebutuhan Anda. Lihat tangkapan layar:

4. Setelah menentukan ukuran gambar, silakan klik OK untuk menutup dialog ini, dan kembali ke Impor Gambar dialog, klik impor tombol untuk mengimpor gambar.

5. Dalam kotak dialog Impor Gambar baru, pilih sel pertama dari rentang tujuan Anda akan memasukkan gambar, dan klik OK .

Saat ini, semua gambar yang Anda pilih telah dimasukkan ke dalam sel Anda dari sel aktif secara vertikal atau horizontal. Lihat tangkapan layar kanan:

Grafik Impor Gambar Fitur Kutools for Excel dirancang untuk memasukkan sekumpulan gambar secara bersamaan dengan ukuran sel yang cocok, ukuran tertentu, atau ukuran gambar sendiri di Excel. Dapatkan Uji Coba Gratis!


Masukkan beberapa gambar yang cocok dengan namanya dengan Kutools for Excel

Kutools for Excel juga mendukung yang dramatis Cocokkan Gambar Impor fitur untuk mencocokkan gambar dan konten sel dan menyisipkan gambar yang cocok hanya secara massal di Excel.

Kutools untuk Excel - Tingkatkan Excel dengan lebih dari 300 alat penting. Nikmati uji coba GRATIS 30 hari berfitur lengkap tanpa memerlukan kartu kredit! Get It Now

1. Pilih sel nama gambar Anda yang ingin Anda sisipkan gambar yang cocok, dan klik Kutools Ditambah > Ekspor Impor > Cocokkan Gambar Impor. lihat tangkapan layar:

2. Di kotak dialog Match Import Pictures yang muncul, lakukan hal berikut:
(1) Tentukan urutan tampilan gambar dari Impor pesanan daftar drop-down;
(2) Klik Add tombol untuk menambahkan gambar ke kotak daftar gambar. Untuk informasi Anda, hanya gambar yang cocok yang akan dicantumkan.
(3) Lalu klik Ukuran Impor .

3. Sekarang di Impor Ukuran Gambar dialog, Anda dapat memilih ukuran gambar yang sesuai dengan kebutuhan Anda, dan klik Ok tombol. Lihat tangkapan layar:

4. Sekarang Anda kembali ke Impor Gambar dialog, klik impor tombol untuk mengimpor gambar.

5. Pada dialog Match Import Pictures yang muncul, tentukan sel pertama dari kisaran tujuan yang akan Anda sisipkan gambarnya, dan klik OK tombol. Lihat tangkapan layar:

Sejauh ini, semua gambar telah dimasukkan ke dalam sel berdasarkan nama relatifnya. Lihat tangkapan layar kanan:

Grafik Cocokkan Gambar Impor Fitur Kutools for Excel dapat membantu pengguna Excel dengan cepat memfilter gambar berdasarkan nilai sel dan kemudian menyisipkan gambar-gambar ini secara massal. Selain itu, gambar yang cocok ini dapat diubah ukurannya ke ukuran atau ukuran sel yang ditentukan secara otomatis. Dapatkan Uji Coba Gratis!


Demo: Sisipkan beberapa gambar dan ubah ukurannya sekaligus di Excel

Kutools untuk Excel mencakup lebih dari 300 alat praktis untuk Excel, gratis untuk dicoba tanpa batasan dalam 30 hari. Uji Coba Gratis Sekarang!      Beli Sekarang!


Terkait artikel

Alat Produktivitas Kantor Terbaik

🤖 Kutools AI Ajudan: Merevolusi analisis data berdasarkan: Eksekusi Cerdas   |  Hasilkan Kode  |  Buat Rumus Khusus  |  Analisis Data dan Hasilkan Grafik  |  Aktifkan Fungsi Kutools...
Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria    VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar    Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel    Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu.  Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...

Deskripsi Produk


Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
Comments (47)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hello community,

Thank you very much - this is a great tool!
But for my request, I should keep the sizes of the images, which are different. Is there any way to keep the format of the images but keep the functions with this code?

Many thanks in advance.
Elias
This comment was minimized by the moderator on the site
Respected sir, i want to One image paste on specific cell more than one in a time.
This comment was minimized by the moderator on the site
Hello, Sarfraz

If you want to insert one image into multiple cells, you just need to insert one image and resize it, and then copy and paste it to the other cells as you need.

Thank you!
This comment was minimized by the moderator on the site
mình cảm ơn vì bài viết. mình có làm danh sách sản phẩm hàng hóa mất rất nhiều thời gian nhưng chợt thấy chenanhexcel.com có bán add-in thì công việc của mình dễ dàng hơn nhiều.
This comment was minimized by the moderator on the site
Hi, i have 10 images i want to insert all 10 inside ONE CELL in excel. is this possible and if so pls help me out with some code pls...
This comment was minimized by the moderator on the site
Hi Vind,
First, adjust the cell and make it big enough to contain the 10 images.
Then Click Insert > Picture to open the Insert Picture dialog. In the dialog, select the 10 images together (if they are in the same folder), and click the OK button.
Now all images are inserted. If necessary, resize them simultaneously in the Size group on the Picture Format tab.
These images are inserted in the diagonal line of the cell as attached picture, and you need to adjust their positions manually.
This comment was minimized by the moderator on the site
I am using the following code, which came from Funzone, to add my photos but i need to be able to skip a column, leaving a blank column between photos, can someone help?

Sub InsertPictures()
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)

xColIndex = Application.ActiveCell.Column
xRowIndex = Application.ActiveCell.Row

If IsArray(PicList) Then

For lLoop = LBound(PicList) To UBound(PicList)
Set Rng = Cells(xRowIndex, xColIndex)
Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
xColIndex = xColIndex + 1
If xColIndex = 4 Then GoTo Continue1 Else GoTo Continue2

Continue1:
xRowIndex = xRowIndex + 2
xColIndex = xColIndex - 3

Continue2:
Next
End If
End Sub
This comment was minimized by the moderator on the site
I was finally able to figure it out on my own.

The code below will insert 3 pictures horizontally in the columns then move down a row and insert 3 more horizontally it will repeat this process until it runs out of the selected pictures.



Sub InsertPictures()
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)

xColIndex = Application.ActiveCell.Column
xRowIndex = Application.ActiveCell.Row

If IsArray(PicList) Then

For lLoop = LBound(PicList) To UBound(PicList)
Set Rng = Cells(xRowIndex, xColIndex)
Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
xColIndex = xColIndex + 1
If xColIndex = 4 Then GoTo Continue1 Else GoTo Continue2

Continue1:
xRowIndex = xRowIndex + 1
xColIndex = xColIndex - 3

Continue2:
Next
End If
End Sub
This comment was minimized by the moderator on the site
I would really like to use this VBA code to fill an array of cells with picture like 5 across then move to next row and 5 across until you run out of selected pictures but I just can't wrap my head around how to do it. Is this at all possible?


If you know how to do this please post the code. Thank you In advance!

Similar to https://www.extendoffice.com/documents/excel/3360-excel-transpose-every-5-rows.html
except by selecting pictures and pasting the output in an array.
This comment was minimized by the moderator on the site
I would really like to use this VBA code to fill an array of cells with picture like 5 across then move to next row and 5 across until you run out of selected pictures but I just can't wrap my head around how to do it. Is this at all possible?

Similar to https://www.extendoffice.com/documents/excel/3360-excel-transpose-every-5-rows.html
except by selecting pictures and pasting the output in an array
This comment was minimized by the moderator on the site
les agradezco mucho realmente ayudan muchisimo con el trabajo y el tiempo. Me sirvio perfecto para un inventario con fotos.
reitero mi agradecimiento
This comment was minimized by the moderator on the site
Tried this code and in all honesty is amazing and fast, however is there any chance of amending this to make it resize the pictures to a custom size.
I cannot seem to get my head around it.
Thanks
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations