<\/p>\n
Access bietet mit Microsoft Graph die Möglichkeit, Daten in Diagrammen darzustellen. Dieses Diagramm können Sie über den Assistenten mit Daten füllen. üblicherweise müssen Sie dann aber noch an einigen Schrauben drehen, damit das Diagramm Ihren Anforderungen entspricht – zum Beispiel, um den Inhalt und die Formatierung von Beschriftungen anzupassen. Das Graph-Objekt können Sie allerdings auch per VBA steuern – wie das gelingt, zeigt der vorliegende Beitrag.<\/b><\/p>\n
Ein Diagramm fügen Sie üblicherweise über den entsprechenden Eintrag in der Werkzeugleiste (im Ribbon von Access 2010 etwa unter Ent-wurf|Steuer-ele-men-te|Dia-gramm <\/b>zu finden). Nach dem Platzieren des Steuerelements im Formular erscheint wie in Bild 1 der Diagramm-Assistent, der Ihnen beim Einrichten des Diagramms hilft.<\/p>\n
![\"Hinzufügen](\"..\/fileadmin\/_temp_\/2014_03\/pic_937_001.png\")
<\/p>\n
Bild 1: Hinzufügen eines Diagramms per Assistent<\/span><\/b><\/p>\n Dieser Assistent lässt sich leider nicht umgehen, um beispielsweise einfach ein leeres Diagramm zum Formular hinzuzufügen, das Sie dann schrittweise anpassen – wir müssen also den Assistenten durchlaufen und die notwendigsten Einstellungen vornehmen. In diesem Fall wählen Sie einfach die Tabelle tblArtikel <\/b>als Datenherkunft aus und fügen die beiden Felder Artikelname <\/b>und Einzelpreis <\/b>zum Diagramm hinzu. Wählen Sie als Diagrammtyp Säulendiagramm <\/b>aus und stellen Sie die Felder für das Layout wie in Bild 2 ein. Behalten Sie den Titel bei und lassen Sie auch die Anzeige einer Legende vorerst aktiviert. Klicken Sie dann auf Fertigstellen<\/b>.<\/p>\n Bild 2: Einstellen der Daten für das Diagramm<\/span><\/b><\/p>\n Das fertige Diagramm sieht nun, nach Einstellen der entsprechenden Breite, etwa wie in Bild 3 aus. Nun schauen wir uns an, wie wir das Diagramm per VBA tunen können.<\/p>\n Bild 3: Erste Version des Diagramms<\/span><\/b><\/p>\n Verweis setzen<\/b><\/p>\n Dummerweise zeigt der VBA-Editor gar keine Objekte zum Chart<\/b>-Objekt an.<\/p>\n Das liegt daran, dass dieses Objekt einerseits nicht zum eingebauten Umfang von Access gehört und andererseits nicht automatisch ein Verweis auf die entsprechende Bibliothek hinzugefügt wird.<\/p>\n Dies holen Sie nun nach, indem Sie im VBA-Editor den Menübefehl Extras|Verweise <\/b>ausführen und im Dialog aus Bild 4 den Eintrag Microsoft Chart x.0 Object Library <\/b>aktivieren.<\/p>\n Bild 4: Hinzufügen eines Verweises auf die Bibliothek zum Graph-Diagramm<\/span><\/b><\/p>\n Steuerelementname anpassen<\/b><\/p>\n Um gleich komfortabel auf das Chart<\/b>-Objekt zugreifen zu können, ändern Sie den Namen des soeben zum Formular hinzugefügten Steuerelements auf ctlChart<\/b>.<\/p>\n Diagrammtitel ändern<\/b><\/p>\n Als Erstes wollen wir per VBA den Titel des Diagramms ändern. Dazu fügen Sie dem Formular ein Textfeld zum Eingeben des neuen Titels namens txtTitel <\/b>sowie eine Schaltfläche namens cmdTitelAendern <\/b>hinzu, welche den Titel im Chart<\/b>-Objekt ändern soll – etwa so, wie in Bild 5.<\/p>\n Bild 5: Chart-Objekt mit geändertem Titel<\/span><\/b><\/p>\n Die Prozedur, die durch die Schaltfläche ausgelöst wird, finden Sie in Listing 1. Wenn Sie versuchen, eine Eigenschaft zum ändern des Titels des Diagramms für das Objekt Me!ctlChart <\/b>zu finden, werden Sie Probleme bekommen – dort sind keine für das Steuerelement spezifischen Eigenschaften zu finden. Stattdessen greifen Sie auf das Objekt selbst über die Eigenschaft Object <\/b>zu – genau so, wie Sie es auch etwa beim TreeView<\/b>-Steuerelement erledigen.<\/p>\n Listing 1: Prozedur zum ändern des Titels des Diagramms<\/span><\/b><\/p>\n Nun bietet Me!ctlChart.Object <\/b>keine IntelliSense-Unterstützung an, sodass wir zunächst noch eine Objektvariable deklarieren, die das in ctlChart <\/b>enthaltene Objekt referenziert. Dieses deklarieren wir mit dem Namen objChart <\/b>und dem Typ Chart<\/b>. Nun können Sie über die Eigenschaft Caption <\/b>des Objekts ChartTitle <\/b>auf die für die Beschriftung zuständige Eigenschaft zugreifen.<\/p>\n Tragen Sie nun einen neuen Titel in das Textfeld ein und klicken auf die Schaltfläche, ändert sich auch der Titel im Chart<\/b>-Objekt.<\/p>\n Diagrammtyp einstellen<\/b><\/p>\n Die nächste änderung, die wir vornehmen möchten, betrifft den Diagrammtyp. Diesen legen Sie mit der Eigenschaft ChartType <\/b>des Chart<\/b>-Objekts fest.<\/p>\n Die einzelnen Werte können Sie unter VBA über die Enumeration XlChartType <\/b>ermitteln, wie etwa in Bild 6 im Direktbereich des VBA-Editors.<\/p>\n Bild 6: Diagrammtyp-Enumeration per VBA<\/span><\/b><\/p>\n Wenn wir aber nun nicht direkt im Code arbeiten, sondern die Diagramm-Art etwa per Kombinationsfeld auswählen möchten, benötigen wir die entsprechenden Zahlenwerte und Bezeichnungen\/Konstanten als Datensatzherkunft für das entsprechende Steuerelement. Also legen wir schnell eine Tabelle an und tragen dort die benötigten Datensätze ein – jeweils mit dem Zahlenwert im Feld CharttypeID <\/b>und der Konstanten in den Feldern Charttype <\/b>und Bezeichnung <\/b>einer Tabelle namens tblCharttypes<\/b> (s. Bild 7).<\/p>\n Bild 7: Tabellen mit den Diagrammtypen<\/span><\/b><\/p>\n Diese Tabelle dient dann auch als Datensatzherkunft eines neuen Kombinationsfeldes im Formular frmDiagramme <\/b>namens cboDiagrammtyp<\/b> (s. Bild 8) – genau genommen die folgende Abfrage auf Basis dieser Tabelle:<\/p>\n Bild 8: Auswahl von Diagrammtypen<\/span><\/b><\/p>\n Mit dem Kombinationsfeld können Sie nun einen der Diagrammtypen auswählen. Damit dieser auch auf das Chart<\/b>-Objekt angewendet wird, fügen Sie der Ereigniseigenschaft Nach Aktualisierung <\/b>die Ereignisprozedur aus Listing 2 hinzu.<\/p>\n Listing 2: Prozedur zum ändern des Diagrammtyps<\/span><\/b><\/p>\n Diese stellt die Eigenschaft ChartType<\/b> auf den im Kombinationsfeld ausgewählten Wert ein. Auf diese Weise können Sie sich schnell die verschiedenen Typen ansehen.<\/p>\n Position der Beschriftung<\/b><\/p>\n Neben der ersten Schaltfläche fügen wir noch zwei weitere Schaltflächen hinzu, mit denen wir die Beschriftung des Diagramms schrittweise nach links oder rechts bewegen.<\/p>\n Für diese beiden Schaltflächen hinterlegen wir die folgenden Prozeduren:<\/p>\n Die erste verschiebt das Objekt mit der Beschriftung um zehn Schritte gegenüber der vorherigen Position nach links, die zweite verschiebt es nach rechts.<\/p>\n Legende bearbeiten<\/b><\/p>\n In manchen Diagrammen ist eine Legende sinnvoll, in anderen nicht.<\/p>\n Daher schauen wir uns zunächst an, wie Sie die Legende ein- und ausblenden können. Dazu legen wir ein passendes Kontrollkästchen namens chkLegendeAnzeigen <\/b>an.<\/p>\n Dieses füllen wir, genau wie das Textfeld txtTitel<\/b>, von nun an direkt beim öffnen des Formulars, genau genommen in der Ereignisprozedur Form_Load<\/b>, mit der aktuellen Einstellung des Chart<\/b>-Objekts. Die Prozedur finden Sie in Listing 3.<\/p>\n Listing 3: Einlesen einiger Chart-Eigenschaften<\/span><\/b><\/p>\n Das Kontrollkästchen chkLegende <\/b>statten wir mit einer Prozedur aus, die durch das Ereignis Nach Aktualisierung <\/b>ausgelöst wird:<\/p>\n Mit dieser Prozedur können Sie durch einen einfachen Klick auf das Kontrollkästchen die Legende ein- und ausschalten – siehe Bild 9.<\/p>\n Bild 9: Ein- und Ausblenden der Legende des Chart-Objekts per Kombinationsfeld<\/span><\/b><\/p>\n Weitere Eigenschaften der Legende<\/b><\/p>\n Das Legend<\/b>-Objekt bietet noch weitere Eigenschaften:<\/p>\n Die Konstanten für die Position des Legend<\/b>-Objekt lauten:<\/p>\n <\/p>\n Vereinfachung für den Zugriff auf das Chart-Objekt<\/b><\/p>\n Für die folgenden Zugriffe auf das Chart<\/b>-Objekt wollen wir einen Verweis auf das Objekt in der Variablen m_Chart <\/b>speichern, die wir im Kopf des Klassenmoduls des Formulars anlegen:<\/p>\n Die folgende Funktion GetChart <\/b>liefert immer einen aktuellen Verweis auf das Chart<\/b>-Objekt – egal, ob dieses bereits mit m_Chart <\/b>referenziert ist oder nicht:<\/p>\n Auf diese Weise sparen wir uns bei den nächsten Beispielen die beiden folgenden Zeilen und greifen direkt mit GetChart <\/b>auf das Chart<\/b>-Objekt zu:<\/p>\n Weitere Vereinfachung für Experimente<\/b><\/p>\n Wenn Sie mit dem Chart<\/b>-Objekt experimentieren wollen, indem Sie seine Objekte, Eigenschaften und Methoden über den Direktbereich aufrufen, müssen Sie dieses normalerweise immer über den folgenden Ausdruck referenzieren:<\/p>\n Der Nachteil ist: Sie erhalten dann keine IntelliSense-Unterstützung. Aber es spricht ja nichts dagegen, eine kleine öffentliche Funktion in einem Standardmodul unterzubringen, die wie folgt aussieht:<\/p>\n Die Funktion liefert zwar genau den gleichen Verweis wie über den direkten Zugriff, aber da Sie den Typ des Rückgabewertes mit Chart <\/b>festlegen können, weiß der VBA-Editor auch, welche Elemente er per IntelliSense für dieses Objekt anbieten soll.<\/p>\n Gleiche Funktionen können Sie natürlich auch für weitere Elemente programmieren – zum Beispiel für den Zugriff auf die Legende des Chart<\/b>-Objekts wie in folgendem Beispiel:<\/p>\n Elemente ein- und ausblenden<\/b><\/p>\n Mit den folgenden Eigenschaften des Chart<\/b>-Objekts können Sie einzelne Elemente ein- und ausblenden:<\/p>\n Bild 10: Diagramm mit DataTable<\/span><\/b><\/p>\n Bild 11: Diagramm ohne Achsen, Titel und Legende<\/span><\/b><\/p>\n<\/ul>\n Wenn Sie diese Elemente ein- oder ausblenden, passt sich in der Regel die Größe des eigentlichen Diagramms so an, dass die übrigen Elemente dargestellt werden können.<\/p>\n Eigenschaften der Achsen anpassen<\/b><\/p>\n Schauen wir uns nun an, wie Sie die Achsen eines Diagramms per VBA anpassen können. Die Beispiele führen wir, dass dies unkomplizierter gelingt, direkt über das Direktfenster aus. Dazu definieren wir noch ein paar Hilfsfunktionen, über die wir direkt auf die entsprechenden Achsen zugreifen können. Für die X-Achse sieht die entsprechende Funktion beispielsweise wie folgt aus:<\/p>\n Für die Y-Achse verwenden wir analog:<\/p>\n Achsen-Titel<\/b><\/p>\n Damit können Sie im Direktfenster ganz einfach auf die Eigenschaften der Achsen zugreifen – beispielsweise, um zu ermitteln, ob diese einen Titel aufweisen, und diesen gegebenenfalls anzupassen. Ob ein Titel vorhanden ist, prüfen Sie wie folgt – hier mit negativem Ergebnis:<\/p>\n Also aktivieren wir die Anzeige eines Titels für die X-Achse:<\/p>\n Nun erscheint die Standardbeschriftung Achsentitel<\/b>. Diesen ersetzen wir wie folgt durch einen passenden Titel:<\/p>\n Auf die gleiche Weise passen wir die Y-Achse an:<\/p>\n Achsentitel ausrichten<\/b><\/p>\n Das Diagramm sieht nun wie in Bild 12 aus. Dummerweise nimmt der Titel der Y-Achse viel Platz ein – das Diagramm ist unnötig klein. Zum Glück können wir die Orientierung der Beschriftungen ändern – und zwar mit der Eigenschaft Orientation <\/b>des AxisTitle<\/b>-Objekts:<\/p>\n Bild 12: Diagramm mit Achsen-Titel<\/span><\/b><\/p>\n Diese Eigenschaft steht auch für die übrigen Achsen zur Verfügung. Die gültigen Werte lauten:<\/p>\n Das sieht schon viel besser aus – der Achsentitel wird nun aufwärts angezeigt (s. Bild 13). Ein Tipp: Um die Veränderungen direkt beobachten zu können, positionieren Sie Access-Fenster und VBA-Editor nebeneinander und geben dann die entsprechenden Anweisungen im Direktbereich ein!<\/p>\n Bild 13: Gedrehter Achsen-Titel<\/span><\/b><\/p>\n Achsen-Koordinaten und Abmessungen<\/b><\/p>\n Das Axis<\/b>-Objekt bietet auch die Eigenschaften Left<\/b>, Width<\/b>, Top <\/b>und Height <\/b>an. Allerdings können Sie damit nur die aktuellen Werte ermitteln, diese aber nicht einstellen.<\/p>\n Achsentyp und -kategorie<\/b><\/p>\n Mit der Eigenschaft Type <\/b>ermitteln Sie den Typ der Achse – dies gibt einen der Werte xlPrimary <\/b>oder XlSecondary<\/b> zurück. Mit CategoryType <\/b>ermitteln Sie den Typ – also xlCategory<\/b>, xlSeriesAxis <\/b>oder xlValue<\/b>.<\/p>\n Kleinsten und größten Wert einer Achse ermitteln<\/b><\/p>\n Wenn eine Achse numerische Werte anzeigt, können Sie mit den Eigenschaften MinimumScale <\/b>und Maximum-Scale <\/b>den kleinsten beziehungsweise größten Wert der Achse ermitteln. Bei Beschriftungen wie etwa den Artikelnamen gelingt dies nicht. Sie können die Werte auch anpassen – etwa, wenn Sie die Unterschiede deutlicher hervorheben möchten. Im Beispiel würden wir etwa MinimumScale<\/b> auf einen größeren Wert setzen:<\/p>\n Dies wirkt sich wie in Bild 14 aus. Standardmäßig wird dieser Wert automatisch ermittelt. Um dies wiederherzustellen, verwenden Sie die beiden Eigenschaften MinimumScaleIsAuto <\/b>und MaximumScaleIsAuto <\/b>– zum Beispiel so:<\/p>\n Bild 14: Neuer minimaler Wert für die Y-Achse<\/span><\/b><\/p>\n Mit diesen Eigenschaften steht auch die Eigenschaft Crosses-At <\/b>in Zusammenhang. Damit ermitteln Sie für das jeweilige Axis<\/b>-Objekt, an welchem Wert die entsprechende Achse die andere Achse schneidet. Wenn Sie Minimum-Scale <\/b>für die Y-Achse auf 4 <\/b>eingestellt haben, erhalten Sie diesen Wert standardmäßig auch für die Eigenschaft CrossesAt<\/b>.<\/p>\n Sie können CrossesAt <\/b>aber auch anpassen – dies bietet sich beispielsweise für die Anzeige positiver und negativer Werte auf der Y-Achse an (was in diesem Beispiel leider keinen Sinn macht). Wenn Sie so Werte zwischen -10 <\/b>und 10 <\/b>anzeigen möchten, stellen Sie MinimumScale <\/b>auf -10<\/b>, MaximumScale <\/b>auf 10 <\/b>und CrossesAt <\/b>auf 0 <\/b>ein.<\/p>\n Achsmarkierungen<\/b><\/p>\n Auch die Striche, welche die einzelnen Werte der Achse markieren, können Sie anpassen. Zunächst lassen sich mit den Eigenschaften MinorTickMark <\/b>und MajorTickMark <\/b>die Positionen der Markierungen und Zwischenmarkierungen festlegen. Es gibt die folgenden Werte für diese beiden Eigenschaften:<\/p>\n![\"Einstellen](\"..\/fileadmin\/_temp_\/2014_03\/pic_937_002.png\")
<\/p>\n![\"Erste](\"..\/fileadmin\/_temp_\/2014_03\/pic_937_003.png\")
<\/p>\n![\"Hinzufügen](\"..\/fileadmin\/_temp_\/2014_03\/pic_937_004.png\")
<\/p>\n![\"Chart-Objekt](\"..\/fileadmin\/_temp_\/2014_03\/pic_937_005.png\")
<\/p>\nPrivate Sub <\/span>cmdTitelAendern_Click()\r\n Dim <\/span>objChart As <\/span>Chart\r\n Set<\/span> objChart = Me!ctlChart.Object\r\n objChart.ChartTitle.Caption = Nz(Me!txtTitel)\r\nEnd Sub<\/span><\/pre>\n![\"Diagrammtyp-Enumeration](\"..\/fileadmin\/_temp_\/2014_03\/pic_937_008.png\")
<\/p>\n![\"Tabellen](\"..\/fileadmin\/_temp_\/2014_03\/pic_937_006.png\")
<\/p>\n![\"Auswahl](\"..\/fileadmin\/_temp_\/2014_03\/pic_937_007.png\")
<\/p>\nSELECT CharttypeID, -Bezeichnung FROM tblCharttypes;<\/pre>\n
Private Sub <\/span>cboDiagrammtyp_AfterUpdate()\r\n Dim <\/span>objChart As <\/span>Chart\r\n Set<\/span> objChart = Me!ctlChart.Object\r\n objChart.ChartType = Me!cboDiagrammtyp\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cmdTitelNachLinks_Click()\r\n ...\r\n objChart.ChartTitle.Left<\/span> = objChart.ChartTitle.Left<\/span> - 10\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>cmdTitelNachRechts_Click()\r\n ...\r\n objChart.ChartTitle.Left<\/span> = objChart.ChartTitle.Left<\/span> + 10\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Form_Load()\r\n Dim <\/span>objChart As <\/span>Chart\r\n Set<\/span> objChart = Me!ctlChart.Object\r\n Me!txtTitel = objChart.ChartTitle.Caption\r\n Me!chkLegendeAnzeigen = objChart.HasLegend\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>chkLegendeAnzeigen_Click()\r\n Dim <\/span>objChart As <\/span>Chart\r\n Set<\/span> objChart = Me!ctlChart.Object\r\n objChart.HasLegend = Me!chkLegendeAnzeigen\r\nEnd Sub<\/span><\/pre>\n![\"Ein-](\"..\/fileadmin\/_temp_\/2014_03\/pic_937_009.png\")
<\/p>\n\n
\n
Dim <\/span>m_Chart As <\/span>Chart<\/pre>\nPrivate Function <\/span>GetChart() As <\/span>Chart\r\n If <\/span>m_Chart Is Nothing Then<\/span>\r\n Set<\/span> m_Chart = Me!ctlChart.Object\r\n End If<\/span>\r\n Set<\/span> GetChart = m_Chart\r\nEnd Function<\/span><\/pre>\nDim <\/span>objChart As <\/span>Chart\r\nSet<\/span> objChart = Me!ctlChart.Object<\/pre>\nForms!frmDiagramme!ctlChart.Object<\/pre>\n
Public Function <\/span>Chart() As <\/span>Chart\r\n Set<\/span> Chart = Forms!frmDiagramme!ctlChart.Object\r\nEnd Function<\/span><\/pre>\nPublic Function <\/span>Legend() As <\/span>Legend\r\n Set<\/span> Legend = Forms!frmDiagramme!ctlChart.Object.Legend\r\nEnd Function<\/span><\/pre>\n\n
![\"Diagramm](\"..\/fileadmin\/_temp_\/2014_03\/pic_937_010.png\")
<\/p>\n![\"Diagramm](\"..\/fileadmin\/_temp_\/2014_03\/pic_937_011.png\")
<\/p>\nPublic Function <\/span>XAchse() As <\/span>Axis\r\n On Error Resume Next<\/span>\r\n Set<\/span> XAchse = Chart.Axes(xlCategory, xlPrimary)\r\n If <\/span>XAchse Is Nothing Then<\/span>\r\n MsgBox<\/span> \"X-Achse nicht definiert.\"\r\n End If<\/span>\r\n On Error GoTo<\/span> 0\r\nEnd Function<\/span><\/pre>\nPublic Function <\/span>YAchse() As <\/span>Axis\r\n On Error Resume Next<\/span>\r\n Set<\/span> YAchse = Chart.Axes(xlValue, xlPrimary)\r\n If <\/span>YAchse Is Nothing Then<\/span>\r\n MsgBox<\/span> \"Y-Achse nicht definiert.\"\r\n End If<\/span>\r\n On Error GoTo<\/span> 0\r\nEnd Function<\/span><\/pre>\nDebug.Print<\/span> XAchse.HasTitle\r\nFalsch<\/pre>\nXAchse.HasTitle = True<\/span><\/pre>\nXAchse.AxisTitle.Caption = \"Artikel\"<\/pre>\n
YAchse.HasTitle = True<\/span>\r\nYAchse.AxisTitle.Caption = \"Einzelpreis\"<\/pre>\n![\"Diagramm](\"..\/fileadmin\/_temp_\/2014_03\/pic_937_012.png\")
<\/p>\nYAchse.AxisTitle.Orientation = xlUpward<\/pre>\n
\n
![\"Gedrehter](\"..\/fileadmin\/_temp_\/2014_03\/pic_937_013.png\")
<\/p>\nYAchse.MinimumScale = 4<\/pre>\n
![\"Neuer](\"..\/fileadmin\/_temp_\/2014_03\/pic_937_014.png\")
<\/p>\nYAchse.MinimumScaleIsAuto = True<\/span><\/pre>\n\n