Materi Perkuliahan

Bintang Hexagon Ajaib Menggunakan VBA for Powerpoint

Dipublikasikan pada : 29 Januari 2019.

Sub loncat1()
Dim a As Integer
a = ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text
ActivePresentation.Slides(1).Shapes(“lingkaran” & a).Left = ActivePresentation.Slides(1).Shapes(“L1”).Left + ActivePresentation.Slides(1).Shapes(“L1”).Width / 60
ActivePresentation.Slides(1).Shapes(“lingkaran” & a).Top = ActivePresentation.Slides(1).Shapes(“L1”).Top + ActivePresentation.Slides(1).Shapes(“L1”).Height / 60
End Sub
Sub loncat2()
Dim a As Integer
a = ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text
ActivePresentation.Slides(1).Shapes(“lingkaran” & a).Left = ActivePresentation.Slides(1).Shapes(“L2”).Left + ActivePresentation.Slides(1).Shapes(“L2”).Width / 60
ActivePresentation.Slides(1).Shapes(“lingkaran” & a).Top = ActivePresentation.Slides(1).Shapes(“L2”).Top + ActivePresentation.Slides(1).Shapes(“L2”).Height / 60
End Sub
Sub loncat3()
Dim a As Integer
a = ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text
ActivePresentation.Slides(1).Shapes(“lingkaran” & a).Left = ActivePresentation.Slides(1).Shapes(“L3”).Left + ActivePresentation.Slides(1).Shapes(“L3”).Width / 60
ActivePresentation.Slides(1).Shapes(“lingkaran” & a).Top = ActivePresentation.Slides(1).Shapes(“L3”).Top + ActivePresentation.Slides(1).Shapes(“L3”).Height / 60
End Sub
Sub loncat4()
Dim a As Integer
a = ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text
ActivePresentation.Slides(1).Shapes(“lingkaran” & a).Left = ActivePresentation.Slides(1).Shapes(“L4”).Left + ActivePresentation.Slides(1).Shapes(“L4”).Width / 60
ActivePresentation.Slides(1).Shapes(“lingkaran” & a).Top = ActivePresentation.Slides(1).Shapes(“L4”).Top + ActivePresentation.Slides(1).Shapes(“L4”).Height / 60
End Sub
Sub loncat5()
Dim a As Integer
a = ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text
ActivePresentation.Slides(1).Shapes(“lingkaran” & a).Left = ActivePresentation.Slides(1).Shapes(“L5”).Left + ActivePresentation.Slides(1).Shapes(“L5”).Width / 60
ActivePresentation.Slides(1).Shapes(“lingkaran” & a).Top = ActivePresentation.Slides(1).Shapes(“L5”).Top + ActivePresentation.Slides(1).Shapes(“L5”).Height / 60
End Sub
Sub loncat6()
Dim a As Integer
a = ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text
ActivePresentation.Slides(1).Shapes(“lingkaran” & a).Left = ActivePresentation.Slides(1).Shapes(“L6”).Left + ActivePresentation.Slides(1).Shapes(“L6”).Width / 60
ActivePresentation.Slides(1).Shapes(“lingkaran” & a).Top = ActivePresentation.Slides(1).Shapes(“L6”).Top + ActivePresentation.Slides(1).Shapes(“L6”).Height / 60
End Sub
Sub loncat7()
Dim a As Integer
a = ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text
ActivePresentation.Slides(1).Shapes(“lingkaran” & a).Left = ActivePresentation.Slides(1).Shapes(“L7”).Left + ActivePresentation.Slides(1).Shapes(“L7”).Width / 70
ActivePresentation.Slides(1).Shapes(“lingkaran” & a).Top = ActivePresentation.Slides(1).Shapes(“L7”).Top + ActivePresentation.Slides(1).Shapes(“L7”).Height / 70
End Sub
Sub loncat8()
Dim a As Integer
a = ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text
ActivePresentation.Slides(1).Shapes(“lingkaran” & a).Left = ActivePresentation.Slides(1).Shapes(“L8”).Left + ActivePresentation.Slides(1).Shapes(“L8”).Width / 60
ActivePresentation.Slides(1).Shapes(“lingkaran” & a).Top = ActivePresentation.Slides(1).Shapes(“L8”).Top + ActivePresentation.Slides(1).Shapes(“L8”).Height / 60
End Sub
Sub loncat9()
Dim a As Integer
a = ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text
ActivePresentation.Slides(1).Shapes(“lingkaran” & a).Left = ActivePresentation.Slides(1).Shapes(“L9”).Left + ActivePresentation.Slides(1).Shapes(“L9”).Width / 60
ActivePresentation.Slides(1).Shapes(“lingkaran” & a).Top = ActivePresentation.Slides(1).Shapes(“L9”).Top + ActivePresentation.Slides(1).Shapes(“L9”).Height / 60
End Sub
Sub loncat10()
Dim a As Integer
a = ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text
ActivePresentation.Slides(1).Shapes(“lingkaran” & a).Left = ActivePresentation.Slides(1).Shapes(“L10”).Left + ActivePresentation.Slides(1).Shapes(“L10”).Width / 60
ActivePresentation.Slides(1).Shapes(“lingkaran” & a).Top = ActivePresentation.Slides(1).Shapes(“L10”).Top + ActivePresentation.Slides(1).Shapes(“L10”).Height / 60
End Sub

