Diagramme in Excel VBA

Visualisierung ist in allen Daten sehr wichtig. Wenn wir Daten in Tabellen und Pivots darstellen, kann es für einen anderen Benutzer schwierig sein, das Hauptszenario anhand der Daten zu verstehen. In Excel haben wir Diagramme, um unsere Daten darzustellen. Diagramme ist die visuelle Darstellung von Daten in Zeilen und Spalten der Excel-Tabelle. Jetzt wissen wir alle, wie man ein Diagramm in ein Excel-Arbeitsblatt einfügt. In diesem Thema lernen wir die Verwendung von Diagrammen in VBA kennen. Es ist so einfach, wie wir Diagramme in Excel verwenden. Wie in einem Arbeitsblatt, in dem wir verschiedene Arten von Diagrammen zur Auswahl haben, haben wir jetzt alle Diagramme in VBA auch als Objekt. Alles, was wir tun müssen, ist das Objekt aufzurufen, um es zu verwenden. Wir können Diagramme aus VBA im selben Arbeitsblatt oder in einem separaten Diagrammblatt erstellen. Es ist jedoch am ratsamsten, Diagramme in einem separaten Blatt zu verwenden, um Verwechslungen zu vermeiden.

Was sind nun die Diagramme in VBA? Diagramme sind einfache Objekte in VBA. In VBA können zwei Arten von Diagrammen erstellt werden. Eines wird als Diagrammblatt bezeichnet, während ein anderes als eingebettete Diagramme bezeichnet wird. Im Diagrammblatt erstellt VBA ein neues Arbeitsblatt für das Diagramm. Wir geben die Referenzdaten, bei denen es sich um ein anderes Arbeitsblatt handelt, als Quelldaten an. Eingebettete Diagramme sind Diagramme, die im selben Arbeitsblatt der Daten vorhanden sind. Die Codierung für diese beiden Diagrammtypen unterscheidet sich geringfügig voneinander, was wir in diesem Thema lernen werden. Um die Diagrammeigenschaften in VBA zu verwenden, verwenden wir das Punktsymbol (.) Als IntelliSense. Jetzt müssen wir uns daran erinnern, dass es in Excel verschiedene Arten von Diagrammen gibt. Wenn wir unserem Code keinen Diagrammtyp zuweisen, erstellt VBA standardmäßig automatisch ein Säulendiagramm. Offensichtlich können wir das durch ein paar Codezeilen ändern.

Wie erstelle ich Diagramme in Excel VBA?

Lassen Sie uns nun anhand einiger Beispiele lernen, wie Sie Diagramme in Excel VBA erstellen.

Sie können diese Excel-Vorlage für VBA-Diagramme hier herunterladen - Excel-Vorlage für VBA-Diagramme

Für alle Beispiele betrachten wir ein Datum, das in Blatt 1 vorhanden ist, wie folgt:

Excel VBA-Diagramme - Beispiel 1

Lassen Sie uns zunächst lernen, wie ein Diagramm in VBA eingefügt wird. Führen Sie dazu die folgenden Schritte aus:

Schritt 1: Beginnen Sie mit einer Unterprozedur wie folgt.

Code:

 Sub Charts1 () End Sub

Schritt 2: Deklarieren Sie eine Variable als Diagrammobjekt.

Code:

 Sub Charts1 () Dim Cht As Chart End Sub

Schritt 3: Um die Diagramme verwenden zu können, müssen Sie die Methode add wie unten gezeigt aufrufen.

Code:

 Sub Charts1 () Dim Cht As Chart Set Cht = Charts.Add End Sub

Schritt 4: Um Diagrammobjekteigenschaften zu verwenden, fügen Sie eine With-Anweisung in den Code ein, wie unten gezeigt.

Code:

 Sub Charts1 () Dim Cht As Chart Set Cht = Charts.Add With Cht End With End Sub

Schritt 5: Geben Sie nun eine Quelle für dieses Diagramm an. Beginnen Sie mit einem Punktoperator, und Sie erhalten weitere Optionen. Schreiben Sie den folgenden Code, um eine Quelle für das Diagramm einzugeben.

Code:

 Sub Charts1 () Dim Cht As Chart Set Cht = Charts.Add With Cht .SetSourceData Source: = Blätter ("Sheet1"). Range ("A1: B6") End With End Sub

