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

Kelebihan Excel VBA PowerPoint

  • Menggunakan VBA di Powerpoint memudahkan penanganan jika file ppt memiliki banyak slide dengan konten besar.
  • VBA dengan Powerpoint memberikan sentuhan otomatisasi bahkan dengan fungsi terbatas yang tersedia.

Kekurangan Excel VBA PowerPoint

  • Kita perlu memilih Perpustakaan Objek Microsoft PowerPoint 15.0 dari opsi Referensi yang terletak di opsi menu Alat, yang kita perlukan di awal contoh-1, setiap kali kita menjalankan kode untuk PowerPoint.

Hal-hal untuk diingat

  • Simpan file dalam format Presentasi Aktifkan Makro setelah menulis kode. Ini akan membantu kami menghindari kehilangan kode dan menggunakan waktu yang sama berulang kali di masa mendatang.
  • Fitur pengodean ulang tidak akan berfungsi di sini karena kita perlu beralih dari Excel ke PowerPoint untuk mengubah antarmuka antar halaman.
  • Selalu kompilasi kode sebelum dijalankan. Ini akan membantu Anda menemukan kesalahan dalam kode. Ini cukup membantu ketika kita menulis baris kode yang besar.
  • Untuk menjalankan dan mengimplementasikan kode kita perlu membuka lembar excel dengan Bagan yang ingin kita tempelkan di slide PowerPoint.
  • Kita dapat menyelaraskan grafik di PowerPoint sesuai kebutuhan kita.

10 situs game teratas yang tidak diblokir di sekolah tahun 2024

10 situs game teratas yang tidak diblokir di sekolah tahun 2024

10 situs web game teratas yang tidak diblokir di sekolah tahun 2024. Temukan dunia game yang tidak diblokir dan nikmati permainan tanpa batasan.

[8 Solusi] Bagaimana Cara Memperbaiki Masalah DNS Pada Windows 10?

[8 Solusi] Bagaimana Cara Memperbaiki Masalah DNS Pada Windows 10?

Mendapatkan masalah DNS di komputer Windows 10? Ikuti perbaikan yang diberikan dalam artikel ini untuk memperbaiki masalah DNS paling umum yang dihadapi pengguna di komputer Windows 10.

7 Perbaikan Untuk Steam Tidak Dapat Menyinkronkan File Anda

7 Perbaikan Untuk Steam Tidak Dapat Menyinkronkan File Anda

Pelajari cara memperbaiki Steam tidak dapat menyinkronkan file Anda. Hapus folder data pengguna, hapus ClientRegistry.blob, verifikasi integritas file game, dan banyak lagi.

Memperbaiki Error Missing or Failed Printhead pada Printer HP [8 Trik]

Memperbaiki Error Missing or Failed Printhead pada Printer HP [8 Trik]

Dapatkan detail lengkap tentang Kesalahan Printhead yang Hilang Atau Gagal. Coba perbaikan terbaik untuk mengatasi HP Officejet hilang atau gagal Printhead error.

Perbaiki URL yang Diminta Ditolak: Silakan Konsultasikan dengan Administrator

Perbaiki URL yang Diminta Ditolak: Silakan Konsultasikan dengan Administrator

Baca artikel untuk memperbaiki URL yang diminta ditolak. Silakan berkonsultasi dengan administrator, kesalahan browser dan buka halaman web yang diperlukan dengan mudah

8 Perbaikan Terbaik untuk Masalah PS5 Tidak Akan Terhubung ke Wi-Fi

8 Perbaikan Terbaik untuk Masalah PS5 Tidak Akan Terhubung ke Wi-Fi

Jika Anda menghadapi masalah PS5 tidak akan terhubung ke Wi-Fi, artikel ini memberikan solusi yang efektif untuk masalah tersebut.

24 Kode Kesalahan Aktivasi Windows 10 Paling Umum dan Perbaikannya [DIPERBARUI]

24 Kode Kesalahan Aktivasi Windows 10 Paling Umum dan Perbaikannya [DIPERBARUI]

Pelajari cara memperbaiki kesalahan aktivasi Windows 10 saat mengaktifkan Windows 10, juga cara membeli kunci produk & memperbaiki kesalahan aktivasi terkait kunci produk sepenuhnya…

Perbaiki PS5 Tidak Dapat Memuat Sesuatu yang Salah dengan 5 Cara Mudah

Perbaiki PS5 Tidak Dapat Memuat Sesuatu yang Salah dengan 5 Cara Mudah

Baca artikel untuk memperbaiki PS5 tidak dapat memuat kesalahan konten. Temukan solusi yang efektif untuk mengatasi masalah ini dengan langkah-langkah yang jelas.

[Memperbaiki] Game Resident Evil 7 Biohazard Crash, Error & Lainnya!

[Memperbaiki] Game Resident Evil 7 Biohazard Crash, Error & Lainnya!

Tidak dapat melakukan Streaming Game Resident Evil 7 kemudian ikuti panduan langkah demi langkah untuk menyelesaikan kesalahan game dan mainkan game tanpa gangguan.

2 Trik Untuk Menghapus Folder $WINDOWS.~BT dan $WINDOWS.~WS Di Windows 10

2 Trik Untuk Menghapus Folder $WINDOWS.~BT dan $WINDOWS.~WS Di Windows 10

Pelajari cara mudah menghapus folder $WINDOWS.~BT dan $WINDOWS.~WS di Windows 10 dengan trik efektif ini. Cobalah sekarang dan optimalkan kinerja PC Anda.