Minggu, 11 Februari 2024

CARA INSERT BANYAK FOTO SECARA MUDAH DAN CEPAT DI EXCEL

 INSERT BANYAK FOTO SECARA MUDAH DAN CEPAT DI EXCEL

 Insert foto pada Microsoft excel

Insert foto pada Excel biasanya melakukannya secara satu persatu, namun ada cara cepat dan mudah untuk insert banyak foto. Insert foto pada Microsoft excel biasanya dilakukan dengan cara sebagai berikut:

 

1.     Pilih menu insert

2.     Kemudian pilih menu illustrations -> pilih pictures, insert picture from this device

3.     Kemudian pilih fotonya dan baru masuk kedalam excel

4.     Kemudian menata ukuran foto pada kolom dan baris yang di butuhkan.

 

Langkah ini terlalu banyak memakan waktu apabila foto yang dimasukan banyak pula. Hal demikan tidak bisa menghemat waktu, padahal waktu itu adalah emas. Kita bisa melakukan banyak hal dengan waktu itu yaitu istirahat, jalan-jalan, makan, aktivitas lainnya. Dari Langkah diatas poin 1 sampai 4, poin 4 yang membuat waktu termakan banyak, yaitu menata foto pada ukuran yg dibutuhkan. Insert foto bisa banyak foto sekaligus namun perlu menata dan meletakan foto pada kategori yang diinginkan. Untuk mempermudah dan mempercepat insert banyak foto kemudian sesuai dengan kategori yang diinginkan serta sesuai dengan ukuran yang ditentukan, maka perlu dilakukan beberapa langkah dibawah ini.

Langkah-langkahnya sebagai berikut:

1.     Siapkan Kategori dan ukuran pada kolom excel sesuai dengan kebutuhannya;

2.     Siapkan foto sesuai dengan kategori yang dibutuhkan *catatan: nama foto/foto harus diurutkan sesuai dengan kategori;

3.     Letakkan kursor pada tempat yang akan dimasukan foto urutan pertama;

4.     Pada sheet yang pada workbook klik kanan kemudian pilih view kode;

5.     Muncul view kode pilih insert dan pilih module;

6.     Copy paste rumus dan klik run pada menu tool bar;

7.     Pilih foto yang sudah disiapkan klik ctrl A untuk memilih semua foto yang sudah disiapkan, klik ok;

8.     Kemudian tunggu hingga loading kursor berhenti, setelah berhenti bisa Kembali lagi ke dalam excel yang sudah disiapkan;

9.     Dan sudah tersusun rapi tanpa menunggu lama dan mengaturnya.

 

Langkah-langkah ini tidak perlu menunggu lama, hanya hitungan detik dan menit tergantung seberapa banyak foto yang dimasukan dan spesifikasi laptopnya. Dari langkah kedua ini yang paling lama yaitu menyiapkan foto sesuai dengan kategori/merename foto sesuai dengan kategorinya.

 

Pada artikel berikutnya akan dibagikan cara mudah dalam merename foto secara mudah dan cepat. Apabila dibandingkan pada langkah pertama dan langkah kedua, yang paling efisien dan praktis yaitu langkah kedua, namun keduanya ada kekurangannya. Langkah kedua kekurangannya bisa diatasi dengan cara yang mudah juga. Berikut rumus insert foto banyak namun setelah dicopy pada web ini harus di paste pada notepad agar tidak ada eror atau kesalahan.


 Baca juga disini Cara mudah dalam merename foto secara mudah dan cepat


Rumus Foto ke Bawah

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

 

Rumus Foto ke Samping

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)

        xColIndex = xColIndex + 1

    Next

End If

End Sub

 

 

Catatan dari penulis untuk copy paste rumus terlebih dahulu dipaste kedalam notepad, agar mengurangi kesalahan. Apabila artikel ini bermanfaat silahkankan komen pada web ini. Apabila langkah pada web ini masih ada kesulitan silahkan lihat tutorial pada youtobe chanel Elfia Najib Kholifiatin – Insert Banyak Foto dengan Mudah dan Cepat

Terimakasih banyak