Langkah2 untuk menjalankannya adalah sbb :
- Folder _Insert Picture_ dicopy ke suatu directory mis D:
- Aktifkan maco sebelum membuka file
- Buka file Excel (dalam contoh, file Excel dan foto berada dalam satu folder,
yaitu _Insert Picture_)
- Setelah file dibuka, tinggal klik No NPK nya maka fotonya akan berubah sesuai
No NPK tsb (Foto dinamai dengan No NPK).
Nama2 range :
- NPK untuk referensi data validation (sel A1:A4 sheet 2)
- PIC sel yang berisi pilihan data validation (sel F7 sheet1)
Nama Shape :
- Foto
Macronya adalah sbb:
Private Sub Worksheet_Change(ByVal Target As Range)
Set x = Range("PIC")
y = ThisWorkbook.Path & "\" & x & ".png"
If Target = x Then
Shapes("Foto").Fill.Solid
If Dir(y) <> "" Then
Shapes("Foto").Fill.UserPicture y
Else
MsgBox "belum ada foto"
End If
End If
End Sub
Terjemahan bahasa manusianya ? Akan lebih solid jika yang menjelaskan adalah
yang membuat macronya (melihat gaya penulisannya (ada tanda "-"), kelihatannya
berasal dari Pak Anton).
Mudah2an Pak Anton mau turun gunung untuk menjelaskannya.
Salam,
Hendrik Karnadi
________________________________
From: pengadapan surbakti <[email protected]>
To: "[email protected]" <[email protected]>
Sent: Friday, 1 March 2013, 15:04
Subject: Bls: [belajar-excel] insert photo ke template excel
mohon dishare sama langkah2 pembuatannya ........
Thanks & regards
________________________________
Dari: hendrik karnadi <[email protected]>
Kepada: "[email protected]" <[email protected]>
Dikirim: Jumat, 1 Maret 2013 10:12
Judul: Re: [belajar-excel] insert photo ke template excel
File terlampir, kiriman dari milis sebelumnya, mungkin mirip dengan kebutuhan
anda.
Gambar dan Excel berada dalam satu folder.
Salam,
Hendrik Karnadi
________________________________
From: pengadapan surbakti <[email protected]>
To: excel <[email protected]>
Sent: Thursday, 28 February 2013, 22:03
Subject: [belajar-excel] insert photo ke template excel
dear excel
mohon bantuannya cara masukkan photo ke template excel secara otomatis
saya punya case data nya di sheet 1 dan keterangan di sheet 1 ditampilkan
dengan photo di sheet 2.
dimana photonya tersimpan dalam 1 folder.
data terlampir
thank and regards
