VBA Makroları ile PowerPoint sunumunuza ekleme slaytları nasıl kopyalanır?

Son güncelleme: Haziran 2020

Uygulanabilirlik: Office 2019 ve üzeri. Yalnızca Windows.

İşte bir okuyucudan bir soru:

Yönetime üç aylık rapor sunumumun bir parçası olarak, genellikle diğer sunumlardan birkaç genel bilgi slaytı kopyalamam gerekiyor. Önemli bir şey değil, ancak bu alıştırmayı otomatik hale getirebilmek önemli bir tasarruf sağlayacaktır. Bunu başarmak için herhangi bir VBA Makro yardımı takdir edilmektedir!

Az önce bahsettiğiniz gibi, Visual Basic for Applications kullanarak PowerPoint'te slaytları kopyalayıp yapıştırmayı otomatikleştirebilirsiniz. Her ay birkaç sunum oluşturmanız gerekiyorsa, bu slayt kopyalama / içe aktarma otomasyonu çok büyük bir zaman tasarrufu sağlayabilir!

Slayt eklemek için PowerPoint VBA

Bu basit egzersizle başlayalım.

Öncelikle, geliştirme sekmenizin etkin ve görünür olduğundan emin olun. İşte bunu nasıl yapacağınız .

Kaynak sununuzla aynı dizine yerleştirdiğiniz (bundan source.pptm olarak bahsedeceğim) zaten bir Makro etkin sunum (dosya türü .pptm) ​​oluşturduğunuzu varsayacağım. VBA ile bir PowerPoint sunumunun nasıl oluşturulacağı aşağıda açıklanmıştır .

Öncelikle, o sunumun bir yedeğini alalım (basit kopyala ve kaydet).

O halde devam edelim ve aşağıdaki Makroyu hedef sunumunuzda yeni bir VBA modülüne ekleyelim. Bunun nasıl yapılacağına ilişkin tüm ayrıntılar PowerPoint VBA eğitimimizde bulunabilir .

Slaytları otomatik olarak kopyalayıp yapıştırmak için ihtiyaç duyacağınız VBA kodu burada.

Yaptığım birkaç varsayım:

• Kaynak sununuzun adı source.pptm
•  2-4. slaytları kaynak sununuzdan yapıştıracaksınız
• Slayt 5'ten başlayarak kopyalanan slaytları yerleştireceksiniz.

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

Açıkçası, gereksinimlerinize uyacak şekilde koddaki slayt numarası indekslemeyi değiştirmekten çekinmeyin.

Birkaç sunum arasında dolaşmasını sağlayabilir ve her birinden belirli slaytları yönetim raporunuza ekleyebilirsiniz.

Slaytları çoğaltmak için PowerPoint VBA

Slaytları başka bir sunuya kopyalamak yerine sununuzdaki bir veya daha fazla slaydı kopyalamak isteyebilirsiniz:

Sub CopySlides()

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

ActivePresentation.Slides(3).Duplicate

End Sub

Bunlar PowerPoint otomasyonunun birkaç basit örneğiydi. Spesifik sorular arayan okuyucular, İletişim sayfası aracılığıyla bir soruşturma göndermekten çekinmeyin.

Umarım Yardımcı Olur 🙂