Shapes.AddChart-Methode (Project)

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

Syntax

Ausdruck. AddChart (Style,Type,Left,Top,Width,Height,NewLayout)

expression Eine Variable, die ein Shapes-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Style	Optional	Integer	Gibt den Farbstil des Diagramms an. Die Werte entsprechen der Dropdownliste Farben ändern in der Gruppe Diagrammformatvorlagen auf der Registerkarte ENTWURF unter DIAGRAMMTOOLS im Menüband (die Werte befinden sich jedoch nicht in derselben Reihenfolge).
Typ	Optional	xlChartType	Der Typ des hinzuzufügenden Diagramms, z. B. ein Säulen- oder Kreisdiagramm.
Left	Optional	Single	Die in Punkt gemessene Position des linken Rands des Diagramms.
Top	Optional	Single	Die in Punkt gemessene Position des oberen Rands des Diagramms.
Width	Optional	Single	Die Breite des Diagramms, gemessen in Punkten.
Height	Optional	Single	Die Höhe des Diagramms in Punkt.
NewLayout	Optional	Boolescher Wert	NewLayout wird in Project nicht verwendet.
Style	Optional	INT
Typ	Optional	XLCHARTTYPE
Left	Optional	FLOAT
Top	Optional	FLOAT
Width	Optional	FLOAT
Height	Optional	FLOAT
NewLayout	Optional	BOOL
Name	Erforderlich/Optional	Datentyp	Beschreibung

Rückgabewert

Shape

Beispiel

Im folgenden Beispiel wird ein Bericht erstellt, der über einen Standardbalkendiagrammtyp mit orangefarbenen Balken verfügt.

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

Shapes-ObjektShape-ObjektDiagrammobjekt

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.