Menampilkan gambar di Excel dari folder

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. //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