Menampilkan gambar di Excel dari folder

Question

Dear Mas HerrSoe, kalau lokasinya bisa dimana saja, sulit juga bagi Excel 
mengetahui folder nya yg mana. Barangkali yg dimaksud, folder image nya berada 
satu path dengan file excel nya yah? Maka bisa menggunakan kode:

ActiveWorkbook.Path & "\NamaFolder_Image\"

ActiveWorkbook.Path akan menghasilkan nilai string, lokasi path tempat file 
Excel yang sedang aktif digunakan. Dengan demikian, cukup nama imagenya saja 
yang diisi di sheet / cell tempat lokasi image, tidak perlu dengan pathnya, 
misal : nama_gambar.jpg , tidak ditulis lagi c:\nama_folder\nama_gambar.jpg. 
Sedikit modif di VBA nya Mbak Siti :

     ' mencari nama file di tabel
      r = WorksheetFunction.Match(Target, KdColl, 0)
      FileNm = ActiveWorkbook.Path & "\NamaFolder_Image\" & PicCol(r, 1).Text

Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi.
http://opi.110mb.com/

  ----- Original Message ----- 
  From: HerrSoe 
  To:  
  Sent: Friday, May 27, 2011 2:53 PM
  Subject: Re: [belajar-excel] Menampilkan gambar di folder berdasarkan kode 
yang dipilih

  Mbak siti ytc...

  FIle & makro yg dikirim itu kan masih merujuk lokasi gambar yg hanya ada di 
pc 
  pak CONTRACT saja.
  Di PC members lain seperti saya, harus membuat dulu folder seperti itu, tidak 
bisa
  jalan juga karena tidak ada isi gambarnya. Padahal ingin sekeli segera 
testing-testing...

  Bolehkan saya minta fle yg FOLDER nya berlaku di pc mana saja tidak harus
  fixed seperti contoh file dari pak Contact.
  (Kalau gak salah dulu sudah dijelaskan tapi kok lupa lagi ya... he he dasar 
jeblok)

  Maksud ku:
  Seperti dulu pernah terjadi, mbak siti kirim file ZIP dan seterima kita di PC 
masing2
  zip dibuka menjadi FOLDER_XXX (bisa diubah namanya)  berisi flie makro dan 
  files contoh gambar.

  FOLDER_XXX itu bisa ditaruh di bawah FOLDER mana saja, tetapi jika makro 
  dijalankan  dia tahu folder tempat gambar berada..

  Tolongin ya mbak ..
  Meskipun penanyanya sendiri, pak Contract, tidak berkenan menggunakannya
  (terbukti tidak ada konfirmasi: file itu jalan/tidak spt yg diminta si embak) 
  tapi aku "berkenan" kok mbak.. h eh ehe...

  Teman teman se grup juga pada pingin punya filenya yg OK, tapi saya yg 
disuruh 
  maju: bilang ke mbak siti...

  tks
  & wassalam
  HerrSoe Cakil

  2011/5/26 STDEV(i) <>

    halo pak Contraact ..
    tabelnya kok di situ ?  apa ndak terbatas ?
    nanti kalau tabel dipindah makronya harus di ubah lho !!

    coba pakai ini sebentar saja  (di test lah); setelah itu boleh dihapus....

    makro akan OTOMATIS jalan (=menginsert gambar) jika cell E15 berubah datanya
    makro ini tauknya:  path file ygditulis di tabel pasti  BENAR dan ADA 
filenya

    Private Sub Worksheet_Change(ByVal Target As Range)
       ' siti Vi / 26 may 2011   
       Dim TbBuku As Range, KdColl As Range, PicCol As Range
       Dim FileNm As String, oShp As Shape, r As Integer
       Set TbBuku = Cells(1).CurrentRegion.Offset(1, 0)
       Set KdColl = TbBuku.Offset(0, 1).Resize(, 1)
       Set PicCol = KdColl.Offset(0, 6)
       If Target.Address = "$C$15" Then
          ' hapus picture lama di "plat"-nya
          For Each oShp In Me.Shapes
             If LCase(Left(oShp.Name, 4)) = "pict" Then
                If oShp.TopLeftCell = Range("E15") Then oShp.Delete
             End If
          Next oShp
          ' mencari nama file di tabel
          r = WorksheetFunction.Match(Target, KdColl, 0)
          FileNm = PicCol(r, 1).Text
          ' di cek apakah ada di storages
          If Not Dir(FileNm) = "" Then
             ' diinsert ke cell tertentu
             Range("E15").Select
             Me.Pictures.Insert(FileNm).Select
             ' di paskan di ukuran merged-cellnya
             ResizePicture Selection   '  ini = sebuah sub prosedur bantu
          End If
       End If
    End Sub

    kalau mau menyenangkan hati penanggapnya jangan diam saja
    katakan hasilnya (jalan/ gak jalan )..

    -siti-

    >
    > On Thu, May 26, 2011 at 1:49 PM, Contract Mining Assistant, Asam-Asam 
