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.

  • Last updated on