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: belajar-excel@yahoogroups.com
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) <setiyowati.d...@gmail.com>
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
<apassist...@arutmin.com> 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
