Πώς να αντιγράψετε πρόσθετες διαφάνειες στην παρουσίασή σας στο PowerPoint με μακροεντολές VBA;

Τελευταία ενημέρωση: Ιούνιος 2020

Ισχύει για: Office 2019 και παλαιότερες εκδόσεις. Μόνο Windows.

Εδώ είναι μια ερώτηση από έναν αναγνώστη:

Ως μέρος της τριμηνιαίας παρουσίασης της έκθεσης μου στη διοίκηση, συχνά χρειάζεται να αντιγράψω πολλές γενικές διαφάνειες πληροφοριών από άλλες παρουσιάσεις. Δεν είναι κάτι σπουδαίο, αλλά θα ήταν σημαντική εξοικονόμηση εάν μπορούσαμε να αυτοματοποιήσουμε αυτήν την άσκηση. Οποιαδήποτε βοήθεια μακροεντολής VBA για να επιτευχθεί αυτό εκτιμάται!

Όπως μόλις αναφέρατε, μπορείτε να αυτοματοποιήσετε την αντιγραφή και επικόλληση των διαφανειών στο PowerPoint χρησιμοποιώντας τη Visual Basic for Applications. Εάν χρειάζεται να δημιουργείτε πολλές παρουσιάσεις κάθε μήνα, αυτός ο αυτοματισμός αντιγραφής/εισαγωγής διαφανειών θα μπορούσε να εξοικονομήσει πολύ χρόνο!

PowerPoint VBA για προσθήκη διαφανειών

Ας συνεχίσουμε με αυτήν την απλή άσκηση.

Αρχικά, βεβαιωθείτε ότι η καρτέλα ανάπτυξή σας είναι ενεργοποιημένη και ορατή. Δείτε πώς να το κάνετε αυτό .

Θα υποθέσω ότι έχετε ήδη δημιουργήσει μια παρουσίαση με δυνατότητα Μακροεντολής (ο τύπος αρχείου είναι .pptm), την οποία έχετε τοποθετήσει στον ίδιο κατάλογο με την παρουσίαση της πηγής σας (την οποία θα αναφέρω ως source.pptm). Δείτε πώς μπορείτε να δημιουργήσετε μια παρουσίαση PowerPoint με VBA .

Αρχικά, ας πάρουμε ένα αντίγραφο ασφαλείας αυτής της παρουσίασης (απλή αντιγραφή και αποθήκευση).

Στη συνέχεια, ας προχωρήσουμε και εισάγουμε την ακόλουθη μακροεντολή σε μια νέα μονάδα VBA στην παρουσίαση προορισμού σας. Όλες οι λεπτομέρειες σχετικά με το πώς να το κάνετε αυτό μπορείτε να βρείτε στο σεμινάριο PowerPoint VBA .

Εδώ είναι ο κώδικας VBA που θα χρειαστείτε για να αντιγράψετε και να επικολλήσετε αυτόματα τις διαφάνειες.

Δυο υποθέσεις που έκανα:

• Η παρουσίαση της πηγής σας ονομάζεται source.pptm
•  Θα επικολλήσετε διαφάνειες 2-4 από την παρουσίαση πηγής
• Θα τοποθετήσετε τις αντιγραμμένες διαφάνειες ξεκινώντας τη διαφάνεια 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

Προφανώς, μη διστάσετε να αλλάξετε την ευρετηρίαση του αριθμού διαφάνειας στον κώδικα, ώστε να ταιριάζουν στις απαιτήσεις σας.

Μπορείτε να κάνετε επαναφορά σε πολλές παρουσιάσεις και να εισαγάγετε συγκεκριμένες διαφάνειες από κάθε μία στην αναφορά διαχείρισης.

PowerPoint VBA για αντιγραφή διαφανειών

Αντί να αντιγράψετε διαφάνειες σε άλλη παρουσίαση, ίσως θέλετε να κλωνοποιήσετε μία ή περισσότερες διαφάνειες στην παρουσίασή σας:

Sub CopySlides()

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

ActivePresentation.Slides(3).Duplicate

End Sub

Αυτά ήταν μόνο μερικά απλά παραδείγματα αυτοματισμού PowerPoint. Οι αναγνώστες που αναζητούν συγκεκριμένες ερωτήσεις, μη διστάσετε να στείλετε μια ερώτηση μέσω της σελίδας Επικοινωνία.

Ελπίζω να βοηθήσει 🙂