Schritt 6: Denken Sie jetzt daran, dass wir keinen Diagrammtyp angegeben haben. Lassen Sie uns zuerst den obigen Code ausführen, indem Sie die Taste F5 drücken und sehen, welcher Diagrammtyp eingefügt wird.

Wir haben ein neues Blatt namens "Diagramm" erstellt, in dem sich unser Diagramm befindet.

Schritt 7: Geben Sie dem Code den Diagrammtyp an, den Sie für diese Darstellung verwenden möchten.

Schritt 8: Lassen Sie uns für dieses Beispiel einen 3D-Bereich auswählen, wie unten gezeigt.

Code:

 Sub Charts1 () Dim Cht As Chart Set Cht = Charts.Add With Cht .SetSourceData Source: = Blätter ("Sheet1"). Range ("A1: B6") .ChartType = xl3DArea End With End Sub

Schritt 9: Führen Sie den Code durch Drücken der Taste F5 oder durch Klicken auf die Schaltfläche Abspielen aus und überprüfen Sie den Diagrammtyp im Arbeitsblatt.

Denken Sie jetzt daran, dass jedes Mal, wenn wir den Code ausführen, ein neues Diagrammblatt für uns erstellt wird. Dies wird auch als Diagrammblatt bezeichnet, da Diagramme in einem anderen Blatt erstellt werden.

Excel VBA-Diagramme - Beispiel 2

Lassen Sie uns nun ein eingebettetes Diagramm erstellen, dh ein Diagramm im Blatt der Quelldaten. Führen Sie dazu die folgenden Schritte aus, um ein Diagramm in Excel VBA zu erstellen.

Schritt 1: Starten Sie im selben Modul eine weitere Unterprozedur wie folgt.

 Code: Sub Charts2 () End Sub

Schritt 2: Deklarieren Sie erneut eine Variable wie folgt als Diagrammtyp.

Code:

 Sub Charts2 () Dim Cht1 As Chart End Sub

Schritt 3: Der Unterschied in den eingebetteten Diagrammen besteht darin, dass wir auf das Arbeitsblatt verweisen, dessen Daten als aktives Blatt mit dem folgenden Code angegeben sind.

Code:

 Sub Charts2 () Dim Cht1 As Chart Set Cht1 = ActiveSheet.Shapes.AddChart.Chart End Sub

Schritt 4: Der Rest des Erstellens und Entwerfens der Diagramme ist ähnlich. Wir fügen dem Code erneut eine With-Anweisung wie folgt hinzu.

Code:

 Sub Charts2 () Dim Cht1 As Chart Set Cht1 = ActiveSheet.Shapes.AddChart.Chart With Cht1 End With End Sub

Schritt 5: Geben Sie einen Ort an, an dem sich unser Diagramm befinden soll, da wir nicht möchten, dass es über unseren Daten liegt. Fügen Sie daher vor With Statement den folgenden Code hinzu, an dem wir unser Diagramm wie folgt festgelegt hatten.

Code:

 Sub Charts2 () Dim Cht1 As Chart Set Cht1 = ActiveSheet.Shapes.AddChart (Links: = 200, Breite: = 300, Oben: = 50, Höhe: = 300) .Chart With Cht1 End With End Sub

Schritt 6: Geben Sie nun die Quelle des gewünschten Daten- und Diagrammtyps wie folgt an.

Code:

 Sub Charts2 () Dim Cht1 As Chart Set Cht1 = ActiveSheet.Shapes.AddChart (Links: = 200, Breite: = 300, Oben: = 50, Höhe: = 300) .Chart With Cht1 .SetSourceData Source: = Sheets ("Sheet1 ") .Range (" A1: B6 ") .ChartType = xl3DArea End With End Sub

Schritt 7: Führen Sie den Code aus, indem Sie die Taste F5 drücken oder auf die Schaltfläche "Abspielen" klicken, und sehen Sie das Ergebnis in unserem Blatt, in dem die Daten wie folgt sind.

Dies wird als eingebettetes Diagramm bezeichnet, da sich das Diagramm auf demselben Blatt befindet wie die Daten.

Excel VBA-Diagramme - Beispiel # 3

Es gibt auch eine andere Möglichkeit, mit VBA ein Diagramm in unseren Arbeitsblättern zu erstellen. Diese Methode wird als ChartsObject-Methode bezeichnet.

