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
Form
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.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für