Nota
O acceso a esta páxina require autorización. Pode tentar iniciar sesión ou modificar os directorios.
O acceso a esta páxina require autorización. Pode tentar modificar os directorios.
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.