Diagramme mit VBA für Excel 2019

Diagrammblatt erstellen

Diagramme auf eigenen Blättern (Diagrammblätter) stehen in der Objekthierarchie auf der gleichen Ebene wie Tabellenblätter. Es gibt verschiedene Auflistungen innerhalb einer Arbeitsmappe:

• Sheets – enthält alle Tabellenblätter und Diagrammblätter.
• Worksheets – enthält nur die Tabellenblätter.
• Charts – enthält nur die Diagrammblätter.

Mit der folgenden Prozedur wird ein einfaches Liniendiagramm als Diagrammblatt in der Arbeitsmappe erstellt:

Listing 1: Sub DiagrammNeuesBlattErstellen()

Sub DiagrammNeuesBlattErstellen()    
    ThisWorkbook.Charts.Add After:=Worksheets("Tabelle1")    
    With ActiveChart
        .ChartType = xlLine
        .SetSourceData Worksheets("Tabelle1").Range("A1:C8")
        .Name = "Diagramm1"
    End With
End Sub

Das Ergebnis zeigt Abb. 2.

Zur Erläuterung:

• Die Methode Add() des Objekts Charts erstellt ein Diagrammblatt und fügt es der Charts-Auflistung der aktiven Arbeitsmappe hinzu. Ähnlich wie beim Kopieren oder Verschieben von Tabellenblättern können Sie mithilfe von Before und After den Ort des neuen Blattes festlegen. Gibt es keine Angabe, wird das neue Blatt vor dem aktuell aktiven Blatt eingefügt.
• Das neue Diagrammblatt hat den Typ Chart. Es wird zum aktiven Diagrammblatt. Daher kann es mit ActiveChart angesprochen werden.
• Die Eigenschaft ChartType legt den Typ des Diagramms fest, hier xlLine für ein Liniendiagramm. Einige wichtige Diagrammtypen werden weiter unten aufgelistet.
• Die Methode SetSourceData() legt die Datenquelle für das Diagramm fest. In diesem Fall ist das der Bereich A1 bis C8 des Tabellenblattes Tabelle1, mit den Temperaturdaten.
• Mithilfe der Eigenschaft Name können Sie dem Diagramm einen Namen geben.

Zur Erläuterung:

• Zunächst wird eine Variable des Typs ChartObject deklariert. Sie verweist später auf den neu erstellten Diagrammrahmen.
• Anschließend wird eine Variable des Typs Chart deklariert. Sie verweist später auf das Diagramm im neu erstellten Diagrammrahmen.
• Die Auflistung ChartObjects enthält alle Rahmen der eingebetteten Diagramme auf einem Tabellenblatt. Die Methode Add() erstellt einen neuen Diagrammrahmen an einem bestimmten Ort und in einer bestimmten Größe. Sie liefert einen Verweis auf das neu erstellte Objekt zurück. Die vier Parameter von Add() stehen für:
  • den Abstand des Rahmens zum linken Rand des Tabellenblattes
  • den Abstand des Rahmens zum oberen Rand des Tabellenblattes
  • die Breite des Rahmens
  • die Höhe des Rahmens
• Die Eigenschaft Chart der Auflistung ChartObjects stellt das eigentliche Diagramm innerhalb des Rahmens dar.
• Die Eigenschaft ChartType ist bereits bekannt: Sie legt den Typ des Diagramms fest.
• Die Methode SetSourceData() ist ebenfalls bekannt: Sie legt die Datenquelle für das Diagramm fest. In diesem Fall ist das der Bereich A1 bis C8 des aktiven Tabellenblattes.

Zur Erläuterung:

• Ein Diagrammblatt wird genau so kopiert wie ein Tabellenblatt.
• Die Methode Copy() sorgt für die Erstellung der Kopie, s. Abb.6. Mit Before bzw. After können Sie den Ort der Kopie angeben. Ohne diese Parameter würde eine neue Arbeitsmappe mit dem Diagrammblatt als einzigem Blatt angelegt werden.

Diagrammblatt löschen

Es folgt das Löschen eines Diagrammblatts:

Listing 7: Sub DiagrammNeuesBlattLoeschen()

Sub DiagrammNeuesBlattLoeschen()
     ThisWorkbook.Charts("Diagramm1 Neu").Delete
End Sub

Die Methode Delete() löscht das angegebene Diagrammblatt einschließlich Rückfrage vor dem Löschen.

