Hot Fox: Re: ]] XL-mania [[ Insert file Pasfoto Ribuan

sexta-feira, 9 de outubro de 2009

Re: ]] XL-mania [[ Insert file Pasfoto Ribuan

OM om....... Pilenya dah jadi, aturan mainnya dari pile yang udah dibikin kayak gini oom :

1. Aktifkan Sekuriti Makro Excel.
2. Pada File ini Lokasi Gambar diletakan di lokasi Folder "c:\gambar\"
3. Tipe file yang dimasukan .jpg ->Bisa dirubah dari kodingan VBA nyaa
4. *Penting Tolong diinget.......

Karena validasi file berdasarkan ID Karyawan.......maka file gambarnya juga harus sesuai dengan ID Karyawan, sebagai contoh :

Karyawan ID NIK : 1310011106680001 , Maka .....
File Fotonya : 1310011106680001.jpg yang terletak di dalam polder c:\gambar\

5. Ukuran foto didalam Cells tidak bisa sesuai ukuran 4 x 6 silahkan di edit dari kodingan vba nya oom...sesuai dengan selera si oomm......

Kodingannya oom :

Private Sub CmdCobaoom_Click()
Dim i As Integer
Dim SheetAktif As Worksheet
Dim sNamaFile As String
Dim bValidasi As Boolean
Dim sLokasiGambar As String

Set SheetAktif = ActiveSheet
i = 5
bValidasi = True
' Lokasi Potonya oom
sLokasiGambar = "c:\gambar\"

Set oFSo = CreateObject("Scripting.FileSystemObject")

While bValidasi

' Set IDNIK untuk Identifikasi Nama gambar di foto
sNamaFile = SheetAktif.Cells(i, 2).Value

If sNamaFile = "" Then
    bValidasi = False
Else
    Cells(i, 15).Select ' Lokasi cell masukan gambar fotonya ooom

    ' File Gambar yang dimasukan = Lokasi Gambar + Nama File (IDNIK) + Extensi file (disini .jpg)
    sNamaFile = sLokasiGambar + sNamaFile + ".jpg"
    If oFSo.fileExists(sNamaFile) Then

        ActiveSheet.Pictures.Insert(sNamaFile).Select
        ' Ukuran Gambar....tolong disesuaikan sendiri.............
            Selection.ShapeRange.ScaleWidth 0.6, msoFalse, msoScaleFromTopLeft
            Selection.ShapeRange.ScaleHeight 0.6, msoFalse, msoScaleFromTopLeft
    End If
i = i + 1
End If
Wend
End Sub

- ^ Puthut Wibowo ^ -

--- On Fri, 10/9/09, yayat ruhimat <yayat61@yahoo.com> wrote:

From: yayat ruhimat <yayat61@yahoo.com>
Subject: ]] XL-mania [[ Insert file Pasfoto Ribuan
To: XL-mania@yahoogroups.com
Date: Friday, October 9, 2009, 5:39 PM

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

__._,_.___

Messages in this topic (2) Reply (via web post) | Start a new topic

Messages

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Moderasi akan lambat minggu ini, momods pergi ke tempat jauh      |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| 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              |
+-------------------------------------------------------------------+

MARKETPLACE

Mom Power: Discover the community of moms doing more for their families, for the world and for each other