Método Chart.Axes (Project)

Artigo
04/07/2023

Retorna um objeto que representa um único eixo ou uma coleção de eixos em um gráfico.

Sintaxe

expressão. Eixos (Tipo, AxisGroup)

expressão Uma variável que representa um objeto Chart.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Type	Opcional	Variant	Especifica o eixo a ser retornado. Pode ser uma das seguintes constantes do Office.XlAxisType : xlValue, xlCategory ou xlSeriesAxis (xlSeriesAxis é válida apenas para gráficos 3D).
AxisGroup	Opcional	Office.XlAxisGroup	Especifica o grupo de eixos. O valor padrão é xlPrimary; ou seja, se o argumento AxisGroup for omitido, o grupo primário será usado. Os gráficos 3D têm apenas um grupo de eixos.
Type	Opcional	Variantes
AxisGroup	Opcional	XLAXISGROUP

Valor de retorno

Object

Exemplos

A macro SetAxisTitle adiciona um rótulo de eixo ao eixo de categoria no gráfico.

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

A macro AddCategoryGridlines adiciona linhas de grade ao eixo de categoria no gráfico.

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

A macro RemoveGridlines remove as principais linhas de grade dos eixos de categoria e valor.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.