Excel VBA-Diagramme
Diagramme können in VBA als Objekte bezeichnet werden. Ähnlich wie im Arbeitsblatt können wir auch Diagramme in VBA auf dieselbe Weise einfügen. Zuerst wählen wir die Daten und den Diagrammtyp aus, die wir für unsere Daten benötigen. Jetzt gibt es zwei verschiedene Arten von Diagrammen, die wir bereitstellen ist das eingebettete Diagramm, in dem sich das Diagramm im selben Datenblatt befindet, und ein anderes Diagramm wird als Diagrammblatt bezeichnet, in dem sich das Diagramm im separaten Datenblatt befindet.
Bei der Datenanalyse sind visuelle Effekte die wichtigsten Leistungsindikatoren der Person, die die Analyse durchgeführt hat. Visuals sind die bestmögliche Art und Weise, wie ein Analyst seine Botschaft vermitteln kann. Da wir alle Excel-Benutzer sind, verbringen wir normalerweise viel Zeit mit der Analyse der Daten und ziehen Schlussfolgerungen mit Zahlen und Diagrammen. Das Erstellen eines Diagramms ist eine zu meisternde Kunst, und ich hoffe, Sie haben gute Kenntnisse im Erstellen von Diagrammen mit Excel. In diesem Artikel zeigen wir Ihnen, wie Sie Diagramme mit VBA-Codierung erstellen.
Wie füge ich Diagramme mit VBA-Code in Excel hinzu?
# 1 - Diagramm mit VBA-Codierung erstellen
Um ein Diagramm zu erstellen, sollten wir numerische Daten haben. In diesem Beispiel werde ich die folgenden Beispieldaten verwenden.
Ok, lass uns zum VBA-Editor springen.
Schritt 1: Unterprozedur starten.
Code:
Sub Charts_Example1 () End Sub
Schritt 2: Definieren Sie die Variable als Diagramm.
Code:
Sub Charts_Example1 () Dim MyChart As Chart End Sub
Schritt 3: Da das Diagramm eine Objektvariable ist, müssen wir es festlegen .
Code:
Sub Charts_Example1 () MyChart als Diagramm dimmen Set MyChart = Charts.Add End Sub
Mit dem obigen Code wird ein neues Blatt als Diagrammblatt und nicht als Arbeitsblatt hinzugefügt.
Schritt 4: Jetzt müssen wir das Diagramm entwerfen. Mit Statement öffnen.
Code:
Sub Charts_Example1 () Dim MyChart As Chart Set MyChart = Charts.Add With MyChart End With End Sub
Schritt 5: Als erstes müssen wir mit dem Diagramm den Quellbereich festlegen, indem Sie die Methode „ Quelldaten festlegen “ auswählen .
Code:
Sub Charts_Example1 () MyChart als Diagramm dimmen Set MyChart = Charts.Add With MyChart .SetSourceData End With End Sub
Schritt 6: Hier müssen wir den Quellbereich erwähnen. In diesem Fall befindet sich mein Quellbereich im Blatt mit dem Namen "Sheet1", und der Bereich ist "A1 bis B7".
Code:
Sub Charts_Example1 () MyChart als Diagramm dimmen Set MyChart = Charts.Add With MyChart .SetSourceData Sheets ("Sheet1"). Range ("A1: B7") End With End Sub
Schritt 7: Als nächstes müssen wir die Art des Diagramms auswählen, das wir erstellen möchten. Dazu müssen wir die Eigenschaft Diagrammtyp auswählen .
Code:
Sub Charts_Example1 () MyChart als Diagramm dimmen Set MyChart = Charts.Add With MyChart .SetSourceData Sheets ("Sheet1"). Range ("A1: B7") .ChartType = End With End Sub
Schritt 8: Hier haben wir eine Vielzahl von Diagrammen. Ich werde das Diagramm " xlColumnClustered " auswählen .
Code:
Sub Charts_Example1 () MyChart als Diagramm dimmen Set MyChart = Charts.Add With MyChart .SetSourceData Sheets ("Sheet1"). Range ("A1: B7") .ChartType = xlColumnClustered End With End Sub
Ok, in diesem Moment lassen Sie uns den Code mit der Taste F5 oder manuell ausführen und sehen, wie das Diagramm aussieht.
Schritt 9: Ändern Sie nun andere Eigenschaften des Diagramms. Um den Diagrammtitel zu ändern, finden Sie unten den Code.
So haben wir viele Eigenschaften und Methoden mit Diagrammen. Verwenden Sie jeden von ihnen, um die Auswirkungen zu sehen und zu lernen.
Sub Charts_Example1 () MyChart als Diagramm dimmen Set MyChart = Charts.Add With MyChart .SetSourceData Sheets ("Sheet1"). Range ("A1: B7") .ChartType = xlColumnClustered .ChartTitle.Text = "Sales Performance" End With End Sub
# 2 - Erstellen Sie ein Diagramm mit derselben Excel-Tabelle wie Shape
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 als Arbeitsblatt Dim Rng als Bereich Dim MyChart als ChartObject Set Ws = Arbeitsblätter ("Sheet1") Set Rng = Ws.Range ("A1: B7") Set MyChart = Ws.ChartObjects.Add (Left: = ActiveCell.Left, Breite: = 400, Oben: = ActiveCell.Top, Höhe: = 200) MyChart.Chart.SetSourceData Quelle: = Rng MyChart.Chart.ChartType = xlColumnStacked MyChart.Chart.ChartTitle.Text = "Verkaufsleistung" Ende Sub