Sub satu()
ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text = 1
End Sub
Sub dua()
ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text = 2
End Sub
Sub tiga()
ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text = 3
End Sub
Sub empat()
ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text = 4
End Sub
Sub lima()
ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text = 5
End Sub
Sub enam()
ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text = 6
End Sub
Sub tujuh()
ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text = 7
End Sub
Sub delapan()
ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text = 8
End Sub
Sub sembilan()
ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text = 9
End Sub
Sub sepuluh()
ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text = 10
End Sub
Sub sebelas()
ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text = 11
End Sub
Sub duabelas()
ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text = 12
End Sub
Sub tigabelas()
ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text = 13
End Sub
Sub empatbelas()
ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text = 14
End Sub
Sub limabelas()
ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text = 15
End Sub
Sub enambelas()
ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text = 16
End Sub
Sub tujuhbelas()
ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text = 17
End Sub
Sub kembali1()
ActivePresentation.Slides(1).Shapes(“lingkaran1”).Left = ActivePresentation.Slides(1).Shapes(“tempat1”).Left + ActivePresentation.Slides(1).Shapes(“tempat1”).Width / 60
ActivePresentation.Slides(1).Shapes(“lingkaran1” & a).Top = ActivePresentation.Slides(1).Shapes(“tempat1”).Top + ActivePresentation.Slides(1).Shapes(“tempat1”).Height / 60
End Sub
Sub kembali2()
ActivePresentation.Slides(1).Shapes(“lingkaran2”).Left = ActivePresentation.Slides(1).Shapes(“tempat2”).Left + ActivePresentation.Slides(1).Shapes(“tempat2”).Width / 60
ActivePresentation.Slides(1).Shapes(“lingkaran2” & a).Top = ActivePresentation.Slides(1).Shapes(“tempat2”).Top + ActivePresentation.Slides(1).Shapes(“tempat2”).Height / 60
End Sub
Sub kembali3()
ActivePresentation.Slides(1).Shapes(“lingkaran3”).Left = ActivePresentation.Slides(1).Shapes(“tempat3”).Left + ActivePresentation.Slides(1).Shapes(“tempat3”).Width / 60
ActivePresentation.Slides(1).Shapes(“lingkaran3” & a).Top = ActivePresentation.Slides(1).Shapes(“tempat3”).Top + ActivePresentation.Slides(1).Shapes(“tempat3”).Height / 60
End Sub
Sub kembali4()
ActivePresentation.Slides(1).Shapes(“lingkaran4”).Left = ActivePresentation.Slides(1).Shapes(“tempat4”).Left + ActivePresentation.Slides(1).Shapes(“tempat4”).Width / 60
ActivePresentation.Slides(1).Shapes(“lingkaran4” & a).Top = ActivePresentation.Slides(1).Shapes(“tempat4”).Top + ActivePresentation.Slides(1).Shapes(“tempat4”).Height / 60
End Sub
Sub kembali5()
ActivePresentation.Slides(1).Shapes(“lingkaran5”).Left = ActivePresentation.Slides(1).Shapes(“tempat5”).Left + ActivePresentation.Slides(1).Shapes(“tempat5”).Width / 60
ActivePresentation.Slides(1).Shapes(“lingkaran5” & a).Top = ActivePresentation.Slides(1).Shapes(“tempat5”).Top + ActivePresentation.Slides(1).Shapes(“tempat5”).Height / 60
End Sub
Sub kembali6()
ActivePresentation.Slides(1).Shapes(“lingkaran6”).Left = ActivePresentation.Slides(1).Shapes(“tempat6”).Left + ActivePresentation.Slides(1).Shapes(“tempat6”).Width / 60
ActivePresentation.Slides(1).Shapes(“lingkaran6” & a).Top = ActivePresentation.Slides(1).Shapes(“tempat6”).Top + ActivePresentation.Slides(1).Shapes(“tempat6”).Height / 60
End Sub
Sub kembali7()
ActivePresentation.Slides(1).Shapes(“lingkaran7”).Left = ActivePresentation.Slides(1).Shapes(“tempat7”).Left + ActivePresentation.Slides(1).Shapes(“tempat7”).Width / 60
ActivePresentation.Slides(1).Shapes(“lingkaran7” & a).Top = ActivePresentation.Slides(1).Shapes(“tempat7”).Top + ActivePresentation.Slides(1).Shapes(“tempat7”).Height / 60
End Sub
Sub kembal18()
ActivePresentation.Slides(1).Shapes(“lingkaran8”).Left = ActivePresentation.Slides(1).Shapes(“tempat8”).Left + ActivePresentation.Slides(1).Shapes(“tempat8”).Width / 60
ActivePresentation.Slides(1).Shapes(“lingkaran8” & a).Top = ActivePresentation.Slides(1).Shapes(“tempat8”).Top + ActivePresentation.Slides(1).Shapes(“tempat8”).Height / 60
End Sub
Sub kembali9()
ActivePresentation.Slides(1).Shapes(“lingkaran9”).Left = ActivePresentation.Slides(1).Shapes(“tempat9”).Left + ActivePresentation.Slides(1).Shapes(“tempat9”).Width / 60
ActivePresentation.Slides(1).Shapes(“lingkaran9” & a).Top = ActivePresentation.Slides(1).Shapes(“tempat9”).Top + ActivePresentation.Slides(1).Shapes(“tempat9”).Height / 60
End Sub
Sub kembali10()
ActivePresentation.Slides(1).Shapes(“lingkaran10”).Left = ActivePresentation.Slides(1).Shapes(“tempat10”).Left + ActivePresentation.Slides(1).Shapes(“tempat10”).Width / 60
ActivePresentation.Slides(1).Shapes(“lingkaran10” & a).Top = ActivePresentation.Slides(1).Shapes(“tempat10”).Top + ActivePresentation.Slides(1).Shapes(“tempat10”).Height / 60
End Sub
Sub kembali11()
ActivePresentation.Slides(1).Shapes(“lingkaran11”).Left = ActivePresentation.Slides(1).Shapes(“tempat11”).Left + ActivePresentation.Slides(1).Shapes(“tempat11”).Width / 60
ActivePresentation.Slides(1).Shapes(“lingkaran11” & a).Top = ActivePresentation.Slides(1).Shapes(“tempat11”).Top + ActivePresentation.Slides(1).Shapes(“tempat11”).Height / 60
End Sub
Sub kembali12()
ActivePresentation.Slides(1).Shapes(“lingkaran12”).Left = ActivePresentation.Slides(1).Shapes(“tempat12”).Left + ActivePresentation.Slides(1).Shapes(“tempat12”).Width / 60
ActivePresentation.Slides(1).Shapes(“lingkaran12” & a).Top = ActivePresentation.Slides(1).Shapes(“tempat12”).Top + ActivePresentation.Slides(1).Shapes(“tempat12”).Height / 60
End Sub
Sub kembali13()
ActivePresentation.Slides(1).Shapes(“lingkaran13”).Left = ActivePresentation.Slides(1).Shapes(“tempat13”).Left + ActivePresentation.Slides(1).Shapes(“tempat13”).Width / 60
ActivePresentation.Slides(1).Shapes(“lingkaran13” & a).Top = ActivePresentation.Slides(1).Shapes(“tempat13”).Top + ActivePresentation.Slides(1).Shapes(“tempat13”).Height / 60
End Sub
Sub kembali14()
ActivePresentation.Slides(1).Shapes(“lingkaran14”).Left = ActivePresentation.Slides(1).Shapes(“tempat14”).Left + ActivePresentation.Slides(1).Shapes(“tempat14”).Width / 60
ActivePresentation.Slides(1).Shapes(“lingkaran14” & a).Top = ActivePresentation.Slides(1).Shapes(“tempat14”).Top + ActivePresentation.Slides(1).Shapes(“tempat14”).Height / 60
End Sub
Sub kembali15()
ActivePresentation.Slides(1).Shapes(“lingkaran15”).Left = ActivePresentation.Slides(1).Shapes(“tempat15”).Left + ActivePresentation.Slides(1).Shapes(“tempat15”).Width / 60
ActivePresentation.Slides(1).Shapes(“lingkaran15” & a).Top = ActivePresentation.Slides(1).Shapes(“tempat15”).Top + ActivePresentation.Slides(1).Shapes(“tempat15”).Height / 60
End Sub
Sub kembali16()
ActivePresentation.Slides(1).Shapes(“lingkaran16”).Left = ActivePresentation.Slides(1).Shapes(“tempat16”).Left + ActivePresentation.Slides(1).Shapes(“tempat16”).Width / 60
ActivePresentation.Slides(1).Shapes(“lingkaran16” & a).Top = ActivePresentation.Slides(1).Shapes(“tempat16”).Top + ActivePresentation.Slides(1).Shapes(“tempat16”).Height / 60
End Sub
Sub allkembali()

