/ / / Γραφήματα προγραμματισμού στο Excel VBA

Χάρτες προγραμματισμού στο Excel VBA

Παρακάτω θα δούμε δύο προγράμματα στο Excel VBA. Ένα πρόγραμμα βρόχους μέσω όλων των διαγραμμάτων σε ένα φύλλο και αλλάζει κάθε διάγραμμα σε ένα διάγραμμα πίτας. Το άλλο πρόγραμμα αλλάζει μερικά ιδιότητες του πρώτου χάρτη.

1. Δημιουργήστε κάποια διαγράμματα (ή κάντε λήψη του αρχείου Excel).

Χάρτες προγραμματισμού στο Excel VBA

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

1. Πρώτον, πρέπει να δηλώσουμε ένα αντικείμενο ChartObject. Το αντικείμενο ChartObject ενεργεί ως δοχείο για ένα αντικείμενο γραφήματος. Καλούμε το ChartObject cht αλλά μπορείτε να χρησιμοποιήσετε οποιοδήποτε όνομα.

Dim cht As ChartObject

2. Η συλλογή ChartObjects περιέχει όλα τα ενσωματωμένα γραφήματα σε ένα μόνο φύλλο. Θέλουμε να βρούμε όλα τα διαγράμματα στο πρώτο φύλλο. Προσθέστε τον ακόλουθο βρόχο για κάθε επόμενο.

For Each cht In Worksheets(1).ChartObjects

Next cht

3. Το αντικείμενο Διάγραμμα αντιπροσωπεύει ένα γράφημα σε ένα βιβλίο εργασίας. Προσθέστε την ακόλουθη γραμμή κώδικα στον βρόχο For Each Next για να αλλάξετε κάθε γράφημα σε ένα διάγραμμα πίτας.

cht.Chart.ChartType = xlPie

Σημείωση: και πάλι, το cht ενεργεί ως δοχείο για το αντικείμενο χάρτη. Χρησιμοποιούμε την ιδιότητα ChartType για να αλλάξετε τον τύπο γραφήματος. Χρησιμοποιούμε την ενσωματωμένη σταθερή xlPie για να αλλάξουμε κάθε γράφημα σε ένα διάγραμμα πίτας.

4. Αποτέλεσμα όταν κάνετε κλικ στο κουμπί εντολών στο φύλλο:

Προγραμματισμός Αποτέλεσμα Χαρτών

Τώρα θα αλλάξουμε κάποιες ιδιότητες του πρώτου χάρτη.

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

5. Η συλλογή ChartObjects περιέχει όλα τα ενσωματωμένα γραφήματα σε ένα μόνο φύλλο. Προσθέστε την ακόλουθη γραμμή κώδικα για να ενεργοποιήσετε το πρώτο γράφημα:

Worksheets(1).ChartObjects(1).Activate

Τώρα μπορούμε να αναφερθούμε σε αυτό το διάγραμμα ως το ActiveChart.

6. Προσθέστε την ακόλουθη γραμμή κώδικα για να αλλάξετε τον τίτλο του γραφήματος.

ActiveChart.ChartTitle.Text = "Sales Report"

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

ActiveChart.Legend.Position = xlBottom

8. Αποτέλεσμα όταν κάνετε κλικ στο κουμπί εντολών στο φύλλο:

Προγραμματισμός Αποτέλεσμα Χαρτών

Επίσης διαβάστε: