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

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

Launch Excel , πληκτρολογήστε " Alan " σε " A1 ", " Daniel" σε " A2 ", " Kitzia " σε " A3 ", " Oscar " σε " Α4 " και " Yarexli " σε " Α5 ". Πιέστε το πλήκτρο " CTRL " και "S " για να αποθηκεύσετε το βιβλίο εργασίας σε " C : \\ " ως " ExcelFile.xlsx . " 2
Κλείστε το Excel .

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

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

Dim sourceXL Όπως Excel.Application

Dim sourcebook Όπως Excel.Workbook

Dim sourceSheet Όπως Excel.Worksheet

Dim dataReadArray ( 10 ) Όπως String Dim

myPress Όπως Παρουσίαση

Dim newSlide Όπως Slide
Η

4 Ρυθμίστε τις τιμές στις μεταβλητές αντικειμένου :

Set sourceXL = Excel.Application

Set Sourcebook = sourceXL.Workbooks.Open ( " G : \\ ExcelFile.xlsx " )

Σετ sourceSheet = sourceBook.Sheets ( 1 )

Ορισμός myPres = ActivePresentation

Set newSlide = myPres.Slides.Add ( Δείκτης : = myPres.Slides.Count + 1 , Διάταξη : = ppLayoutText )
5

Διαβάστε τα δεδομένα στο αρχείο Excel και αποθηκεύστε το σε ένα String πίνακα: . .

sourceSheet.Range ( "A1" ) Επιλέξτε

dataReadArray ( 0 ) = sourceSheet.Range ( " A1" ) Value

sourceSheet.Range ( " A2 " ) . Επιλέξτε

dataReadArray ( 1 ) = sourceSheet.Range ( " A2 " ) . Value

sourceSheet.Range ( " A3" ) . Επιλέξτε

dataReadArray ( 2 ) = sourceSheet.Range ( " A3" ) . Value

sourceSheet.Range ( " A4 " ) . Επιλέξτε

dataReadArray ( 3 ) = sourceSheet . Range ( " A4 " ) . Value

sourceSheet.Range ( " A5 " ) . Επιλέξτε

dataReadArray ( 4 ) = sourceSheet.Range ( " A5 " ) . Value

6

Προσθέστε τα στοιχεία από τη διάταξη String σε μια νέα διαφάνεια στην τρέχουσα παρουσίασή σας :

newSlide.Shapes ( 1 ) TextFrame.TextRange = "Τα δεδομένα αντιγράφονται από το Excel "

. newSlide.Shapes ( 2 ) . TextFrame.TextRange = dataReadArray ( 0 ) & vbNewLine & _

dataReadArray ( 1 ) & vbNewLine & _

dataReadArray ( 2 ) & vbNewLine & _

dataReadArray ( 3 ) & vbNewLine & _

dataReadArray ( 4 ) & vbNewLine
Σελίδα 7

Κλείστε το βιβλίο εργασίας :

sourceBook.Close

8

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