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.
Paramètres
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| RHS | Obligatoire | MsoChartElementType | Une des constantes d’énumération pour le type d’élément de graphique à ajouter. |
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
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.