Метод 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 и обратная связь.
Обратная связь
https://aka.ms/ContentUserFeedback.
Ожидается в ближайшее время: в течение 2024 года мы постепенно откажемся от GitHub Issues как механизма обратной связи для контента и заменим его новой системой обратной связи. Дополнительные сведения см. в разделеОтправить и просмотреть отзыв по