Compartir por


Método Chart.Axes (Project)

Devuelve un objeto que representa un solo eje o una colección de ejes en el gráfico.

Sintaxis

expresión. Ejes (Tipo, AxisGroup)

expresión Una variable que representa un objeto Chart.

Parameters

Nombre Obligatorio/opcional Tipo de datos Descripción
Type Opcional Variant Especifica el eje que se debe devolver. Puede ser una de las siguientes constantes Office.XlAxisType : xlValue, xlCategory o xlSeriesAxis (xlSeriesAxis solo es válido para gráficos 3D).
AxisGroup Opcional Office.XlAxisGroup Especifica el grupo de ejes. El valor predeterminado es xlPrimary; es decir, si se omite el argumento AxisGroup , se usa el grupo principal. Los gráficos 3D solo tienen un grupo de ejes.
Tipo Opcional Variant
AxisGroup Opcional XLAXISGROUP

Valor devuelto

Objeto

Ejemplos

La macro SetAxisTitle agrega una etiqueta de eje al eje de categorías del 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

La macro AddCategoryGridlines agrega líneas de cuadrícula al eje de categorías del 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

La macro RemoveGridlines quita las líneas de cuadrícula principales de los ejes de categoría y 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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.