ActivePresentation.Slides(1).Shapes(“lingkaran1”).Left = ActivePresentation.Slides(1).Shapes(“tempat1”).Left + ActivePresentation.Slides(1).Shapes(“tempat1”).Width / 60
ActivePresentation.Slides(1).Shapes(“lingkaran1” & a).Top = ActivePresentation.Slides(1).Shapes(“tempat1”).Top + ActivePresentation.Slides(1).Shapes(“tempat1”).Height / 60

ActivePresentation.Slides(1).Shapes(“lingkaran2”).Left = ActivePresentation.Slides(1).Shapes(“tempat2”).Left + ActivePresentation.Slides(1).Shapes(“tempat2”).Width / 60
ActivePresentation.Slides(1).Shapes(“lingkaran2” & a).Top = ActivePresentation.Slides(1).Shapes(“tempat2”).Top + ActivePresentation.Slides(1).Shapes(“tempat2”).Height / 60

ActivePresentation.Slides(1).Shapes(“lingkaran3”).Left = ActivePresentation.Slides(1).Shapes(“tempat3”).Left + ActivePresentation.Slides(1).Shapes(“tempat3”).Width / 60
ActivePresentation.Slides(1).Shapes(“lingkaran3” & a).Top = ActivePresentation.Slides(1).Shapes(“tempat3”).Top + ActivePresentation.Slides(1).Shapes(“tempat3”).Height / 60

