Метод Chart.Axes (Project)

  • Статья

Возвращает объект, представляющий одну ось или коллекцию осей на диаграмме.

Синтаксис

expression. Оси (Type, AxisGroup)

выражение: переменная, представляющая объект Chart.

Параметры

Имя Обязательный или необязательный Тип данных Описание
Type Необязательный Variant Указывает возвращаемую ось. Может быть одной из следующих констант Office.XlAxisType : xlValue, xlCategory или xlSeriesAxis (xlSeriesAxis действителен только для трехмерных диаграмм).
AxisGroup Необязательный Office.XlAxisGroup Указывает группу осей. Значение по умолчанию — xlPrimary; то есть, если аргумент AxisGroup опущен, используется основная группа. Трехмерные диаграммы имеют только одну группу осей.
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 и обратная связь.