Shapes.AddChart, méthode (Project)

Crée un graphique à l’emplacement spécifié dans le rapport actif. Renvoie un objet Shape qui représente le graphique.

Syntaxe

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

expression Variable qui représente un objet Shapes.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
Style	Facultatif	Integer	Spécifie le style de couleur du graphique. Les valeurs correspondent à la liste déroulante Modifier les couleurs du groupe Styles de graphique , sous l’onglet CRÉATION , sous OUTILS GRAPHIQUE du ruban (mais les valeurs ne sont pas dans le même ordre).
Type	Facultatif	xlChartType	Type de graphique à ajouter, tel qu’un histogramme ou un graphique en secteurs.
Left	Facultatif	Unique	Position, exprimée en points, du bord gauche du graphique.
Top	Facultatif	Unique	Position, exprimée en points, du bord supérieur du graphique.
Width	Facultatif	Unique	Largeur du graphique, exprimée en points.
Height	Facultatif	Unique	Hauteur du graphique, exprimée en points.
NewLayout	Facultatif	Boolean	NewLayout n’est pas utilisé dans Project.
Style	Facultatif	INT
Type	Facultatif	XLCHARTTYPE
Left	Facultatif	FLOAT
Top	Facultatif	FLOAT
Width	Facultatif	FLOAT
Height	Facultatif	FLOAT
NewLayout	Facultatif	BOOL
Nom	Requis/Facultatif	Type de données	Description

Valeur renvoyée

Forme

Exemple

L’exemple suivant crée un rapport qui a un type de graphique à barres par défaut avec des barres orange.

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

Voir aussi

Shapes ObjetShape ObjetChart Objet

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.