Project) (Chart.Axes 方法

會傳回物件，代表圖表上單一座標軸的物件或座標軸集合的物件。

語法

運算式。軸 (類型、 AxisGroup)

expression 代表 Chart 物件的變數。

參數

名稱 必要/選用 資料類型 描述
Type 選用 Variant 會指定要傳回的座標軸。 可以是下列其中一個 Office.XlAxisType 常數： xlValue、 xlCategory 或 xlSeriesAxis (xlSeriesAxis 僅適用於 3D 圖表) 。
AxisGroup 選用 Office.XlAxisGroup 會指定座標軸群組。 預設值為 xlPrimary;也就是說，如果省略 AxisGroup 引數，則會使用主要群組。 3D 圖表只有一個座標軸群組。
類型 選用 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 支援與意見反應。

  • Last updated on