Diagrammobjekt (Excel)
Eine Auflistung aller Diagrammblätter in der angegebenen oder aktiven Arbeitsmappe.
Jedes Diagrammblatt wird durch ein Chart-Objekt dargestellt. Hierzu gehören nicht die in Arbeits- oder Dialogblätter eingebetteten Diagramme. Informationen zu eingebetteten Diagrammen finden Sie unter den Objekten Chart und ChartObject .
Verwenden Sie die Charts-Eigenschaft des Workbook-Objekts , um die Charts-Auflistung zurückzugeben. Im folgenden Beispiel werden alle Diagrammblätter in der aktiven Arbeitsmappe gedruckt.
Charts.PrintOut
Verwenden Sie die Add-Methode des ChartObjects-Objekts , um ein neues Diagrammblatt zu erstellen und der Arbeitsmappe hinzuzufügen. Im folgenden Beispiel wird der aktiven Arbeitsmappe ein neues Diagrammblatt hinzugefügt und das neue Diagrammblatt unmittelbar hinter dem Arbeitsblatt mit dem Namen Sheet1 platziert.
Charts.Add After:=Worksheets("Sheet1")
Sie können die Add-Methode mit der ChartWizard-Methode des Chart-Objekts kombinieren, um ein neues Diagramm hinzuzufügen, das Daten aus einem Arbeitsblatt enthält. Im folgenden Beispiel wird ein neues Liniendiagramm basierend auf Daten in den Zellen A1:A20 auf dem Arbeitsblatt mit dem Namen Sheet1 hinzugefügt.
With Charts.Add
.ChartWizard source:=Worksheets("Sheet1").Range("A1:A20"), _
Gallery:=xlLine, Title:="February Data"
End With
Verwenden Sie Charts (index), um ein einzelnes Chart-Objekt zurückzugeben, wobei index die Indexnummer oder den Namen des Diagrammblatts darstellt. Im folgenden Beispiel wird die Farbe von Datenreihe 1 auf Diagrammblatt 1 in rot geändert.
Charts(1).SeriesCollection(1).Format.Fill.ForeColor.RGB = rgbRed
Die Sheets-Auflistung enthält alle Blätter in der Arbeitsmappe (sowohl Diagrammblätter als auch Arbeitsblätter). Verwenden Sie Blätter (Index), wobei index der Name oder die Nummer des Blatts ist, um ein einzelnes Blatt zurückzugeben.
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.