Tugas Mahasiswa
Tugas Mendeskripsikan VBA for Powerpoint
Kode-kode VBA
Private Sub CommandButton1_Click()
Dim gambarku As Shape
Dim dataku As Shape
Dim hasilku As Shape
Dim a, b, c As Integer
d = 0
e = 0
For a = 1 To Val(TextBox1.Text)
d = d + 1
Label1.Caption = Label1.Caption + 1
Set gambarku = ActivePresentation.SlideShowWindow.View.Slide.Shapes.AddShape( _ Type:=msoShapeRectangle, Left:=10 + 50 * a, Top:=125, Width:=40, _ Height:=40)
gambarku.Name = “gambar” & d
gambarku.Fill.ForeColor.RGB = vbRed
gambarku.TextFrame.TextRange.Text = Label1.Caption
Set dataku = ActivePresentation.SlideShowWindow.View.Slide.Shapes.AddShape(Type:=msoShapeRectangle, Left:=15, Top:=125 + 50 * a, Width:=40, Height:=40)
dataku.Name = “gambarb” & d
dataku.Fill.ForeColor.RGB = vbRed
dataku.TextFrame.TextRange.Text = Label1.Caption
Next a
For b = 1 To Val(TextBox1.Text)
For c = 1 To Val(TextBox1.Text)
e = e + 1
Set hasilku = ActivePresentation.SlideShowWindow.View.Slide.Shapes.AddShape(Type:=msoShapeRectangle, Left:=10 + 50 * b, Top:=125 + 50 * c, Width:=40, Height:=40)
hasilku.Name = “gambarc” & e
hasilku.Fill.ForeColor.RGB = vbBlue
hasilku.TextFrame.TextRange.Text = b * c
Next c
Next b
End Sub
Private Sub CommandButton2_Click()
Dim b, c, d, e, f As Integer
c = Val(TextBox1.Text)
d = 0
For b = 1 To c
ActivePresentation.Slides(2).Shapes(“gambar” & b).Delete
ActivePresentation.Slides(2).Shapes(“gambarb” & b).Delete
Next b
For e = 1 To c
For f = 1 To c
d = d + 1
ActivePresentation.Slides(2).Shapes(“gambarc” & d).Delete
Next f
Next e
Label1.Caption = 0
End Sub