Αποστολή δεδομένων Excel σε Παρουσίαση PowerPoint - dummies

Έχει ειπωθεί ότι έως και το 50% των παρουσιάσεων του PowerPoint περιέχει δεδομένα που έχουν αντιγραφεί απευθείας από το Excel. Αυτή η δήλωση δεν είναι δύσκολο να πιστέψει κανείς. Είναι συχνά πολύ πιο εύκολο να αναλύσετε και να δημιουργήσετε διαγράμματα και προβολές δεδομένων στο Excel από ό, τι στο PowerPoint. Αφού έχουν δημιουργηθεί αυτά τα διαγράμματα και οι προβολές δεδομένων, γιατί δεν θα τα μετακινήσετε απλά σε PowerPoint; Η μακροεντολή σε αυτήν την ενότητα σάς επιτρέπει να δημιουργείτε δυναμικά διαφάνειες του PowerPoint που περιέχουν δεδομένα από μια περιοχή που καθορίζετε.

Μπορείτε να κατεβάσετε ένα λειτουργικό παράδειγμα αποστολής δεδομένων Excel στο PowerPoint.

Πώς λειτουργεί η μακροεντολή

Σε αυτό το παράδειγμα, αντιγράφετε ένα εύρος από ένα αρχείο Excel και επικολλάτε αυτό το εύρος σε μια διαφάνεια σε μια πρόσφατα δημιουργημένη παρουσίαση του PowerPoint.

Λάβετε υπόψη ότι επειδή αυτός ο κώδικας θα εκτελεστεί από το Excel, θα πρέπει να ορίσετε μια αναφορά στη βιβλιοθήκη αντικειμένων του Microsoft PowerPoint. Μπορείτε να ορίσετε την αναφορά ανοίγοντας τον Επεξεργαστή Visual Basic στο Excel και επιλέγοντας Εργαλείο → Αναφορές. Κάντε κύλιση προς τα κάτω μέχρι να βρείτε την καταχώρηση Microsoft PowerPoint xx Βιβλιοθήκη αντικειμένων, όπου το xx είναι η έκδοση του PowerPoint. Τοποθετήστε μια επιταγή στο πλαίσιο ελέγχου δίπλα στην καταχώρηση.

Sub CopyRangeToPresentation () 'Βήμα 1: Δηλώστε τις μεταβλητές σας Dim PP As PowerPoint. Η εφαρμογή Dim PPPres ως PowerPoint. Παρουσίαση Dim PPSlide Ως PowerPoint. Slide Dim SlideTitle As String 'Βήμα 2: Ανοίξτε το PowerPoint και δημιουργήστε νέα παρουσίαση Ρυθμίστε το PP = Νέο PowerPoint. Σετ εφαρμογής PPPres = PP. Παρουσιάσεις. Προσθέστε PP. Visible = True "Βήμα 3: Προσθήκη νέας διαφάνειας ως διαφάνειας 1 και εστίαση σε αυτήν Ρυθμίστε PPSlide = PPPres. Διαφάνειες. Προσθέστε (1, ppLayoutTitleOnly) PPSlide. Επιλέξτε 'Βήμα 4: Αντιγράψτε το εύρος ως φύλλα εικόνων ("Στοιχεία διαφάνειας"). Εύρος ("A1: J28"). CopyPicture _ Εμφάνιση: = xlScreen, Format: = xlPicture 'Βήμα 5: Επικόλληση της εικόνας και προσαρμογή της θέσης PPSlide. Σχήματα. Επικόλληση. Επιλέξτε PP. ActiveWindow. Επιλογή. ShapeRange. Ευθυγραμμίστε msoAlignCenters, True PP. ActiveWindow. Επιλογή. ShapeRange. Ευθυγραμμίστε το msoAlignMiddles, Αληθές 'Βήμα 6: Προσθέστε τον τίτλο στη διαφάνεια SlideTitle = "Το πρώτο μου PowerPoint Slide" PPSlide. Σχήματα. Τίτλος. TextFrame. TextRange. Text = SlideTitle 'Βήμα 7: Καθαρισμός μνήμης PP. Ενεργοποιήστε το σετ PPSlide = τίποτα δεν ορίζει PPPres = τίποτα δεν έχει οριστεί PP = τίποτα δεν τελειώνει

Στο βήμα 1, δηλώνετε τέσσερις μεταβλητές: PP είναι μια μεταβλητή αντικειμένου που εκθέτει το αντικείμενο της εφαρμογής PowerPoint, PPPres είναι μια μεταβλητή αντικειμένου που εκθέτει το αντικείμενο παρουσίασης PowerPoint, Το PPSlide είναι μια μεταβλητή αντικειμένου που εκθέτει το αντικείμενο Slide του PowerPoint και το SlideTitle είναι μια μεταβλητή συμβολοσειράς που χρησιμοποιείται για να περάσει το κείμενο για τον τίτλο της διαφάνειας.

Το βήμα 2 ανοίγει το PowerPoint με μια κενή παρουσίαση. Σημειώστε ότι ορίσετε την ιδιότητα Visible της εφαρμογής PowerPoint σε True για να βεβαιωθείτε ότι μπορείτε να δείτε την ενέργεια καθώς εκτελείται ο κώδικας.

Στο βήμα 3, προσθέτετε μια νέα διαφάνεια στην παρουσίαση χρησιμοποιώντας τη μέθοδο προσθήκης αντικειμένων διαφανειών. Σημειώστε ότι χρησιμοποιείτε το ppLayoutTitleOnly, διασφαλίζοντας ότι η διαφάνεια δημιουργείται με ένα πλαίσιο κειμένου τίτλου. Μπορείτε στη συνέχεια να κάνετε ένα επιπλέον βήμα και να εστιάσετε στη διαφάνεια. Δηλαδή, λέτε ρητά στο PowerPoint να επιλέξει αυτή τη διαφάνεια, καθιστώντας την ενεργή.

Στο Βήμα 4, χρησιμοποιείτε τη μέθοδο CopyPicture για να αντιγράψετε το εύρος στόχου ως εικόνα. Η εμβέλεια που αντιγράφεται εδώ είναι η περιοχή A1 έως J28 στην καρτέλα Δεδομένα διαφάνειας.

Το βήμα 5 επικολλά την εικόνα στην ενεργή διαφάνεια και συγκεντρώνει την εικόνα τόσο οριζόντια όσο και κατακόρυφα.

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

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

Για να χρησιμοποιήσετε τη μακροεντολή

Για να εφαρμόσετε αυτήν τη μακροεντολή, μπορείτε να την αντιγράψετε και να την επικολλήσετε σε μια τυπική ενότητα:

1. Ενεργοποιήστε τον επεξεργαστή της Visual Basic πατώντας Alt + F11.

2. Στο παράθυρο Project, βρείτε το όνομα του έργου / του βιβλίου εργασίας σας.

3. Επιλέξτε Εισαγωγή → Ενότητα.

4. Πληκτρολογήστε ή επικολλήστε τον κώδικα.