<> wrote:
    >>
    >> Dear teman teman belajar excel,
    >> Gimana ya menampilkan gambar yang ada yang mana sesuai dengan kode buku 
yang dipilih,
    >> Asumsinya gambar sudah tersedia di folder seperti pada cell "H2:H11"
    >> yangmana nama gambar disesuaikan dengan kodebuku.
    >> jadi begitu kode buku dipilih maka nama gambar yang sesuai dengan kode 
buku akan tampil
    >> dan jika tidak ada gambar dengan kode buku yang dipilih maka akan ada 
pemberitahuan baik itu message box atau yang lain.
    >> Terima kasih banyak sebelumnya
    >> Salam, Rasyid
    >> @File terlampir

Table of Contents Show

Cara Mem-Vlookup Gambar/Foto Di Excel
Download File Contoh Vlookup Foto
OUR LATEST VIDEOS

Rumus Excel untuk menampilkan gambar dengan vlookup atau mencari gambar otomatis pada Tabel Excel berdasarkan nama gambar atau nilai pencarian foto tertentu

Vlookup Gambar Pada Excel
Cara Mem-Vlookup Gambar/Foto Di Excel
Download File Contoh Vlookup Foto

Pada Microsoft Excel, mungkinkah membuat rumus excel agar muncul gambar atau menampilkan gambar dengan fungsi vlookup dari sebuah tabel excel untuk ditampilkan secara otomatis pada sel tertentu? Kira-kira begitu pertanyaan seorang teman kepada saya.

Kasus ini muncul saat teman saya ingin membuat database foto di excel. Lebih tepatnya membuat sebuah aplikasi excel berupa database siswa dan ingin menampilkan foto siswa pada sheet biodata per siswa yang diambil dari tabel biodata seluruh siswa.

Pada dasarnya Excel tidak memberikan fungsi khusus dalam hal picture lookup atau memunculkan gambar otomatis pada excel ini. Namun dengan sedikit kreatafitas kita bisa menggunakan Fungsi INDEX dan MATCH untuk melakukan pencarian gambar pada tabel excel. Kedua fungsi ini sudah kita pelajari sebelumnya.

Hasil akhir dari tutorial Belajar Excel untuk pencarian gambar ini seperti pada gambar berikut :

Selanjutnya akan dijelaskan bagaimana cara melakukan vlookup gambar di excel.

Cara Mem-Vlookup Gambar/Foto Di Excel

Untuk mengetahui bagaimana cara mem-vlookup gambar ini silahkan ikuti langkah-langkah berikut:

Siapkan sebuah tabel data yang berisi no, keterangan dan gambar beserta data-data yang diperlukan seperti contoh. Atur lebar dan tinggi sel sehingga sesuai dengan ukuran gambar yang diinginkan serta posisikan gambar atau foto ada di dalam sel.
Siapkan sebuah sel sebagai acuan pencarian. Dalam contoh sel ini adalah E2. Kemudian terapkan data validation list pada sel tersebut yang mengacu pada range keterangan ($B$2:$B$6). data validation list ini untuk mempermudah kita dalam pencarian gambar.
Pilih sel C2. Pastikan yang anda seleksi sel C2 dan bukan gambar pada sel C2. kemudian Copy sel tersebut. Jika benar akan muncul garis putus-putus sebagai tanda bahwa sel tersebut ter-copy.
Pada bagian ini anda harus teliti, yang kita copy adalah sel excelnya bukan gambarnya. Agar lebih mudah gunakan tombol arah/panah untuk berpindah meyeleksi cel yg akan kita copy.
Paste Special: Linked Picture pada sel G2 atau sel lain yang dikehendaki sebagai tempat hasil lookup gambar.
Buat sebuah defined name baru. Pada isian named isi dengan "Huruf" dan pada isian refers to isi dengan rumus excel.
```
=INDEX(Sheet1!$C$2:$C$6;MATCH(Sheet1!$E$2;Sheet1!$B$2:$B$6;0))
```
Pilih atau select gambar pada sel G2 tadi. Dalam kondisi terpilih/terseleksi, rubah/isikan pada formula bar:
```
=Huruf
```
Selesai.

Jika langkah Anda benar dan berhasil maka apabila Anda merubah isi sel E2, gambar akan berubah sesuai dengan isian sel E2 tadi.

Download File Contoh Vlookup Foto

Contoh File untuk tutorial LookUp Picture ini bisa anda download pada link dibawah ini :

Dropbox
GDrive

*Jika link mati / tidak dapat diakses silahkan lapor via kontak yang tersedia

Sampai disini dulu tutorial tentang cara membuat otomatis data disertai gambar dengan excel ini. Jika masih ada yang belum difahami/gagal mengikuti langkah-langkah diatas jangan sungkan-sungkan untuk meninggalkan komentar/pertanyaan.