1 New Message
Digest #1760
Message
Fri Sep 7, 2012 3:56 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Waalaikumussalam Wr. Wb.
1. Harus ada 10 object activex control image didalam worksheet
2. Setiap object control harus diisi (mengambil file gambar) satu per satu
menggunakan VBA
3. Sebelum workbook ditutup, maka hapus isi dari object control satu per
satu, kemudian save workbook. Hal ini diatur menggunakan VBA
Gambaran tentang cara ambil sebuah file gambar ke dalam sebuah object
activex control image ada di file yang dilampirkan di posting yang me-reply
posting Indria "snupy" pie.
Disana ada cara ambil gambar saat buka workbook, cara buang isi control
saat tutup workbook. Ada juga beberapa cara pengambilan gambar yang lain,
seperti melalui event worksheet change atau menekan tombol (tombolnya
berupa shape dan bisa diganti sesuai keinginan).
Wassalamualaikum Wr. Wb.
Kid.
2012/9/7 abu dimaz <abudimaz@yahoo.co.id >
> **
>
>
> Assalamu'alaikum
> Maaf, nyambung kasus insert photo.
> Bagaimana kalo kita photo yang ditampilkan lebih dari satu, misalnya untuk
> membuat kartu perpustakaan yang dalam satu sheet ada 10 kartu, dan photo
> tsb ada dalam folder bukan pada sheet/embedded. Terimakasih.
>
>
> ------------------------------
> *Dari:* Kid Mr. <mr.nmkid@gmail.com >
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Rabu, 5 September 2012 21:26
> *Judul:* Re: [belajar-excel] insert photo otomatis dari sebuah folder
>
>
> Salam kenal juga Pak,
>
> Untuk hal ini dibutuhkan VBA.
> File terlampir.
>
> Isi object control activex image diganti dengan memanfaatkan event
> worksheet change sebagai berikut :
> Private Sub Worksheet_Change(ByVal Target As Range)
> Dim sFile As String, sPath As String
> If Target.Count = 1 Then
> If InStr(Target.Address & "|", "$C$3|") <> 0 Then
> ActiveSheet.Calculate
>
> 'ganti rujukan path seperti contoh
> 'drive:\folder\subfolder\
> 'contoh : E:\myData\mySubData\
> sPath = ThisWorkbook.Path & "\"
> sFile = Range("c4").Value & ".jpg"
> If LenB(Dir$(sPath & sFile)) <> 0 Then
> imgPeserta.Picture = LoadPicture(sPath & sFile)
> Else
> imgPeserta.Picture = LoadPicture(vbNullString)
> End If
> End If
> End If
> End Sub
>
> Wassalam,
> Kid.
>
>
> 2012/9/5 Agus Siahabudin <phont_4ng@yahoo.co.id >
>
> **
>
> salam kenal untuk semua..
> saya minta bantuannya untuk sebuah kasus yg saya hadapi.
> saya ingin membuat sebuah data yang harus menggunakan photo didalamnya..
> tetapi saya tidak ingin memasukkan photo itu kedalam file excel saya
> karena photonya terlalu banyak.
> saya pernah denger, kita bisa memasukkan photo dengan sebuah link.tetapi
> info itu tidak jelas saya ketahui jadi masih membingungkan..
> bagaimanakah cara saya agar bisa memasukkan sebuah photo secara otomatis
> dari sebuah folder?
> saya lampirkan juga file contohnya..
> terima kasih
>
>
>
>
>
>
1. Harus ada 10 object activex control image didalam worksheet
2. Setiap object control harus diisi (mengambil file gambar) satu per satu
menggunakan VBA
3. Sebelum workbook ditutup, maka hapus isi dari object control satu per
satu, kemudian save workbook. Hal ini diatur menggunakan VBA
Gambaran tentang cara ambil sebuah file gambar ke dalam sebuah object
activex control image ada di file yang dilampirkan di posting yang me-reply
posting Indria "snupy" pie.
Disana ada cara ambil gambar saat buka workbook, cara buang isi control
saat tutup workbook. Ada juga beberapa cara pengambilan gambar yang lain,
seperti melalui event worksheet change atau menekan tombol (tombolnya
berupa shape dan bisa diganti sesuai keinginan).
Wassalamualaikum Wr. Wb.
Kid.
2012/9/7 abu dimaz <abudimaz@yahoo.
> **
>
>
> Assalamu'alaikum
> Maaf, nyambung kasus insert photo.
> Bagaimana kalo kita photo yang ditampilkan lebih dari satu, misalnya untuk
> membuat kartu perpustakaan yang dalam satu sheet ada 10 kartu, dan photo
> tsb ada dalam folder bukan pada sheet/embedded. Terimakasih.
>
>
> ------------
> *Dari:* Kid Mr. <mr.nmkid@gmail.
> *Kepada:* belajar-excel@
> *Dikirim:* Rabu, 5 September 2012 21:26
> *Judul:* Re: [belajar-excel] insert photo otomatis dari sebuah folder
>
>
> Salam kenal juga Pak,
>
> Untuk hal ini dibutuhkan VBA.
> File terlampir.
>
> Isi object control activex image diganti dengan memanfaatkan event
> worksheet change sebagai berikut :
> Private Sub Worksheet_Change(
> Dim sFile As String, sPath As String
> If Target.Count = 1 Then
> If InStr(Target.
> ActiveSheet.
>
> 'ganti rujukan path seperti contoh
> 'drive:\folder\
> 'contoh : E:\myData\mySubData
> sPath = ThisWorkbook.
> sFile = Range("c4").
> If LenB(Dir$(sPath & sFile)) <> 0 Then
> imgPeserta.Picture = LoadPicture(
> Else
> imgPeserta.Picture = LoadPicture(
> End If
> End If
> End If
> End Sub
>
> Wassalam,
> Kid.
>
>
> 2012/9/5 Agus Siahabudin <phont_4ng@yahoo.
>
> **
>
> salam kenal untuk semua..
> saya minta bantuannya untuk sebuah kasus yg saya hadapi.
> saya ingin membuat sebuah data yang harus menggunakan photo didalamnya..
> tetapi saya tidak ingin memasukkan photo itu kedalam file excel saya
> karena photonya terlalu banyak.
> saya pernah denger, kita bisa memasukkan photo dengan sebuah link.tetapi
> info itu tidak jelas saya ketahui jadi masih membingungkan.
> bagaimanakah cara saya agar bisa memasukkan sebuah photo secara otomatis
> dari sebuah folder?
> saya lampirkan juga file contohnya..
> terima kasih
>
>
>
>
>
>
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar