tanpa contoh templete sheet, tanpa contoh gambar (size & dimensi nya)
memang bisa tetap dijawab, tapi bakalan banyak pertanyaan susulan.
(karena jawaban tentu pakai versi penjawab, sedangkan keinginan tentu pakai
versi penanya, sedangkan keduanya tidak nyambung (oleh penanya tidak
diupayakan agar nyambung )
Private Sub cmd_InsertPictures_Click()
' code by siti Vi / latest: retouched: 2009
' menginsert gambar ke sheet; dengan satu kriteria
'--------------------------------------------------
Dim Nik_ID As String, FileNm As String, FfPath As String
Dim FSysOb As Object, r As Integer
r = 5
FfPath = ThisWorkbook.Path & "\"
Set FSysOb = CreateObject("Scripting.FileSystemObject")
Do While Len(Cells(r, 2)) > 0
Nik_ID = Cells(r, 2)
FileNm = FfPath + "F" + Nik_ID + ".jpg"
Cells(r, 15).Select
If FSysOb.FileExists(FileNm) Then
Me.Pictures.Insert(FileNm).Select
ResizePicture Selection
End If
r = r + 1
Loop
End Sub
lihat lampiran (kemungkinan besar tidak seperti yg anda bayangkan)
~siti
Dear XL-mania, saya pendatang baru & masih newbie. Saya ada masalah tentang menyusun data gambar/foto. Pekerjaan saya mengambil data dengan cara mengambil gambar/foto,dan biasanya foto-foto tersebut saya simpan dalam satu folder dan untuk laporannya disediakan template kosong untuk meletakkan foto-foto tersebut. Yang menjadi masalahnya adalah bagaimana caranya supaya foto-foto yang berada difolder tersebut bisa tersusun kedalam template dengan hanya hanya satu klik saja tidak satu persatu.
Demikian pertanyaannya semoga ada pencerahan dari XL-mania semua
| tiap tanggal gajian, order buku "mengapa boss benci chart anda |
| membludak :) ayo2 pesan yang belum punya.... |
| btw... selamat menunaikan ibadah puasa ya... |
| www.facebook.com/pages/XL-mania/104233892978057 |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
Nenhum comentário:
Postar um comentário