ActivePresentation.Slides(1).Shapes(“lingkaran4”).Left = ActivePresentation.Slides(1).Shapes(“tempat4”).Left + ActivePresentation.Slides(1).Shapes(“tempat4”).Width / 60
ActivePresentation.Slides(1).Shapes(“lingkaran4” & a).Top = ActivePresentation.Slides(1).Shapes(“tempat4”).Top + ActivePresentation.Slides(1).Shapes(“tempat4”).Height / 60

ActivePresentation.Slides(1).Shapes(“lingkaran5”).Left = ActivePresentation.Slides(1).Shapes(“tempat5”).Left + ActivePresentation.Slides(1).Shapes(“tempat5”).Width / 60
ActivePresentation.Slides(1).Shapes(“lingkaran5” & a).Top = ActivePresentation.Slides(1).Shapes(“tempat5”).Top + ActivePresentation.Slides(1).Shapes(“tempat5”).Height / 60

ActivePresentation.Slides(1).Shapes(“lingkaran6”).Left = ActivePresentation.Slides(1).Shapes(“tempat6”).Left + ActivePresentation.Slides(1).Shapes(“tempat6”).Width / 60
ActivePresentation.Slides(1).Shapes(“lingkaran6” & a).Top = ActivePresentation.Slides(1).Shapes(“tempat6”).Top + ActivePresentation.Slides(1).Shapes(“tempat6”).Height / 60

