Chart.Axes 方法 (Project)

返回一个代表图表上单个坐标轴或坐标轴集合的某个对象。

语法

表达式。轴 (类型、 AxisGroup)

expression：一个表示 Chart 对象的变量。

参数

名称	必需/可选	数据类型	说明
Type	可选	Variant	指定要返回的轴。 可以是以下 Office.XlAxisType 常量之一： xlValue、 xlCategory 或 xlSeriesAxis (xlSeriesAxis 仅适用于 3D 图表) 。
AxisGroup	可选	Office.XlAxisGroup	指定坐标轴组。 默认值为 xlPrimary;也就是说，如果省略 AxisGroup 参数，则使用主组。 3D 图表只有一个轴组。
Type	可选	Variant
AxisGroup	可选	XLAXISGROUP

返回值

Object

示例

SetAxisTitle 宏向图表中的分类轴添加轴标签。

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

AddCategoryGridlines 宏将网格线添加到图表中的分类轴。

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

RemoveGridlines 宏从类别轴和值轴中删除主要网格线。

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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。