Tips Menambahkan Foto pada Surat Pengumuman Kelulusan

• Saya anggap semua sudah punya File surat kelulusan yang berisi Sheet1 Data dan Sheet2 Surat. Tahap selanjutnya menambahkan foto yang akan berubah sesuai dengan nama.
  • Pada menu Developer aktifkan menu Design Mode
  • Klik Insert – pada bagian ActiveX Controls pilih Image
  • Tempatkan Image di dekat tandatangan Kepala Madrasah. Buat ukuran image 3 x 4 cm
  • Klik kanan Image – pilih properties , ubah pengaturan Picture Size Mode = Pilih ModeZoom
  Selanjutnya kita masuk ke Macro ( Klik Alt+F11) akan muncul menu macro excell, klik Sheet2.Surat ( karena foto nanti adanya di sheet surat) kemudian ketikkan kode macro berikut sampai selesai.

Sub Foto()
On Error GoTo NoPicture
Dim namafoto As String
namafoto = Sheet2.Range(“K21”)
Image1.Picture = LoadPicture(ActiveWorkbook.Path & “\Foto\” & namafoto & “.jpg”)
Exit Sub
NoPicture:
Image1.Picture = LoadPicture(ActiveWorkbook.Path & “\Foto\” & “NO PICTURE.jpg”)
End Sub

• Ingat nama maconya Foto.
• Langkah selanjutnya Klik Kanan Spinner, pilih Assign Macro – pilih nama macro Foto
• Tambahan NoPicture ini gunanya jika tidak menenukan data foto yang sesuai maka akan muncul foto dengan nama NO PICTURE ( Siapkan Foto tanpa wajah beri nama file NO PICTURE). Untuk siswa yang belum ada foto siapkan juga foto tanpa wajah pada masing masing file foto nama siswa.