Bagaimana cara membuat dan menambahkan slide ke presentasi PowerPoint dengan VBA?

Beberapa hari yang lalu, seorang pembaca bertanya tentang cara mengotomatiskan pembuatan presentasi PowerPoint dari awal dan kemudian dengan cepat menambahkan slide ke presentasi yang ada. Saya pikir skrip itu mungkin ada dalam daftar Macro PowerPoint yang paling berguna. 

Seperti yang kami tunjukkan sebelumnya, PowerPoint tidak menyertakan Perekam Makro (tidak seperti Excel dan Word, yang keduanya memiliki perekam bawaan untuk Makro). Oleh karena itu, kita memiliki Visual Basic for Application lama yang bagus yang dapat kita gunakan untuk membuat Macro sederhana untuk mengotomatisasi PowerPoint. Ada alternatif lebih lanjut untuk PowerPoint Automation, tetapi itu melampaui cakupan tutorial ini.

Dalam tutorial singkat hari ini, kita akan membahas tiga kasus penggunaan yang berbeda:

1. Pembuatan presentasi baru (kosong atau menggunakan template)
2. Menambahkan slide ke presentasi yang sudah ada.
3. Campuran dari dua kasus yang disebutkan di atas (Buat dari awal dan penambahan slide)

Mari kita mulai.

Lihatlah Pita. Jika Anda tidak melihat entri Pengembang di menu, sebelum memulai pengkodean, Anda harus mengaktifkan tab pengembang.

Setelah Anda membuat menu Pengembang terlihat Pita Anda, lanjutkan dan tekan Developer , lalu tekan tombol Visual Basic (atau cukup lanjutkan dan tekan Alt+F11) untuk membuka Visual Basic IDE.

VBA untuk Membuat Presentasi PowerPoint

1. Di VB Editor, klik kanan pada VBAProject dan tekan Insert .
2. Pilih Modul .
3. Rekatkan kode berikut di modul yang baru dibuat.

Sub CreatePresentation()
Dim NewPres as Presentation
Set NewPres = Presentations.Add
NewPres.SaveAs("MyPresentation.pptx")
End Sub

1. Tekan File dan kemudian Simpan.
2. Untuk Menjalankan kode Anda, tekan Run lalu pilih Run Sub/User Form (atau cukup F5).
3. Tutup editor VB.

VBA untuk menyisipkan slide

1. Di VB Editor, klik kanan pada VBAProject dan tekan Insert.
2. Pilih Modul
3. Rekatkan kode berikut di modul yang baru dibuat.

Sub CreateSlide()
Dim NewSlide as Slide
'This statement ads a title slide
Set NewSlide = ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)
'This statement adds a blank slide in the second place
Set NewSlide = ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutBlank)
End Sub

1. Tekan File dan kemudian Simpan.
2. Untuk Menjalankan kode Anda, tekan Run lalu pilih Run Sub/User Form (atau cukup F5).
3. Tutup editor VB.

Makro untuk menyiapkan presentasi baru dan menambahkan slide

Itu hanya akan mencampur dua cuplikan yang diuraikan di atas.

Sub CreatePres_AddSlides()
Dim NewPres as Presentation
Dim NewSlide as Slide
Set NewPres = Presentations.Add
NewPres.SaveAs("MyPresentation.pptx")
' Title Slide
Set NewSlide = ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)
'This statement adds a blank slide in the second place
Set NewSlide = ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutBlank)
'Save the new PowerPoint file
NewPres.SaveAs("MyPresentation.pptx")
End Sub

Selanjutnya Anda mungkin melihat tutorial kami tentang membuat bentuk secara terprogram di PowerPoint dengan VBA

Hasilkan Presentasi PowerPoint dari Excel

Kasus terakhir adalah Anda ingin membuat presentasi PowerPoint langsung dari spreadsheet Excel. Anda dapat menggunakan teknik yang sama dari Word dan Aplikasi Microsoft 365 lainnya.

• Tautkan Spreadsheet ke Model Data PowerPoint (dari Alat>>Referensi)
• Masukkan tombol ke spreadsheet Excel Anda (Pengembang >> Sisipkan lalu pilih Tombol Perintah).
• Masukkan kode VBA di bawah ini ke dalam Proyek VBA Spreadsheet Anda (langsung ke dalam Lembar atau ke Modul VBA)
• Ubah skrip sesuai kebutuhan.
• Jalankan (tekan F5) dan uji hasilnya.

Sub CreatePresentationFromExcel()


Dim MyPPt As PowerPoint.Application
Dim NewPres As PowerPoint.Presentation
Dim NewSlide As Slide
Set MyPPt = CreateObject("PowerPoint.Application")

Set NewPres = MyPPt.Presentations.Add
Set NewSlide = MyPPt.ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)

NewPres.SaveAs ("MyPresentation.pptx")
NewPres.Close

MyPPt.Quit

MsgBox ("Presentation saved")
End Sub

Nikmati