Schritt 1: Beginnen wir im selben Modul mit einem dritten Unterprozess wie folgt.

Code:

 Sub Charts3 () End Sub

Schritt 2: Kegel als Arbeitsblatt-Datentyp ein anderer als Bereich und einer als Diagrammobjekt, wie unten gezeigt.

Code:

 Sub Charts3 () Dim WK als Arbeitsblatt, Rng als Bereich, Cht3 als ChartObject End Sub

Schritt 3: Stellen Sie zuerst das Arbeitsblatt auf die Position ein, in der sich die Daten befinden, in diesem Fall auf Arbeitsblatt 1.

Code:

 Sub Charts3 () Dim WK als Arbeitsblatt, Rng als Bereich, Cht3 als ChartObject Set WK = Arbeitsblätter ("Sheet1") End Sub

Schritt 4: Wählen Sie nun den Datenbereich wie folgt aus.

Code:

 Sub Charts3 () Dim WK als Arbeitsblatt, Rng als Bereich, Cht3 als ChartObject Set WK = Arbeitsblätter ("Sheet1") Set Rng = WK.Range ("A1: B6") End Sub

Schritt 5: Stellen Sie nun das Diagrammobjekt so ein, dass es das Diagramm mithilfe der Diagrammobjekteigenschaft wie folgt hinzufügt.

Code:

 Sub Charts3 () Dim WK als Arbeitsblatt, Rng als Bereich, Cht3 als ChartObject Set WK = Arbeitsblätter ("Sheet1") Set Rng = WK.Range ("A1: B6") Set Cht3 = WK.ChartObjects.Add (Left: = ActiveCell.Left, Breite: = 400, Oberseite: = ActiveCell.Top, Höhe: = 200) End Sub

Schritt 6: Geben Sie nun die Quelle für das Diagramm wie folgt an.

Code:

 Sub Charts3 () Dim WK als Arbeitsblatt, Rng als Bereich, Cht3 als ChartObject Set WK = Arbeitsblätter ("Sheet1") Set Rng = WK.Range ("A1: B6") Set Cht3 = WK.ChartObjects.Add (Left: = ActiveCell.Left, Breite: = 400, Oberseite: = ActiveCell.Top, Höhe: = 200) Cht3.Chart.SetSourceData Source: = Rng End Sub

Schritt 7: Wählen Sie nun den gewünschten Diagrammtyp wie folgt aus.

Code:

 Sub Charts3 () Dim WK als Arbeitsblatt, Rng als Bereich, Cht3 als ChartObject Set WK = Arbeitsblätter ("Sheet1") Set Rng = WK.Range ("A1: B6") Set Cht3 = WK.ChartObjects.Add (Left: = ActiveCell.Left, Width: = 400, Top: = ActiveCell.Top, Height: = 200) Cht3.Chart.SetSourceData Source: = Rng Cht3.Chart.ChartType = xl3DColumn End Sub

Schritt 8: Führen Sie den Code durch Drücken der Taste F5 oder durch Klicken auf die Schaltfläche "Abspielen" aus und sehen Sie sich das Ergebnis in Blatt 1 an.

Dinge, an die man sich erinnern sollte

  • Wir können entscheiden, welchen Diagrammtyp wir verwenden möchten, indem wir einen Diagrammtyp festlegen.
  • Im Diagrammtyp wird angegeben, wie oft der Code ausgeführt wird, mit dem ein neues Arbeitsblatt unter einem eindeutigen Diagrammnamen mit einem darin enthaltenen Diagramm erstellt wird.
  • Das Diagrammobjekt ist auch ein Mitglied von Tabellen, in denen wir sowohl Diagramme als auch Tabellen haben.
  • Um das Diagrammobjekt zu verwenden, müssen Sie zuerst eine SET-Anweisung verwenden, um das Diagramm festzulegen.

Empfohlene Artikel

Dies ist eine Anleitung zu VBA-Diagrammen. In diesem Abschnitt wird erläutert, wie Sie mit VBA-Code Diagramme in Excel erstellen, und es werden praktische Beispiele sowie eine herunterladbare Excel-Vorlage vorgestellt. Sie können auch unsere anderen Artikelvorschläge durchgehen -

  1. VBA PowerPoint
  2. Excel-Kombinationsdiagramme
  3. VBA Check File Exists
  4. Excel-Säulendiagramm

Kategorie:

VBA