Sub CreateSejarahPresentation()
‘Buat objek PowerPoint
Dim pptApp As PowerPoint.Application
Set pptApp = New PowerPoint.Application
‘Buka PowerPoint
pptApp.Visible = True
pptApp.Presentations.Add
‘Slide 1: Judul
Dim slide1 As PowerPoint.Slide
Set slide1 = pptApp.ActivePresentation.Slides.Add(1, ppLayoutTitle)
slide1.Shapes.Title.TextFrame.TextRange.Text = “Sejarah”
‘Slide 2: Zaman Prasejarah
Dim slide2 As PowerPoint.Slide
Set slide2 = pptApp.ActivePresentation.Slides.Add(2, ppLayoutTitleOnly)
slide2.Shapes.Title.TextFrame.TextRange.Text = “Zaman Prasejarah”
slide2.Shapes.Placeholders(2).TextFrame.TextRange.Text = “Zaman prasejarah merupakan masa sebelum ada catatan tertulis. Di Indonesia, zaman prasejarah diperkirakan berlangsung sejak 1,7 juta tahun yang lalu hingga sekitar 500 SM.”
‘Slide 3: Zaman Hindu-Buddha
Dim slide3 As PowerPoint.Slide
Set slide3 = pptApp.ActivePresentation.Slides.Add(3, ppLayoutTwoObjects)
slide3.Shapes.Title.TextFrame.TextRange.Text = “Zaman Hindu-Buddha”
slide3.Shapes(2).TextFrame.TextRange.Text = “Zaman Hindu-Buddha dimulai sejak abad ke-4 hingga abad ke-14. Pada masa ini, Indonesia dipengaruhi oleh agama Hindu dan Buddha dari India.”
slide3.Shapes(3).TextFrame.TextRange.Text = “Beberapa peninggalan dari zaman Hindu-Buddha yang masih ada hingga saat ini adalah Candi Borobudur, Candi Prambanan, dan Candi Sewu.”
‘Slide 4: Zaman Kerajaan Islam
Dim slide4 As PowerPoint.Slide
Set slide4 = pptApp.ActivePresentation.Slides.Add(4, ppLayoutPictureWithCaption)
slide4.Shapes.Title.TextFrame.TextRange.Text = “Zaman Kerajaan Islam”
slide4.Shapes.Placeholders(2).TextFrame.TextRange.Text = “Zaman Kerajaan Islam dimulai sejak abad ke-13 hingga abad ke-16. Pada masa ini, Indonesia dipengaruhi oleh agama Islam yang dibawa oleh para pedagang dari Timur Tengah.”
slide4.Shapes.AddPicture “C:UsersPublicPicturesSample PicturesKeraton Yogyakarta.jpg”, msoFalse, msoTrue, 50, 100, 300, 200
‘Slide 5: Zaman Kolonial
Dim slide5 As PowerPoint.Slide
Set slide5 = pptApp.ActivePresentation.Slides.Add(5, ppLayoutTitleOnly)
slide5.Shapes.Title.TextFrame.TextRange.Text = “Zaman Kolonial”
slide5.Shapes.Placeholders(2).TextFrame.TextRange.Text = “Zaman Kolonial dimulai sejak abad ke-16 hingga abad ke-20. Pada masa ini, Indonesia dikuasai oleh berbagai kekuatan asing seperti Portugis, Belanda, Inggris, dan Jepang.”
End Sub