Bagaimana cara menyalin slide tambahan ke dalam presentasi PowerPoint Anda dengan VBA Macros?

Terakhir diperbarui: Juni 2020

Berlaku untuk: Office 2019 dan yang lebih lama. Windows saja.

Berikut pertanyaan dari seorang pembaca:

Sebagai bagian dari presentasi laporan triwulanan saya kepada manajemen, saya sering perlu menyalin beberapa slide informasi umum dari presentasi lain. Bukan masalah besar, tetapi akan menjadi penghemat yang signifikan untuk dapat mengotomatiskan latihan ini. Bantuan VBA Macro apa pun untuk mencapainya sangat dihargai!

Seperti yang baru saja Anda sebutkan, Anda dapat mengotomatiskan salin dan tempel slide di PowerPoint menggunakan Visual Basic for Applications. Jika Anda perlu membuat beberapa presentasi setiap bulan, otomatisasi salin / impor slide ini bisa menjadi penghemat waktu yang sangat besar!

PowerPoint VBA untuk menambahkan slide

Mari kita mulai dengan latihan sederhana ini.

Pertama, pastikan tab pengembangan Anda diaktifkan dan terlihat. Berikut cara melakukannya .

Saya akan berasumsi bahwa Anda telah membuat presentasi berkemampuan Makro (tipe file adalah .pptm), yang telah Anda tempatkan di direktori yang sama dengan presentasi sumber Anda (yang akan saya rujuk sebagai source.pptm). Berikut cara membuat presentasi PowerPoint dengan VBA .

Pertama, mari kita buat cadangan presentasi itu (salin dan simpan sederhana).

Kemudian mari kita lanjutkan dan masukkan Makro berikut ke dalam modul VBA baru di presentasi tujuan Anda. Semua detail tentang cara melakukannya dapat ditemukan di tutorial PowerPoint VBA kami .

Berikut kode VBA yang Anda perlukan untuk menyalin dan menempelkan slide secara otomatis.

Beberapa asumsi yang saya buat:

• Presentasi sumber Anda bernama source.pptm
•  Anda akan menempelkan slide 2-4 dari presentasi sumber Anda
• Anda akan menempatkan slide yang disalin mulai slide 5.

Sub InsertFromOtherPres()

' This short VBA macro copies slides from one presentation and inserts them into another

ActivePresentation.Slides.InsertFromFile FileName:="source.pptm", Index:=1, SlideStart:=2, 
SlideEnd:=4

End Sub

Jelas, jangan ragu untuk mengubah pengindeksan nomor slide dalam kode sehingga sesuai dengan kebutuhan Anda.

Anda dapat membuatnya berulang melalui beberapa presentasi dan menyisipkan slide tertentu dari masing-masing ke dalam laporan manajemen Anda.

PowerPoint VBA untuk menggandakan slide

Daripada menyalin slide ke presentasi lain, Anda mungkin ingin mengkloning satu atau beberapa slide dalam presentasi Anda:

Sub CopySlides()

' Short snippet to duplicate the third slide in a presentation, change the index/es accrodingly

ActivePresentation.Slides(3).Duplicate

End Sub

Itu hanya beberapa contoh sederhana dari otomatisasi PowerPoint. Pembaca yang mencari pertanyaan spesifik, jangan ragu untuk mengirimkan pertanyaan melalui halaman Kontak.

Semoga Membantu