Shapes.AddChart (projet)

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

Syntaxe

expression. AddChart (style,type,gauche,haut,largeur,hauteur, nouvelledisposition)

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 du graphique , sous l’onglet CRÉATION , sous OUTILS DE GRAPHIQUE sur le ruban (mais les valeurs ne sont pas dans le même ordre).
Type Facultatif xlChartType Type de graphique à ajouter, comme un histogramme ou un graphique en secteurs.
Left Facultatif Unique Position, mesurée en points, du bord gauche du graphique.
Top Facultatif Unique Position, mesuré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 possède un type de graphique à barres par défaut avec des barres de couleur 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

Formes ObjetForme ObjetGraphique

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.

  • Last updated on