/ / Programmierung von Charts in Excel VBA

Programmierung von Charts in Excel VBA

Im Folgenden werden wir zwei Programme in Excel VBA. Ein Programm Durchläuft alle Diagramme auf einem Blatt und ändert jedes Diagramm in ein Kreisdiagramm. Das andere Programm ändert einige Eigenschaften des ersten Diagramms.

1. Erstellen Sie einige Diagramme (oder laden Sie die Excel-Datei herunter).

Programmierung von Charts in Excel VBA

Fügen Sie eine Befehlsschaltfläche in dem Arbeitsblatt ein, und fügen Sie die folgenden Codezeilen hinzu:

1. Zuerst müssen wir ein ChartObject-Objekt deklarieren. Das ChartObject-Objekt fungiert als Container für ein Chart-Objekt. Wir rufen das ChartObject cht auf, aber Sie können einen beliebigen Namen verwenden.

Dim cht As ChartObject

2. Die ChartObjects-Sammlung enthält alle eingebetteten Diagramme auf einem einzelnen Blatt. Wir wollen alle Diagramme auf dem ersten Blatt durchlaufen. Fügen Sie für jede nächste Schleife die folgende hinzu.

For Each cht In Worksheets(1).ChartObjects

Next cht

3. Das Chart-Objekt repräsentiert ein Diagramm in einer Arbeitsmappe. Fügen Sie der Schleife für jede nächste Zeile die folgende Codezeile hinzu, um jedes Diagramm in ein Kreisdiagramm zu ändern.

cht.Chart.ChartType = xlPie

Hinweis: Auch hier fungiert die Funktion als Container für das Chart-Objekt. Wir verwenden die ChartType-Eigenschaft, um den Diagrammtyp zu ändern. Wir verwenden die integrierte Konstante xlPie, um jedes Diagramm in ein Tortendiagramm umzuwandeln.

4. Ergebnis, wenn Sie auf die Befehlsschaltfläche auf dem Blatt klicken:

Programmierung Charts Ergebnis

Jetzt werden wir einige Eigenschaften des ersten Diagramms ändern.

Platzieren Sie eine andere Befehlsschaltfläche in dem Arbeitsblatt, und fügen Sie die folgenden Codezeilen hinzu:

5. Die ChartObjects-Auflistung enthält alle eingebetteten Diagramme auf einem einzelnen Blatt. Fügen Sie die folgende Codezeile hinzu, um das erste Diagramm zu aktivieren:

Worksheets(1).ChartObjects(1).Activate

Wir können dieses Diagramm jetzt als ActiveChart bezeichnen.

6. Fügen Sie die folgende Codezeile hinzu, um den Diagrammtitel zu ändern.

ActiveChart.ChartTitle.Text = "Sales Report"

7. Fügen Sie die folgende Codezeile hinzu, um die Legende an den unteren Rand des Diagramms zu verschieben:

ActiveChart.Legend.Position = xlBottom

8. Ergebnis, wenn Sie auf die Befehlsschaltfläche auf dem Blatt klicken:

Programmierung Charts Ergebnis

Lesen Sie auch: