Chart.Axes-Methode (Projekt)

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

Syntax

Ausdruck verwendet werden. Achsen (Typ, Achsengruppe)

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

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
Typ Optional Variant Gibt die zurückzugebende Achse an. 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 weggelassen wird, wird die primäre Gruppe verwendet. 3D-Diagramme haben nur eine Achsengruppe.
Typ Optional Variant
AxisGroup Optional XLAXISGROUP

Rückgabewert

Object

Beispiele

Das Makro "SetAxisTitle" fügt der Rubrikenachse im Diagramm eine Achsenbeschriftung 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 "Gitternetzlinien hinzufügen " 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

Mit dem Makro "Gitternetzlinien entfernen" werden die Hauptgitternetzlinien sowohl aus der Kategorie- als auch aus der Wertachse entfernt.

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.

  • Last updated on