Bagaimana untuk mencipta dan menambah slaid pada persembahan PowerPoint dengan VBA?

Beberapa hari yang lalu, seorang pembaca bertanya tentang ada cara untuk mengautomasikan penciptaan persembahan PowerPoint dari awal dan kemudian dengan cepat menambah slaid pada pembentangan sedia ada itu. Saya fikir skrip itu mungkin berada dalam senarai Macro PowerPoint yang paling berguna. 

Seperti yang kami nyatakan pada masa lalu, PowerPoint tidak menyertakan Perakam Makro (itu tidak seperti Excel dan Word, yang kedua-duanya telah dibina dalam perakam untuk Makro). Oleh itu, kita ditinggalkan dengan Visual Basic for Application lama yang boleh kita gunakan untuk mencipta Makro mudah untuk mengautomasikan PowerPoint. Terdapat alternatif lain untuk Automasi PowerPoint, tetapi itu melangkaui skop tutorial ini.

Dalam tutorial ringkas hari ini, kami akan membincangkan tiga kes penggunaan yang berbeza:

1. Penciptaan pembentangan baharu (kosong atau menggunakan templat)
2. Tambahkan slaid pada pembentangan sedia ada.
3. Campuran dua kes yang disebutkan di atas (Buat dari awal dan penambahan slaid)

Mari kita mulakan.

Lihat pada Reben. Jika anda tidak melihat entri Pembangun dalam menu, sebelum memulakan pengekodan anda, anda perlu mendayakan tab pembangun.

Selepas anda membuat menu Pembangun kelihatan Reben anda, teruskan dan tekan pada Pembangun , kemudian tekan pada butang Visual Basic (atau teruskan dan tekan Alt+F11) untuk membuka Visual Basic IDE.

VBA untuk Mencipta Persembahan PowerPoint

1. Dalam Editor VB, klik kanan pada VBAProject dan tekan Insert .
2. Pilih Modul .
3. Tampalkan kod berikut dalam modul yang baru dibuat.

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

1. Tekan Fail dan kemudian Simpan.
2. Untuk Menjalankan kod anda, tekan Run dan kemudian pilih Run Sub/Borang Pengguna (atau hanya F5).
3. Tutup editor VB.

VBA untuk memasukkan slaid

1. Dalam Editor VB, klik kanan pada VBAProject dan tekan Sisipkan.
2. Pilih Modul
3. Tampalkan kod berikut dalam 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 Fail dan kemudian Simpan.
2. Untuk Menjalankan kod anda, tekan Run dan kemudian pilih Run Sub/Borang Pengguna (atau hanya F5).
3. Tutup editor VB.

Makro untuk menyediakan persembahan baharu dan menambah slaid

Itu hanya mencampurkan dua coretan yang digariskan 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

Seterusnya anda mungkin melihat tutorial kami tentang mencipta bentuk secara terprogram dalam PowerPoint dengan VBA

Hasilkan Persembahan PowerPoint daripada Excel

Kes terakhir ialah anda ingin membuat persembahan PowerPoint terus daripada hamparan Excel. Anda boleh menggunakan teknik yang sama daripada Word dan Aplikasi Microsoft 365 yang lain.

• Pautkan Hamparan kepada Model Data PowerPoint (dari Alat >> Rujukan)
• Sisipkan butang pada hamparan Excel anda (Pembangun >> Sisipkan dan kemudian pilih Butang Perintah).
• Masukkan kod VBA di bawah ke dalam Projek VBA Hamparan anda (terus ke dalam Helaian atau ke dalam Modul VBA)
• Ubah suai skrip mengikut keperluan.
• 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 🙂