jika anda ingin membuat dan juga mengetahui apa yg dibuat, anda sebaiknya
memberi perhatian kpd beberapa point ini:
1.
bgmna menulis code untuk mengInsert Image (dari file *.JPG) ke SHEET,
(siti ndak ingat apakah hal ini pernah ada contohnya di milis, tetapi dengan
me-Makro-Rekam 'tindakan menginsert gambar" harusnya kita mendapatkan
contoh code menginsert gambar).
2.
bgmana mengakses files dalam folder tertentu (untuk diketahui namanya dan di jadikan
object yg akan diinsert ke sheet).
Anda sedang berurusan dengan FSO (file system object) .
Karena file dlm folder lebih dari 1, dan tidak semua ber extensi *.JPG; pekerjaan ini
mengharuskan penggunaan struktur Looping.
Mengenai FSO, walaupun tidak terlalu sering, tetapi beberapa kali sudah pernah
dicontohkan di milis.
3.
bgmana mengakses tabel untuk dibaca datanya, misal di kolom tertentu (kolom NIK_ID)
Di sepanjang kolom NIK_ID, data satu persatu diraba, dibaca dan dibandingkan
dengan Nama File Image (yg di hilangkan "JPG"nya).
Ini juga menyangkut struktur perulangan (looping).
Soal looping meraba data di sebuah range, sudah sangat amat sering sekali dibahas /
dicontohkan di milis.
Masalahnya pun mirip dan khas: Jika NIK_ID SAMA-DENGAN NamaFile - "JPG",
maka file JPG yg sedang diraba tsb di-Insert-kan ke sheet, dengan terlebih dulu menselect
Cell tempat diinginkannya Foto tertempel.
Cell tsb tentunya harus = cell di kolom tertentu yg sebaris dgn NIK_ID yg sedang diraba.
Di titik ini perlu diketahui bahwa untuk menginsert Picture, object utamanya (yg mengalami
'pengInsertan') adalah SHEET, BUKAN Range / Cell
ObjectSheet.Pictures.Insert(NamaFileImage)
dan Picture/Image tsb akan terletak di Cell Aktif.
Oleh karena itu sebelum Insert picture dilakukan, kita harusnya menselect dulu satu cell
tertentu sesuai tujuan program.
4.
Karena dimensi gambar belum tentu seragam, dan belum tentu juga persis dengan dimensi
cell yg akan ditempeli; maka masih diperlukan kerjaan mengatur kembali letak & dimensi
Image tsb agar sesuai dengan dimensi cell.
(untuk point ini juga pernah ada kasusnya & dijelaskan di milis).
------------------------------
Bila keempat hal di atas dirangkai, maka akan menjadi sebuah prosedur yg kira-kira seperti
gambar di samping kiri ini. Dan seperti itu pula lah yg tertulis di Module Standard dlm
workbook "Pictures In DaftarPenduduk.XLS"
Workbook lainnya (Inserting pictures into sheet.XLS) berisi 'pemanasan' berupa pengenalan
contoh code menginsert picture ke sheet dengan 4 kondisi.
<> picture tunggal dengan cell tidak tertentu
<> picture tunggal dengan cell tertentu
<> banyak pictures untuk dimasukkan ke sheet, dimulai di cell <> tertentu
<> menghapus semua pictures dlm sheet.
" sekian, terima kasih & wassalam.."
jkt 10 okt 2009 // ctv
oiya ada yg kurang,
di atas ada Caption (A), (B) nya mana? hampir lupa.
Ini (B) nya:
(B)
jika anda ingin mengerjakan hal yg ditanyakan (agar otomatis) tetapi anda
tidak ingin repot mengetahui apa yg dibuat, anda tidak perlu baca box dan
segala -thethek-bengek-nya ini. (langsung pakai saja ...)
2009/10/9 yayat ruhimat <yayat61@yahoo.com>
>
> Yth. Teman2 pakar Excel Mania
> Kami akan melakukan cross check data penduduk sesuai pasfoto penduduk.
> Selama ini, insert file pasfoto ke file excel dilakukan secara manual.
> Jika nama file (16 digit, huruf kedua dari kiri ke kanan) sama dengan IDNIK (16 digit)
> pada file Excel, maka file pasfoto penduduk tersebut diinsert pada kolom PASFOTO
> data penduduk yang bersangkutan. Karena ribuan file pasfoto yang akan diinsert,
> selain membutuhkan waktu sangat lama, juga sangat dimungkinkan salah insert file pasfoto.
> Lebih jelasnya, file pasfoto dan excel terlampir (attach)
>
> Tolong yaaa teman2, pls... apalagi waktu cross check data penduduk semakin mendesak.
> Atas bantuan teman2 diucapkan terima kasih
> Yayat Padang Nadimpu
>
Nenhum comentário:
Postar um comentário