Cara membuat auto Insert Image dari Folder pada cell excel

tidak ada komentar
howto auto insert image - cel excel
Dalam bekerja menggunakan excel adakalanya kita berhubungan dengan file gambar, seperti contohnya pada data siswa,data karyawan/pegawai atau yang sejenisnya yang mengharuskan kita untuk memasukkan gambar, jika gambar yang kita akan masukkan tidaklah banyak mungkin itu tidaklah menjadi masalah, namun bagaimana jika gambar yang akan kita masukkan yang jumlahnya ratusan dan bahkan ribuan, bila kita memasukkan gambarnya satu persatu mungkin akan membutuhkan waktu yang sangat lama dan membosankan. pada tutorial sebelumnya saya telah memberikan Cara membuat Rumus terbilang automatic pada excel 2016.

Nah dalam postingan kali ini saya akan memberikan tutorial bagaimana cara memasukkan gambar yang datanya kita ambil dari folder tempat kita menyimpan gambar.

1.langkah pertama yaitu kit buka dulu microsoft excelnya terlebih dahulu :

auto Insert Image dari Folder pada cell excel

2. Dan apabila excel telah terbuka langkah selanjutnya yaitu kita cari pada menu tolbar View lalu kita pilih macro, yang biasanya posisinya berada disebelah kanan, seperti gambar dibawah ini :

auto Insert Image dari Folder pada cell excel

3. Setelah kita klik  selanjutnya akan tampil seperti pada gambar dibawah ini

auto Insert Image dari Folder pada cell excel

4. pada macro name masukkan  nama (nama sesuai keinginan anda) , lalu kita klik create


5. Setelah kita klik create maka akan tampil module code, seperti gambar dibawah ini

auto insert image - excel

6. Selanjutnya silahkan anda masukkan koding dibawah ini , pada module tersebut, dan ini contoh yang telah saya masukkan :
Sub AddOlEObject()
    Dim mainWorkBook As Workbook
    Set mainWorkBook = ActiveWorkbook
    Sheets("Object").Activate
    Folderpath = "C:\Users\gaul\Pictures\images"
    Set fso = CreateObject("Scripting.FileSystemObject")
    NoOfFiles = fso.GetFolder(Folderpath).Files.Count
    Set listfiles = fso.GetFolder(Folderpath).Files
    For Each fls In listfiles
       strCompFilePath = Folderpath & "\" & Trim(fls.Name)
        If strCompFilePath <> "" Then
            If (InStr(1, strCompFilePath, "jpg", vbTextCompare) > 1 _
            Or InStr(1, strCompFilePath, "jpeg", vbTextCompare) > 1 _
            Or InStr(1, strCompFilePath, "png", vbTextCompare) > 1) Then
                 counter = counter + 1
                  Sheets("Object").Range("A" & counter).Value = fls.Name
                  Sheets("Object").Range("B" & counter).ColumnWidth = 25
                Sheets("Object").Range("B" & counter).RowHeight = 100
                Sheets("Object").Range("B" & counter).Activate
                Call insert(strCompFilePath, counter)
                Sheets("Object").Activate
            End If
        End If
    Next
mainWorkBook.Save
End Sub
Function insert(PicPath, counter)
'MsgBox PicPath
    With ActiveSheet.Pictures.insert(PicPath)
        With .ShapeRange
            .LockAspectRatio = msoTrue
            .Width = 50
            .Height = 70
        End With
        .Left = ActiveSheet.Range("B" & counter).Left
        .Top = ActiveSheet.Range("B" & counter).Top
        .Placement = 1
        .PrintObject = True
    End With
End Function


catatan : tulisan merah pada koding diatas silahkan sesuaikan dengan dokumen anda.

Dari folder C:\Users\gaul\Pictures\images pada koputer saya maka akan tampil  seperti gambar dibawah ini :

auto Insert Image dari Folder pada cell excel


setelah kita selesai memasukkan koding, silahkan anda tutup Module (code), langkah selanjutnya untuk menampilkan gambarnya.silahkan klik kembali Menu View --> macro dan akan tampil seperti gambar dibawah ini, lalu klik run.

auto insert image - excel


 dari contoh koding diatas pada komputer saya, maka akan tampil seperti tampilan gambar dibawah ini

auto Insert Image dari Folder pada cell excel


Terimakasih telah berkunjung pada blog saya, semoga bermanfaat.

dan untuk lebih jelasnya silahkan anda tonton videonya pada tutorilanya dibawah ini : Klik Show

 Video contoh auto insert image dari folder pada excel 2016:

IKLAN SPNSOR DARI ADNOW
loading...

"Pembaca yang terhormat, setelah membaca Konten silahkan berikan saran dan memberikan umpan balik yang bersifat membangun, Silakan Tulis Komentar yang Relevan dengan Bahasa yang Sopan. Komentar anda mengilhami saya untuk terus ngeblog. Pendapat anda jauh lebih berharga bagiku. Terima kasih".