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 C ara 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