ActivePresentation.Slides(1).Shapes(“lingkaran7”).Left = ActivePresentation.Slides(1).Shapes(“tempat7”).Left + ActivePresentation.Slides(1).Shapes(“tempat7”).Width / 60
ActivePresentation.Slides(1).Shapes(“lingkaran7” & a).Top = ActivePresentation.Slides(1).Shapes(“tempat7”).Top + ActivePresentation.Slides(1).Shapes(“tempat7”).Height / 60

ActivePresentation.Slides(1).Shapes(“lingkaran8”).Left = ActivePresentation.Slides(1).Shapes(“tempat8”).Left + ActivePresentation.Slides(1).Shapes(“tempat8”).Width / 60
ActivePresentation.Slides(1).Shapes(“lingkaran8” & a).Top = ActivePresentation.Slides(1).Shapes(“tempat8”).Top + ActivePresentation.Slides(1).Shapes(“tempat8”).Height / 60

ActivePresentation.Slides(1).Shapes(“lingkaran9”).Left = ActivePresentation.Slides(1).Shapes(“tempat9”).Left + ActivePresentation.Slides(1).Shapes(“tempat9”).Width / 60
ActivePresentation.Slides(1).Shapes(“lingkaran9” & a).Top = ActivePresentation.Slides(1).Shapes(“tempat9”).Top + ActivePresentation.Slides(1).Shapes(“tempat9”).Height / 60

ActivePresentation.Slides(1).Shapes(“lingkaran10”).Left = ActivePresentation.Slides(1).Shapes(“tempat10”).Left + ActivePresentation.Slides(1).Shapes(“tempat10”).Width / 60
ActivePresentation.Slides(1).Shapes(“lingkaran10” & a).Top = ActivePresentation.Slides(1).Shapes(“tempat10”).Top + ActivePresentation.Slides(1).Shapes(“tempat10”).Height / 60

ActivePresentation.Slides(1).Shapes(“lingkaran11”).Left = ActivePresentation.Slides(1).Shapes(“tempat11”).Left + ActivePresentation.Slides(1).Shapes(“tempat11”).Width / 60
ActivePresentation.Slides(1).Shapes(“lingkaran11” & a).Top = ActivePresentation.Slides(1).Shapes(“tempat11”).Top + ActivePresentation.Slides(1).Shapes(“tempat11”).Height / 60

