Διαγράμματα VBA - Παραδείγματα προσθήκης γραφήματος με χρήση κώδικα VBA

Διαγράμματα Excel VBA

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

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

Πώς να προσθέσετε γραφήματα χρησιμοποιώντας τον κώδικα VBA στο Excel;

# 1 - Δημιουργία γραφήματος με χρήση κωδικοποίησης VBA

Για να δημιουργήσουμε οποιοδήποτε γράφημα, θα πρέπει να έχουμε κάποιο είδος αριθμητικών δεδομένων. Για αυτό το παράδειγμα, θα χρησιμοποιήσω τα παρακάτω δείγματα δεδομένων.

Εντάξει, ας πάμε στο πρόγραμμα επεξεργασίας VBA.

Βήμα 1: Ξεκινήστε την υπο διαδικασία.

Κώδικας:

Sub Charts_Example1 () End Sub

Βήμα 2: Ορίστε τη μεταβλητή ως Διάγραμμα.

Κώδικας:

Sub Charts_Example1 () Dim MyChart ως τέλος γραφήματος

Βήμα 3: Δεδομένου ότι το γράφημα είναι μια μεταβλητή αντικειμένου, πρέπει να το ορίσουμε .

Κώδικας:

Sub Charts_Example1 () Dim MyChart As Set Chart MyChart = Charts.Add End Sub Sub

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

Βήμα 4: Τώρα, πρέπει να σχεδιάσουμε το γράφημα. Άνοιγμα με δήλωση.

Κώδικας:

Sub Charts_Example1 () Dim MyChart As Set Set MyChart = Charts.Add With MyChart End with End Sub

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

Κώδικας:

Sub Charts_Example1 () Dim MyChart As Set Chart MyChart = Charts.Add With MyChart .SetSourceData End with End Sub

Βήμα 6: Εδώ, πρέπει να αναφέρουμε το εύρος πηγών. Σε αυτήν την περίπτωση, το εύρος πηγών μου βρίσκεται στο φύλλο με το όνομα "Sheet1" και το εύρος είναι "A1 έως B7".

Κώδικας:

Sub Charts_Example1 () Dim MyChart As Set MyChart = Charts.Add With MyChart .SetSourceData Sheets ("Sheet1"). Range ("A1: B7") End with End Sub

Βήμα 7: Στη συνέχεια, πρέπει να επιλέξουμε το είδος του γραφήματος που πρόκειται να δημιουργήσουμε. Για αυτό, πρέπει να επιλέξουμε την ιδιότητα Type Chart .

Κώδικας:

Sub Charts_Example1 () Dim MyChart As Set Chart MyChart = Charts.Add With MyChart .SetSourceData Sheets ("Sheet1"). Range ("A1: B7") .ChartType = End with End Sub

Βήμα 8: Εδώ, έχουμε μια ποικιλία γραφημάτων. Θα επιλέξω το γράφημα " xlColumnClustered ".

Κώδικας:

Sub Charts_Example1 () Dim MyChart As Set MyChart = Charts.Add With MyChart .SetSourceData Sheets ("Sheet1"). Range ("A1: B7"). ChartType = xlColumnClustered End with End Sub

Εντάξει, αυτή τη στιγμή, ας τρέξουμε τον κώδικα χρησιμοποιώντας το πλήκτρο F5 ή χειροκίνητα και να δούμε πώς φαίνεται το γράφημα.

Βήμα 9: Τώρα, αλλάξτε άλλες ιδιότητες του γραφήματος. Για να αλλάξετε τον τίτλο του γραφήματος, ακολουθεί ο κωδικός.

Έτσι, έχουμε πολλές ιδιότητες και μεθόδους με γραφήματα. Χρησιμοποιήστε κάθε ένα από αυτά για να δείτε τον αντίκτυπο και να μάθετε.

Sub Charts_Example1 () Dim MyChart As Set MyChart = Charts.Add With MyChart .SetSourceData Sheets ("Sheet1"). Range ("A1: B7") .ChartType = xlColumnClustered. ChartTitle.Text = "Απόδοση πωλήσεων" Τέλος με τέλος Sub

# 2 - Δημιουργήστε ένα γράφημα με το ίδιο φύλλο Excel με το σχήμα

To create the chart with the same worksheet (datasheet) as shape, we need to use a different technique.

Step 1: First Declare threes Object Variables.

Code:

Sub Charts_Example2() Dim Ws As Worksheet Dim Rng As Range Dim MyChart As Object End Sub

Step 2: Then Set the Worksheet reference.

Code:

Sub Charts_Example2() Dim Ws As Worksheet Dim Rng As Range Dim MyChart As Object Set Ws = Worksheets("Sheet1") End Sub

Step 3: Now set the range object in VBA

Code:

Sub Charts_Example2() Dim Ws As Worksheet Dim Rng As Range Dim MyChart As Object Set Ws = Worksheets("Sheet1") Set Rng = Ws.Range("A1:B7") End Sub

Step 4: Now, set the chart object.

Code:

Sub Charts_Example2() Dim Ws As Worksheet Dim Rng As Range Dim MyChart As Object Set Ws = Worksheets("Sheet1") Set Rng = Ws.Range("A1:B7") Set MyChart = Ws.Shapes.AddChart2 End Sub

Step 5: Now, as usual, we can design the chart by using the “With” statement.

Code:

Sub Charts_Example2() Dim Ws As Worksheet 'To Hold Worksheet Reference Dim Rng As Range 'To Hold Range Reference in the Worksheet Dim MyChart As Object Set Ws = Worksheets("Sheet1") 'Now variable "Ws" is equal to the sheet "Sheet1" Set Rng = Ws.Range("A1:B7") 'Now variable "Rng" holds the range A1 to B7 in the sheet "Sheet1" Set MyChart = Ws.Shapes.AddChart2 'Chart will be added as Shape in the same worksheet With MyChart.Chart .SetSourceData Rng 'Since we already set the range of cells to be used for chart we have use RNG object here .ChartType = xlColumnClustered .ChartTitle.Text = "Sales Performance" End With End Sub

This will add the chart below.

#3 - Code to Loop through the Charts

Like how we look through sheets to change the name or insert values, hide & unhide them. Similarly, to loop through the charts, we need to use chart object property.

The below code will loop through all the charts in the worksheet.

Code:

Sub Chart_Loop() Dim MyChart As ChartObject For Each MyChart In ActiveSheet.ChartObjects 'Enter the code here Next MyChart End Sub

#4 - Alternative Method to Create Chart

We can use the below alternative method to create charts. We can use the Chart Object. Add method to create the chart below is the example code.

This will also create a chart like the previous method.

Code:

Sub Charts_Example3 () Dim Ws ως φύλλο εργασίας Dim Rng ως εύρος Dim MyChart As ChartObject Set Ws = Worksheets ("Sheet1") Set Rng = Ws.Range ("A1: B7") Set MyChart = Ws.ChartObjects.Add (Left: = ActiveCell.Left, Πλάτος: = 400, Κορυφή: = ActiveCell.Top, Ύψος: = 200) MyChart.Chart.SetSourceData Source: = Rng MyChart.Chart.ChartType = xlColumnStacked MyChart.Chart.ChartTitle.Text = "Απόδοση πωλήσεων" Τέλος Υπο