Chart.SetElement, méthode (Project)

Ajoute l’élément spécifié à un graphique ou à un objet sélectionné sur un graphique.

Syntaxe

expression. SetElement(RHS)

expression Variable qui représente un objet Chart.

Parameters

Valeur renvoyée

Nothing

Remarques

La valeur RHS de la méthode SetElement correspond aux éléments des sous-menus Add Chart Element . Différents éléments sont activés, selon le type de graphique. Si vous essayez d’ajouter un élément qui n’existe pas pour un graphique particulier, vous obtenez une erreur non spécifiée. Par exemple, sur un graphique 3D, l’élément Barres d’erreur dans la liste déroulante Ajouter un élément de graphique n’est pas disponible. Un appel à Chart.SetElement msoElementErrorBarStandardDeviation génère une erreur.

Exemple

L’exemple suivant ajoute des quadrillages mineurs à l’axe des valeurs et ajoute des légendes d’étiquette de données à la deuxième série de données.

Sub TestSetElements()
    Dim chartShape As Shape
    Dim reportName As String
    
    reportName = "Simple 3D chart"
    Set chartShape = ActiveProject.Reports(reportName).Shapes(1)
    
    With chartShape.Chart
        .SetElement msoElementChartTitleAboveChart
        
        ' Select the major gridlines on the value axis, and then add minor gridlines.
        .axes(Office.xlValue).MajorGridlines.Select
        .SetElement msoElementPrimaryCategoryGridLinesMinor
        
        ' Select the second data series and add data label callouts.
        If .SeriesCollection.Count > 1 Then
            .SeriesCollection(2).Select
            .SetElement msoElementDataLabelCallout
        End If
    End With
End Sub

Voir aussi

Objet Chart

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.