Πώς να κάνει ένα γράφημα στο ίδιο φύλλο σε VBA

Στη σουίτα Microsoft Office , Visual Basic for Applications ( VBA) είναι το κέλυφος προγραμματισμού που δίνει προχωρημένους χρήστες τη δυνατότητα να δημιουργούν πολύπλοκες και αυτοματοποιημένα έγγραφα . Μία από τις πολύπλοκες εργασίες που μπορείτε να κάνετε στο Excel χρησιμοποιώντας VBA είναι να δημιουργήσετε ένα γράφημα και να την ενσωματώσει στο ίδιο φύλλο εργασίας στο οποίο εργάζεστε . Χρησιμοποιήστε το " ChartObject " αντικείμενο σε VBA για να δημιουργήσετε και να ενσωματώσετε ένα γράφημα σε ένα φύλλο εργασίας του Excel . Οδηγίες
Η

1 Ανοίξτε το Excel 2010 και δείχνουν την καρτέλα Προγραμματιστής , αν δεν είναι ήδη δείχνει . Κάντε κλικ στο "Αρχείο" και στη συνέχεια " Επιλογές". Κάντε κλικ στο " Προσαρμογή της Κορδέλας " στο παράθυρο Κατηγορίες . Επιλέξτε "Προγραμματιστής " από τη λίστα των κύριων καρτέλες και στη συνέχεια κάντε κλικ στο "OK". 2

Κάντε κλικ στην καρτέλα "Προγραμματιστής ", που τώρα θα πρέπει να εμφανίζεται στην Κορδέλα . Κάντε κλικ στο " Visual Basic" για να ανοίξετε το πρόγραμμα επεξεργασίας της Visual Basic .
Εικόνων 3

Κάντε διπλό κλικ στο φύλλο εργασίας στο οποίο θέλετε να ενσωματώσετε το γράφημα από τον πόνο του έργου . Όλα τα φύλλα εργασίας που είναι σήμερα στο έργο σας είναι εισηγμένη στο παράθυρο . Ο κωδικός για το φύλλο εργασίας θα ανοίξει στο παράθυρο κώδικα . Αν δεν έχετε ήδη προσθέσει κώδικα στο φύλλο εργασίας το παράθυρο κώδικα θα είναι κενή .
Η

4 Κάντε κλικ στο "Εισαγωγή" και στη συνέχεια " Διαδικασία ". Πληκτρολογήστε ένα όνομα για τη διαδικασία στο παράθυρο με το όνομα , αφήστε όλες τις άλλες επιλογές το ίδιο και στη συνέχεια κάντε κλικ στο "OK". Για παράδειγμα σε αυτό το άρθρο , το όνομα της διαδικασίας " embedChart . "
5

Προσθέστε τον κώδικα που θα ενσωματώσει ένα γράφημα στο φύλλο εργασίας . Κάντε κλικ στην επιλογή μεταξύ του " Public Sub ... " και "End Sub" δηλώσεων που δεν είναι πλέον στο παράθυρο κώδικα . Θα προσθέσω τον κώδικα για τη διαδικασία μεταξύ των δύο δηλώσεων . Η Microsoft έχει αναπτύξει τον κώδικα που θα δημιουργήσει ένα γράφημα και να την ενσωματώσει στο τρέχον φύλλο . Αντιγράψτε αυτόν τον κώδικα της Επιτροπής στη διαδικασία σας ή γράψε τη δική σου .

" Sub embedChart ( )

Dim chtNew Όπως φαίνεται στο Διάγραμμα

Set chtNew = Charts.Add

Ορισμός chtNew = chtNew.Location ( Όπου : = xlLocationAsObject , Όνομα : = " Φύλλο1 " ) .

Με chtNew

ChartType = xl3DPie

« Ρυθμίστε την περιοχή δεδομένων για το γράφημα

SetSourceData Πηγή : . . = Sheets ( " Φύλλο1 " ) Range. ( "A1 : Η2" ) , PlotBy : . = _

xlRows

HasTitle = True

. ChartTitle.Text = " My Pie Chart"

End With

End Sub "
Η 6

Κάντε κλικ στο" Αποθήκευση "στην γραμμή εργαλείων Visual Basic συντάκτη και κλείσιμο . Πηγαίνετε στο φύλλο εργασίας που έχετε ενσωματωμένο το γράφημα και να δείτε ότι αυτό δείχνει .
Η
εικόνων