Chart.Axes-Methode (Project)

Artikel
04/07/2023

Gibt ein Objekt zurück, das entweder eine einzelne Achse oder eine Sammlung der Achsen im Diagramm darstellt.

Syntax

Ausdruck. Achsen (Type, AxisGroup)

Ausdruck: Eine Variable, die ein Chart-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Typ	Optional	Variant	Gibt die zurückzugebende Achse an. Dies kann eine der folgenden Office.XlAxisType-Konstanten sein: xlValue, xlCategory oder xlSeriesAxis (xlSeriesAxis ist nur für 3D-Diagramme gültig).
AxisGroup	Optional	Office.XlAxisGroup	Gibt die Achsengruppe an. Der Standardwert ist xlPrimary; Das heißt, wenn das Argument AxisGroup ausgelassen wird, wird die primäre Gruppe verwendet. 3D-Diagramme haben nur eine Achsengruppe.
Typ	Optional	Variant
AxisGroup	Optional	XLAXISGROUP

Rückgabewert

Objekt

Beispiele

Das SetAxisTitle-Makro fügt der Rubrikenachse im Diagramm eine Achsenbezeichnung hinzu.

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

Das Makro AddCategoryGridlines fügt der Rubrikenachse im Diagramm Gitternetzlinien hinzu.

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

Das RemoveGridlines-Makro entfernt die Hauptgitternetzlinien sowohl aus der Kategorie- als auch aus der Wertachse.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über