Cara Membuat Kartu Pengawas Ujian

Salam sejahtera gan, Pada share kali ini ane cara membuat cetak kartu pengawas/panitia ujian sekolah dengan macro atau vba pada microsoft excel. Seperti membuat bingkai photo, tombol spin, tombol cetak dsb. Berikut adalah kode scrip untuk macro atau vba Cetak Kartu pengawa Ujian guna memenuhi administrasi Ujian Sekolah di satuan pangkalan sekolah agan-agan sekalian. 

Private Sub CommandButton1_Click()

On Error Resume Next

Dim Filter As String, Title As String, FileX As String

Dim SourceFile, DestinationFile

X.SetFocus

Filter = "JPG Image Files Only(*.jpg),*.jpg,"

Title = "Ganti Photo"

FileX = Application.GetOpenFilename(Filter, , Title)

NamaFile = Range("B13")

Sheets("Sheet2").Image1.Picture = LoadPicture(FileX)

Image1.Picture = LoadPicture(FileX)

DestinationFile = ActiveWorkbook.Path & "\Photo\" & NamaFile & ".jpg"

FileCopy FileX, DestinationFile

End Sub

Private Sub CommandButton2_Click()

Application.Dialogs(xlDialogPrint).Show

End Sub

Private Sub SpinButton1_Change()

On Error GoTo GbKosong

SpinButton1.Min = 1

SpinButton1.Max = 60

Range("C1") = SpinButton1

Application.ScreenUpdating = False

NamaData = Range("B13")

Files = ActiveWorkbook.Path & "\Photo\" & NamaData & ".jpg" '

Image1.Picture = LoadPicture(Files)

Application.ScreenUpdating = True

Exit Sub

GbKosong:

'Image1.Picture = Image2.Picture

End Sub

 Berikut Contoh Kartu Pengawas

Selamat mencoba, Semoga Sukses dan berkah. Aamiin..