Πώς να αντιγράψετε αυτόματα από το Excel στο PowerPoint Χρησιμοποιώντας μια VBA Macro

Αν θέλετε να επιταχύνετε τη μεταφορά δεδομένων από ένα βιβλίο εργασίας του Microsoft Excel στην παρουσίαση του Microsoft PowerPoint, χρησιμοποιήστε μια μακροεντολή και η Visual Basic for Applications είναι η τρόπος να πάει. Η VBA είναι μια γλώσσα προγραμματισμού υπολογιστών που χρησιμοποιείται σε εφαρμογές του Microsoft Office για την αυτοματοποίηση διαδικασιών όπως η αντιγραφή δεδομένων από το Excel. Μια μακροεντολή σας επιτρέπει να αποθηκεύσετε ένα σύνολο οδηγιών που μπορείτε να εκτελέσετε ξανά και ξανά με ένα πάτημα ενός κουμπιού.

Βήμα 1

Εκκίνηση του Excel, πληκτρολογήστε "Alan" στο "A1, "" Daniel "στο" A2 "," Kitzia "στο" A3 "," Oscar "στο" A4 "και" Yarexli "στο" A5 ". Πατήστε "CTRL" και "S" για να αποθηκεύσετε το βιβλίο εργασίας στο "C: \\" ως "ExcelFile.xlsx". Κλείσιμο του Excel.

Βήμα 2

Εκκίνηση του PowerPoint, κάντε κλικ στην καρτέλα "Προγραμματιστής" και κάντε κλικ στο "Macros" για να ξεκινήσετε το παράθυρο διαλόγου Macro. Πληκτρολογήστε "copyFromExcel" κάτω από το όνομα μακροεντολής και κάντε κλικ στο κουμπί "Δημιουργία". " και κάντε κλικ στην επιλογή "Αναφορές" για να ξεκινήσετε το παράθυρο διαλόγου Αναφορές. Κάντε κύλιση προς τα κάτω και επιλέξτε το πλαίσιο δίπλα στη "Βιβλιοθήκη αντικειμένων του Microsoft Excel" και κάντε κλικ στο κουμπί "OK".

Βήμα 3

Αντιγράψτε και επικολλήστε τα παρακάτω για να δημιουργήσετε τις μεταβλητές που θα χρησιμοποιήσετε για να αντιγράψετε τα δεδομένα από το Excel: Dim sourceXL Ως Excel.Application Dim sourceBook Όπως Excel.Workbook Dim sourceSheet Όπως Excel.Worksheet Dim δεδομέναReadArray (10) Όπως String Dim myPress ως παρουσίαση Dim newSlide As Slide

Βήμα 4

Ορισμός τιμών στις μεταβλητές αντικειμένου : Ορισμός sourceXL = Excel.Application Ρύθμιση sourceBook = sourceXL.Workbooks.Open ("G: \\ ExcelFile.xlsx") Ρύθμιση sourceSheet = sourceBook.Sheets (1) Ρύθμιση myPres = ActivePresentation Ρύθμιση newSlide = myPres.Slides.Add myPres.Slides.Count + 1, Layout: = ppLayoutText)

Βήμα 5

Διαβάστε τα δεδομένα στο αρχείο Excel και αποθηκεύστε τα σε μια σειρά String: sourceSheet.Range ("A1") Επιλέξτε dataReadArray (0) = sourceSheet.Range ("Α1") .Επιλογή πηγήςSheet.Range ("A2") Επιλέξτε dataReadArray (1) = sourceSheet.Range ("A2" (2) = sou rceSheet.Range ("A3") Αξία sourceSheet.Range ("A4") Επιλέξτε dataReadArray (3) = sourceSheet.Range ("A4"

Βήμα 6

Προσθέστε τα δεδομένα από τη συστοιχία String σε μια νέα διαφάνεια στην τρέχουσα παρουσίασή σας: newSlide.Shapes (1) .TextFrame.TextRange = "Δεδομένα (0) & vbNewLine & _ dataReadArray (1) & vbNewLine & _ dataReadArray (2) & vbNewLine & _ dataReadArray (3) & vbNewLine & _ dataReadArray (4) ) & vbNewLine

Βήμα 7

Κλείσιμο του βιβλίου εργασίας: sourceBook.Close

Μεταβείτε στο παράθυρο του PowerPoint και κάντε κλικ στο κουμπί "Μακροεντολές". Κάντε κλικ στην επιλογή "Εκτέλεση" για να εκτελέσετε τη μακροεντολή "copyFromExcel" και προσθέστε μια νέα διαφάνεια με τα δεδομένα που αντιγράφηκαν από το αρχείο Excel που δημιουργήσατε στο Βήμα 1.