Πώς μπορώ να δημιουργήσω ένα Macro σε XLS να εξαγάγετε ένα γράφημα στο PowerPoint

; Microsoft Excel είναι μια εφαρμογή λογιστικών φύλλων που μπορεί να χρησιμοποιηθεί για να αναλύσει τα δεδομένα και να δημιουργήσει γραφήματα . Microsoft PowerPoint χρησιμοποιείται για τη δημιουργία παρουσιάσεων . Γνωρίζοντας πώς να εξάγουν ένα γράφημα του Excel στο PowerPoint χρησιμοποιώντας μια μακροεντολή μπορεί να απλοποιήσει τη διαδικασία προετοιμασίας των παρουσιάσεων , επειδή η μακροεντολή αυτοματοποιεί τη φάση εξαγωγής . Οδηγίες
Η 1

Ξεκινήστε το Microsoft Excel 2007 και πληκτρολογήστε τα ακόλουθα :

Στη στήλη " A1 " τύπου " 1 " . Στη στήλη τύπου «B1» από «0,5» .

Στη στήλη Τύπος " A2 " " 2 " . Στη στήλη Τύπος " B2 " " 0.2" .

Στη στήλη Τύπος " A3 " " 3 " . Στη στήλη Τύπος " B3 " " 0.7" .

Στη στήλη Τύπος " Α4 " " 4 " . Στη στήλη Τύπος " Β4 " " 0.1 " .

Στη στήλη Τύπος " Α5 " " 5 " . Στη στήλη Τύπος " B5 " " 0.9" .

Highlight "A1 " για να " B5 ", κάντε κλικ στο μενού "Εισαγωγή" και επιλέξτε " Γραμμή " για να δημιουργήσετε ένα γράφημα γραμμής . 2

Επιλέξτε την καρτέλα "Προγραμματιστής " και κάντε κλικ στο " Καταγραφή μακροεντολής . " Κάντε κλικ στο " A1" και επιλέξτε "Stop Recording ". Κάντε κλικ στο " Μακροεντολές " και επιλέξτε " Macro1 . " Κάντε κλικ στο κουμπί " Επεξεργασία" για να ανοίξετε το Microsoft Visual Basic .

Κάντε κλικ στο μενού "Εργαλεία" και επιλέξτε το πλαίσιο δίπλα στο " Microsoft PowerPoint 12.0 Object Library". Επιλέξτε το " OK".
Εικόνων 3

Πληκτρολογήστε την ακόλουθη μέσα " Sub Macro1 " για να δηλώσετε τις μεταβλητές σας :

Dim mypath Όπως String Dim

ppApp Όπως PowerPoint.Application

Dim ppPresentation Όπως PowerPoint.Presentation

Dim ppSlide Όπως PowerPoint.Slide

Dim ppImage Όπως PowerPoint.Shape
4

Τύπος τα παρακάτω για να αποθηκεύσετε το νέο γράφημα που μόλις δημιουργήσατε : .

ActiveSheet.ChartObjects ( " Διάγραμμα 1 " ) Ενεργοποίηση

mypath = " C : \\ myChart.gif "

ActiveChart.Export αρχείου : = mypath , FilterName : = " GIF "

Μπορείτε να επεξεργαστείτε " mypath = " C : \\. myChart.gif "" για να αποθηκεύσετε το γράφημα σε μια διαφορετική πορεία

5

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

Set ppApp = νέα PowerPoint.Application

ppApp.Visible = msoTrue

Ορισμός ppPresentation = ppApp.Presentations.Add ( msoTrue )

ppPresentation.Slides.Add 1 , ppLayoutBlank
Η 6

Πληκτρολογήστε το παρακάτω για να προσθέσετε γράφημα του Excel και να αποθηκεύσετε την παρουσίαση :

Ορισμός ppSlide = ppPresentation.Slides ( 1 )

ppSlide.Shapes.AddPicture αρχείου : = mypath , _

LinkToFile : = msoTrue , SaveWithDocument : = msoTrue , _

Αριστερά : = 100 , Top : = 100 , Πλάτος : = 250 , Ύψος : 250 =

ppPresentation.SaveAs " G : \\ myExcelChartPresentation.ppt "

ppPresentation.Close

ppApp.Quit

Μπορείτε να επεξεργαστείτε το " ppPresentation.SaveAs " G : \\. myExcelChartPresentation.ppt "" για να αποθηκεύσετε την παρουσίασή σας σε μια διαφορετική πορεία
Η 7

Πληκτρολογήστε το παρακάτω, για να απελευθερώσει τις μεταβλητές σας από τη μνήμη :

Set ppSlide = Τίποτα

Set ppPresentation = Τίποτα

Set ppApp = Τίποτα

Press " F5 " για να εκτελέσετε macro σας .
Η
εικόνων