ActivePresentation.Slides(1).Shapes(“lingkaran12”).Left = ActivePresentation.Slides(1).Shapes(“tempat12”).Left + ActivePresentation.Slides(1).Shapes(“tempat12”).Width / 60
ActivePresentation.Slides(1).Shapes(“lingkaran12” & a).Top = ActivePresentation.Slides(1).Shapes(“tempat12”).Top + ActivePresentation.Slides(1).Shapes(“tempat12”).Height / 60
ActivePresentation.Slides(1).Shapes(“lingkaran13”).Left = ActivePresentation.Slides(1).Shapes(“tempat13”).Left + ActivePresentation.Slides(1).Shapes(“tempat13”).Width / 60
ActivePresentation.Slides(1).Shapes(“lingkaran13” & a).Top = ActivePresentation.Slides(1).Shapes(“tempat13”).Top + ActivePresentation.Slides(1).Shapes(“tempat13”).Height / 60
ActivePresentation.Slides(1).Shapes(“lingkaran14”).Left = ActivePresentation.Slides(1).Shapes(“tempat14”).Left + ActivePresentation.Slides(1).Shapes(“tempat14”).Width / 60
ActivePresentation.Slides(1).Shapes(“lingkaran14” & a).Top = ActivePresentation.Slides(1).Shapes(“tempat14”).Top + ActivePresentation.Slides(1).Shapes(“tempat14”).Height / 60
ActivePresentation.Slides(1).Shapes(“lingkaran15”).Left = ActivePresentation.Slides(1).Shapes(“tempat15”).Left + ActivePresentation.Slides(1).Shapes(“tempat15”).Width / 60
ActivePresentation.Slides(1).Shapes(“lingkaran15” & a).Top = ActivePresentation.Slides(1).Shapes(“tempat15”).Top + ActivePresentation.Slides(1).Shapes(“tempat15”).Height / 60
ActivePresentation.Slides(1).Shapes(“lingkaran16”).Left = ActivePresentation.Slides(1).Shapes(“tempat16”).Left + ActivePresentation.Slides(1).Shapes(“tempat16”).Width / 60
ActivePresentation.Slides(1).Shapes(“lingkaran16” & a).Top = ActivePresentation.Slides(1).Shapes(“tempat16”).Top + ActivePresentation.Slides(1).Shapes(“tempat16”).Height / 60

End Sub
Sub mulai()
ActivePresentation.Slides(1).Shapes(“start”).TextFrame.TextRange.Text = ” hitung mundur ”
End With
End Sub
Sub Waktu()
Static waktuberjalan As Boolean
If waktuberjalan = True Then
End
Else
waktuberjalan = True
Dim waktuberkurang As Integer
Dim xwaktu As Date
xwaktu = Now
With ActivePresentation.Slides(1)
.Shapes(“start”).TextFrame.TextRange.Text = “Waktu yang tersisa”
With .Shapes(“tampilanJam”)
waktuberkurang = InputBox(“Lama Waktu Hitung Mundur”, “Pengaturan Waktu”)
Do While (waktuberkurang > -1)
If Format(Now, “ss”) <> Format(xwaktu, “ss”) Then
xwaktu = Now
.TextFrame.TextRange.Text = Format(TimeValue(Format(Now, “hh:mm:ss”)) – TimeSerial(Hour(Now), Minute(Now), Second(Now) + waktuberkurang), “hh:mm:ss”)
waktuberkurang = waktuberkurang – 1
DoEvents
End If
Loop
End With
waktuberjalan = False
MsgBox (“Waktu habis!… klik ‘OK’ untuk memeriksa jawaban.”)
SlideShowWindows(1).View.GotoSlide (2)
End

End With
End If
End Sub

Sub ulangi()
With ActivePresentation.Slides(1)
.Shapes(“start”).TextFrame.TextRange.Text = “Hitung Mundur”
SlideShowWindows(1).View.GotoSlide (1)
End With
End Sub

Sub aturan()
ActivePresentation.Slides(1).Shapes(“start”).TextFrame.TextRange.Text = MsgBox(“peraturan : 1) untuk memulai permainan klik tombol mulai , 2) isi setiap tempat bintang menggunakan lingkaran lingkaran yang telah di sediakan 3) dengan catatan apabila di jumlahkan ke atas, ke bawah kesamping kanan ataupun samping kiri harus berjumlah 30″)
End Sub
Sub periksa()

End Sub

[gview file=”https://dosen.ikipsiliwangi.ac.id/wp-content/uploads/sites/6/2019/01/laporan-uas-TIK_imaniar.docx”]

id_IDIndonesian
id_IDIndonesian