PowerPoint του Excel VBA
Χρησιμοποιώντας το VBA μπορούμε να αυτοματοποιήσουμε την εργασία που κάνουμε για το PowerPoint, αλλά πρώτα για να χρησιμοποιήσουμε τον κώδικα VBA ή αποσπάσματα για να δουλέψουμε στο Powerpoint πρώτα δουλέψουμε μέσω των επιλογών ασφαλείας στο PowerPoint για να ενεργοποιήσουμε όλες τις μακροεντολές και μετά μπορούμε να χρησιμοποιήσουμε το PowerPoint VBA αναφοράς για μακροεντολές σε MS PowerPoint.
Η ομορφιά του VBA είναι ότι μπορούμε να αναφέρουμε άλλα προϊόντα της Microsoft όπως "Microsoft Word" και "Microsoft PowerPoint." Συνήθως δημιουργούμε αναφορές στο Excel και μετά δημιουργούμε παρουσιάσεις PowerPoint. Όλοι οι χρήστες του excel ξοδεύουν συνήθως πολύ χρόνο για να προετοιμάσουν την παρουσίαση από τα δεδομένα και τις αναφορές του excel. Εάν αφιερώνετε αρκετό χρόνο για την προετοιμασία παρουσιάσεων PowerPoint, αυτό το σεμινάριο θα σας δείξει πώς να δημιουργήσετε μια παρουσίαση PowerPoint από το excel χρησιμοποιώντας το VBA Coding.
Ενεργοποίηση μοντέλου αντικειμένου Powerpoint
Βήμα 1: Ανοίξτε τον Επεξεργαστή VBA και, στη συνέχεια, Μεταβείτε στα Εργαλεία και αναφορές.
Βήμα 2: Τώρα, θα δείτε όλες τις αναφορές στο VBA Project. Κάντε κύλιση προς τα κάτω και επιλέξτε "Microsoft PowerPoint 15.0 Object Library".
Βήμα 3: Κάντε κλικ στο, Εντάξει. Τώρα μπορούμε να έχουμε πρόσβαση στο PowerPoint από το excel.
Tutorial VBA για τη δημιουργία παρουσίασης PowerPoint
Μπορούμε να δημιουργήσουμε PPT με δύο τρόπους ένα χρησιμοποιώντας το "Early Binding" και ένα άλλο χρησιμοποιώντας το "Late Binding". Θα σας δείξουμε πώς να δημιουργήσετε μια παρουσίαση PowerPoint χρησιμοποιώντας την τεχνική "Early Binding" .
Συνήθως, από το excel, προετοιμάζουμε παρουσιάσεις με βάση γραφήματα και ερμηνεία των γραφημάτων. Γι 'αυτό το σκοπό, έχω δημιουργήσει μερικά απλά γραφήματα και ερμηνείες excel στο ίδιο φύλλο εργασίας.
Βήμα 1: Ξεκινήστε την υπορουτίνα στο VBA. Τώρα για πρόσβαση στο PowerPoint, έχουμε ήδη ενεργοποιήσει το μοντέλο αντικειμένου PowerPoint στα προηγούμενα βήματα, τώρα. Για πρόσβαση σε αυτό, πρέπει να δηλώσουμε τη μεταβλητή ως PowerPoint.Application.
Κώδικας:
Sub PPT_Example () Dim PPApp ως PowerPoint. Εφαρμογή End Sub
Βήμα 2: Για να προσθέσετε την παρουσίαση στο PowerPoint, πρέπει να δηλώσουμε μια μεταβλητή ως PowerPoint.Presentation.
Κώδικας:
Χαμηλή παρουσίαση PPP ως PowerPoint. Παρουσίαση
Βήμα 3: Μετά την προσθήκη της παρουσίασης στο PowerPoint, πρέπει να προσθέσουμε το Slide. Για να δηλώσετε τη μεταβλητή ως PowerPoint.Slide
Κώδικας:
Dim PPSlide ως PowerPoint. Slide
Βήμα 4: Μόλις προστεθεί η διαφάνεια στο PowerPoint, πρέπει να χρησιμοποιήσουμε σχήματα στο PowerPoint, δηλαδή, πλαίσια κειμένου. Για να δηλώσετε μια μεταβλητή ως PowerPoint.Shape
Κώδικας:
Dim PPS Σχήμα ως PowerPoint. Σχήμα
Βήμα 5: Τώρα, για πρόσβαση σε όλα τα γραφήματα στο φύλλο εργασίας, πρέπει να δηλώσουμε τη μεταβλητή ως Excel.ChartObjects.
Κώδικας:
Dim PPCharts As Excel.ChartObject
Εντάξει, για να ξεκινήσει η διαδικασία, αυτές οι μεταβλητές είναι αρκετές.
Βήμα 6: Τώρα, πρέπει να ξεκινήσουμε το PowerPoint από το Excel. Δεδομένου ότι είναι εξωτερικό αντικείμενο, πρέπει να το ορίσουμε ως νέο PowerPoint.
Κώδικας:
Ορισμός PPApp = Νέο PowerPoint. Εφαρμογή
Αυτό θα ξεκινήσει το νέο PowerPoint από το excel.
Βήμα 7: Τώρα, η μεταβλητή PPApp είναι ίση με το PowerPoint που έχουμε ξεκινήσει. Τώρα κάντε αυτό το PowerPoint ορατό και μεγιστοποιήστε το παράθυρο.
Κώδικας:
PPApp.Visible = msoCTrue PPApp.WindowState = ppWindowMaximized
Αυτήν τη στιγμή, απλώς εκτελέστε τον κωδικό χρησιμοποιώντας το πλήκτρο F5 ή χειροκίνητα. Θα πρέπει να δείτε την εφαρμογή PowerPoint να κυκλοφορεί όπως η παρακάτω.
Βήμα 8: Τώρα, πρέπει να προσθέσουμε μια παρουσίαση στην εφαρμογή PowerPoint που έχουμε ξεκινήσει.
Κώδικας:
Ορισμός PPPresentation = PPApp.Presentations.Add
Τώρα πρέπει να δούμε την παρουσίαση του PowerPoint έτσι.
Βήμα 9: Μετά την προσθήκη της παρουσίασης, πρέπει να προσθέσουμε μια διαφάνεια.
Κώδικας:
Ορισμός PPSlide = PPPresentation.Slides.Add (1, ppLayoutTitleOnly)
Τώρα αυτό θα προσθέσει τη διαφάνεια τίτλου όπως παρακάτω.
Βήμα 10: Τώρα έχουμε περισσότερα από ένα γραφήματα στο φύλλο εργασίας, πρέπει να περάσουμε σε κάθε γράφημα και να επικολλήσουμε την παρουσίαση. Παρακάτω είναι ο κώδικας για αντιγραφή και επικόλληση του γραφήματος καθώς και ερμηνεία.
Παρακάτω είναι ο πλήρης κωδικός για εσάς.
Υπο PPT_ Παράδειγμα () Dim PPApp ως PowerPoint. Εφαρμογή Dim PPP Παρουσίαση ως PowerPoint. Παρουσίαση Dim PPS Slide As PowerPoint. Slide Dim PPShape As PowerPoint. Shape Dim PPCharts As Excel.ChartObject Set PPApp = New PowerPoint.Application PPApp.Visible = msoCTrue PPApp.WindowState = ppWindowMaximized 'Add Presentation Set PPPresentation = PPApp.Presentations.Add' Loop σε κάθε γράφημα στο Excel και επικολλήστε το στο PowerPoint για κάθε PPCharts στο ActiveSheet.ChartObjects PPApp.ActivePresentation.Slides.Add PPApp.ActivePresentation.Slides.Count + 1, ppLayoutText PPApp.ActiveWindow.View.GotoSlide PPApp.ActivePresentation.Slides.Count Set PPSlide = PPApp.ActivePresentation.Slides (PPApp.ActivePresentation.Slides.Count) «Αντιγράψτε το γράφημα και επικολλήστε το Powerpoint PPCharts.Επιλέξτε ActiveChart.ChartArea.Copy PPSlide. .PasteSpecial (Τύπος δεδομένων:= ppPasteMetafilePicture). Επιλέξτε "Προσθήκη επικεφαλίδας στη διαφάνεια PPSlide.Shapes (1) .TextFrame.TextRange.Text = PPCharts.Chart.ChartTitle.Text" Allignment of the chart PPApp.ActiveWindow.Selection.ShapeRange.Left = 15 PPApp.ActiveWctowind. .Selection.ShapeRange.Top = 125 PPSlide.Shapes (2) .Width = 200 PPSlide.Shapes (2). Left = 505 'Προσθήκη ερμηνείας Εάν InStr (PPSlide.Shapes (1) .TextFrame.TextRange.Text, "Region" ) Στη συνέχεια PPSlide.Shapes (2) .TextFrame.TextRange.Text = Range ("K2"). Value & vbNewLine PPSlide.Shapes (2) .TextFrame.TextRange.InsertAfter (Range ("K3"). Value & vbNewLine) " Διαφορετικά, εάν το γράφημα είναι το γράφημα κατανάλωσης "Ανανεώσιμο", εισαγάγετε τα κατάλληλα σχόλια ElseIf InStr (PPSlide.Shapes (1) .TextFrame.TextRange.Text, "Month") Στη συνέχεια PPSlide.Shapes (2) .TextFrame.TextRange.Text = Εύρος ("K20 "). Τιμή & vbNewLine PPSlide.Shapes (2) .TextFrame.TextRange.InsertAfter (Range (" K21 "). Value & vbNewLine) PPSlide.Shapes (2) .TextFrame.TextRange.InsertAfter (Range (" K22 ") .Value & vbNewLine) Τερματισμός Εάν 'Τώρα ας αλλάξουμε το μέγεθος γραμματοσειράς του πλαισίου επεξηγήσεων PPSlide.Shapes (2) .TextFrame.TextRange.Font.Size = 16 Επόμενο PPCharts End Sub
