Walah mas...
malah mempersulit diri sajah pake cari-cari script baru, bukannya
memperbaiki script simple yang sudah ada...
kelamaan muter-muter malah puyeng loh..
1. pasang gambar
Entah Anda dapat script ini darimana :
Sheets("Formulir").Image1.Picture = LoadPicture(FileX)
'Image1.Picture = LoadPicture(FileX) -> yang ini bisa dihapus
Disana jelas bahwa gambarnya akan diletakkan di object control bernama
Image1.
Di Kopdar2 kemarin ada pembahasan pemakaian object. Berarti Image1 itu
sebuah object.
Object yang bisa di-input gambar sedemikian mudahnya hanyalah activex
control Image. Pasang saja control tersebut di cell sesukanya di sheet
bernama 'Formulir' asalah nama object-nya adalah Image1 dan jenis
controlnya Image.
2. copy file
Disana, Anda juga sudah punya script copy file
DestinationFile = ActiveWorkbook.Path & "\Photo\" & NamaFile & ".jpg"
FileCopy FileX, DestinationFile
Nama file destinasi sudah Anda simpan di variabel DestinationFile.
Destinasinya di folder Photo dan nama filenya mengikuti nama file yang
dipilih user. Ekstensinya jpg. Silakan diubah bagian penentu nama filenya.
imho,
1. Sebaiknya copy file dulu baru pasang gambar dari nama file hasil
filecopy.
2. Ketika save untuk inputan data baru, pastikan nama file destinasi ikut
disimpan dalam database (bukan gambarnya, cuman nama file aja)
3. Ketika load data yang sudah ada dari database, pasang gambar dengan
loadpicture dari nama file yang disimpan pada record itu, yang wujud asli
filenya sudah ada di folder tertentu saat ambil gambar pertama kali dulu
(saat input baru).
Wassalam,
Kid.
2014-05-21 15:01 GMT+07:00 agungdotco...@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Pak hendrik...
> Kurang lebih jadi begini ya pak..File terlampir
> berati untuk Penamaan foto hanya dilakukan Secara manual ya pak
> dan untuk penginputan datanya hanya nama foto saja.
> Kalau Penamaan Foto dilakukan bersamaan dengan pengiputan data bisa ga
> pak??
> lembur lagi pak...otak...atik script...
> Sambil nyari-nyari referensi belum ketemu...ketemu...
>
>
>
>
>
> Thanks,B'Regards
> -Agunk-
>
>
>
