Shapes.AddChart-Methode (Projekt)

Erstellt ein Diagramm an der angegebenen Position im aktiven Bericht. Gibt ein Shape-Objekt zurück, das das Diagramm darstellt.

Syntax

Ausdruck. AddChart (Formatvorlage,Typ,Links,Oben,Breite,Höhe,Neues Layout)

expression Eine Variable, die ein Shapes-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Style	Optional	Integer	Gibt die Farbart des Diagramms an. Die Werte entsprechen der Dropdownliste Farben ändern in der Gruppe Diagrammformatvorlagen auf der Registerkarte ENTWURF und unter DIAGRAMMTOOLS im Menüband (die Werte sind jedoch nicht in derselben Reihenfolge).
Typ	Optional	xlChartType	Der Diagrammtyp, der hinzugefügt werden soll, z. B. ein Säulendiagramm oder ein Kreisdiagramm.
Left	Optional	Single	Die Position des linken Bereichs des Diagramms, gemessen in Punkten.
Top	Optional	Single	Die Position des oberen Rands des Diagramms, gemessen in Punkten.
Width	Optional	Single	Die Breite des Diagramms, gemessen in Punkten.
Height	Optional	Single	Die Höhe des Diagramms, gemessen in Punkten.
Neues Layout	Optional	Boolescher Wert	NewLayout wird in Project nicht verwendet.
Style	Optional	INT
Typ	Optional	XLCHARTTYP
Left	Optional	FLOAT
Top	Optional	FLOAT
Width	Optional	FLOAT
Height	Optional	FLOAT
Neues Layout	Optional	BOOL
Name	Erforderlich/Optional	Datentyp	Beschreibung

Rückgabewert

Shape

Beispiel

Im folgenden Beispiel wird ein Bericht mit einem Standardbalkendiagrammtyp mit orangefarbenen Balken erstellt.

Sub AddDefaultChart()
    Dim chartReport As Report
    Dim reportName As String
    
    ' Add a report.
    reportName = "Test chart report"
    Set chartReport = ActiveProject.Reports.Add(reportName)

    ' Add a chart.
    Dim chartShape As shape
    Set chartShape = ActiveProject.Reports(reportName).Shapes.AddChart(Style:=12)
    
    With chartShape
        .Chart.SetElement msoElementChartTitleAboveChart
        .Chart.ChartTitle.Text = "Test Chart"
    End With
End Sub

Siehe auch

Formen ObjektFormobjektDiagrammobjekt

Support und Feedback

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.