Chart.Axes, méthode (Project)

Article
04/07/2023

Renvoie un objet représentant soit un axe unique, soit une collection d'axes du graphique.

Syntaxe

expression. Axes (Type, AxisGroup)

expression Variable qui représente un objet Chart.

Parameters

Nom	Requis/Facultatif	Type de données	Description
Type	Facultatif	Variant	Spécifie l’axe à renvoyer. Il peut s’agir de l’une des constantes Office.XlAxisType suivantes : xlValue, xlCategory ou xlSeriesAxis (xlSeriesAxis n’est valide que pour les graphiques 3D).
AxisGroup	Facultatif	Office.XlAxisGroup	Spécifie le groupe d'axes. La valeur par défaut est xlPrimary ; autrement dit, si l’argument AxisGroup est omis, le groupe principal est utilisé. Les graphiques 3D n’ont qu’un seul groupe d’axes.
Type	Facultatif	Variant
AxisGroup	Facultatif	XLAXISGROUP

Valeur renvoyée

Object

Exemples

La macro SetAxisTitle ajoute une étiquette d’axe à l’axe des catégories dans le graphique.

Sub SetAxisTitle()
    Dim chartShape As Shape
    Dim reportName As String
    
    reportName = "Simple scalar chart"
    
    Set chartShape = ActiveProject.Reports(reportName).Shapes(1)
    
    With chartShape.Chart.Axes(xlCategory)
        .HasTitle = True
        .AxisTitle.Text = "Task"
    End With
End Sub

La macro AddCategoryGridlines ajoute le quadrillage à l’axe des catégories dans le graphique.

Sub AddCategoryGridlines()
    Dim chartShape As Shape
    Dim reportName As String
    
    reportName = "Simple scalar chart"
    
    Set chartShape = ActiveProject.Reports(reportName).Shapes(1)
    
    chartShape.Chart.Axes(xlCategory).HasMajorGridlines = True
End Sub

La macro RemoveGridlines supprime le quadrillage principal des axes de catégorie et de valeur.

Sub RemoveGridlines()
    Dim chartShape As Shape
    Dim reportName As String
    Dim axes As Object
    Dim a As Object
    
    reportName = "Simple scalar chart"
    
    Set chartShape = ActiveProject.Reports(reportName).Shapes(1)
    
    chartShape.Chart.Axes(xlCategory).HasMajorGridlines = False
    chartShape.Chart.Axes(xlValue).HasMajorGridlines = False
End Sub

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.

Partager via