Diagrammblatt exportieren

Zuletzt das Exportieren:

Listing 8: Sub DiagrammNeuesBlattExport()

Sub DiagrammNeuesBlattExport()
     ThisWorkbook.Charts("Diagramm1").Export "C:\Temp\April.png"
End Sub

Die Methode Export() dient dem Erzeugen einer Bilddatei. Es muss der Name der Bilddatei (gegebenenfalls mit dem Verzeichnisnamen) angegeben werden. Die Endung des Dateinamens bestimmt über die Art der Konvertierung. Es sind u. a. .jpg,.gif und .png erlaubt.

Das Ergebnis sehen Sie in Abb. 7.

Eingebettetes Diagramm kopieren

Es folgt das Kopieren eines eingebetteten Diagrammblatts:

Listing 9: Sub DiagrammEingebettetKopieren()

Sub DiagrammEingebettetKopieren()
     With ThisWorkbook.Worksheets("Tabelle1")
         .ChartObjects(1).Copy
         .Paste
         .ChartObjects(2).Top = 250
         .ChartObjects(2).Left = 200
     End With 
End Sub

Das Ergebnis sehen Sie in Abb. 8.

Zur Erläuterung:

• Es wird davon ausgegangen, dass im Tabellenblatt Tabelle1 nur ein Diagrammrahmen existiert.
• Dieser Rahmen hat die Nummer 1 in der ChartObjects-Auflistung. Die Methode Copy() kopiert den Diagrammrahmen (inklusive des Diagramms) in die Zwischenablage.
• Die Methode Paste() fügt den Diagrammrahmen aus der Zwischenablage in das Tabellenblatt Tabelle1 ein. Damit wird er zu ChartObjects(2).
• Die Position dieses neuen Diagrammrahmens wird über die Eigenschaften Top und Left festgelegt.

Eingebettetes Diagramm löschen

Mit folgender Prozedur wird ein eingebettetes Diagramm gelöscht:

Listing 10: Sub DiagrammEingebettetLoeschen()

Sub DiagrammEingebettetLoeschen()
     ThisWorkbook.Worksheets("Tabelle1").ChartObjects(2).Delete 
End Sub

Die Methode Delete() löscht den Diagrammrahmen ohne vorherige Rückfrage.

Eingebettetes Diagramm exportieren

Es folgt das Exportieren:

Listing 11: Sub DiagrammEingebettetExport()

Sub DiagrammEingebettetExport()
     ThisWorkbook.Worksheets("Tabelle1").ChartObjects(1). _ 
        Chart.Export "C:\Temp\April.jpg" 
End Sub

Die Methode Export() dient dem Erzeugen einer Bilddatei, diesmal aus dem Diagramm eines Diagrammrahmens.

Als weiteres Beispiel für ein neu erstelltes, eingebettetes und formatiertes Diagramm soll nachfolgend ein Kreisdiagramm dienen. Sie können erkennen, dass dabei viele allgemeine Diagrammeigenschaften aus dem Liniendiagramm übernommen werden können. Andere Eigenschaften gibt es hingegen nur bei Kreisdiagrammen. Als Datenquelle dienen Wahlergebnisse aus dem Jahr 2019 in Spanien in Abb. 9.

Zur Erläuterung:

• Wie bekannt, wird mit ChartObjects.Add() der Diagrammrahmen neu erstellt.
• Als Diagrammtyp dient xlPie für Kreis- oder Kuchendiagramme.
• Die Diagramm- und Zeichnungsfläche, der Titel und die Legende können wie beim Liniendiagramm formatiert werden.
• Bei den Datenreihen sieht es anders aus. Es gibt keine Markierungen, dafür aber z. B. Folgendes:
  • xlDataLabelsShowLabelAndPercent – ein spezieller Beschriftungstyp
  • eine innere Fläche
• Im vorliegenden Fall werden mit dem Beschriftungstyp die Datenpunkte, deren Wert oberhalb einer Grenze (30 Sitze) liegt, mit Kategorie und Prozentzahl beschriftet. Außerdem wird die innere Fläche eines Datenpunktes in Weiß dargestellt.
• Die Eigenschaft DataLabel bestimmt über das Aussehen der Beschriftung. Hier wurde festgelegt, dass die Prozentzahl mit zwei Nachkommastellen dargestellt wird.