Clase Axis (PowerPoint VBA)

La clase Axis representa un solo eje de un gráfico.

Los principales procedimientos de la clase Axis son Delete y Select

Set

Para usar una variable de clase Axis, primero debe ser instanciado, por ejemplo

Dim axi as Axis
Set axi = ActiveWindow.RangeFromPoint.Chart.Axes(Type:=1)

Los siguientes procedimientos se pueden usar para establecer variables de clase Axis : Chart.Axes y Axes.Item

Temas

Algunos procedimientos de esta clase se han agrupado en temas y se describen en páginas temáticas separadas

Axis with its procedures AxisBetweenCategories, AxisGroup y AxisTitle
Sort/Order with its procedures Border y ReversePlotOrder
Display/Show with its procedures DisplayUnit, DisplayUnitCustom, DisplayUnitLabel y HasDisplayUnitLabel
Format with its procedures Format, Height, TickLabelSpacing, TickLabelSpacingIsAuto, TickMarkSpacing y Width

Métodos

Los principales métodos de la clase Axis son

Delete - Elimina el objeto.

ActiveWindow.RangeFromPoint.Chart.Axes(1).Delete

Select - Selecciona el objeto.

ActiveWindow.RangeFromPoint.Chart.Axes(1).Select

Otros Métodos

Axes.Item - Devuelve un solo objeto AXIS de una colección Axes .

Dim axi As Axis
Set axi = ActivePresentation.Slides(1).Shapes(1).Chart.Axes(Type:=1)

SetProperty -

Dim strId As String: strId = 
ActiveWindow.RangeFromPoint.Chart.Axes(1).SetProperty Id:=strId, Value:=

Propiedades

Axes.Count Devuelve el número de objetos de la colección. Long de sólo lectura.

Dim lngCount As Long
lngCount = ActiveWindow.RangeFromPoint.Chart.Axes.Count

Axes.Parent Devuelve al objeto primario del objeto especificado. Objetode solo lectura.

Dim objParent As Object
Set objParent = ActiveWindow.RangeFromPoint.Chart.Axes.Parent

BaseUnit Devuelve o establece la unidad base del eje de categorías especificado. XlTimeUnit de lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).BaseUnit = xlDays

BaseUnitIsAuto True si Microsoft Word elige las unidades de base apropiadas para el eje de categorías especificado. El valor predeterminado es True. Boolean de lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).BaseUnitIsAuto = True

CategoryNames Devuelve o establece todos los nombres de categoría como una matriz de texto para el eje especificado. Variant de lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).CategoryNames = Array ("Cow", "Sheep", "Pig")

CategorySortOrder

ActiveWindow.RangeFromPoint.Chart.Axes(1).CategorySortOrder = xlCategoryAscending

CategoryType Devuelve o establece el tipo de eje de categoría. XlCategoryType de lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).CategoryType = xlAutomaticScale

Crosses Devuelve o establece el punto en el eje especificado donde se cruza el otro eje. Long de lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).Crosses = xlAxisCrossesAutomatic

CrossesAt Devuelve o establece el punto del eje de valores donde se cruza el eje de categorías. Se aplica sólo al eje de valores. Doublede lectura y escritura.

ActiveWindow.RangeFromPoint.Chart.Axes(1).CrossesAt =

HasMajorGridlines True si el eje tiene líneas de división principales. Boolean de lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).HasMajorGridlines = True

HasMinorGridlines True si el eje tiene líneas de división secundarias. Boolean de lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).HasMinorGridlines = True

HasTitle True si el eje o el gráfico tiene un título visible. Boolean de lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).HasTitle = True

Left Devuelve la distancia, en puntos, desde el borde izquierdo del objeto hasta el borde izquierdo del área del gráfico. Valor Doublede solo lectura.

Dim dblLeft As Double
dblLeft = ActiveWindow.RangeFromPoint.Chart.Axes(1).Left

LogBase Devuelve o establece la base del logaritmo cuando se utiliza la escala de registro. Doublede lectura y escritura.

ActiveWindow.RangeFromPoint.Chart.Axes(1).LogBase =

MajorGridlines Devuelve las líneas de la cuadrícula principales para el eje especificado. Las líneas de cuadrícula de solo lectura.

Dim grdsMajorGridlines As Gridlines
Set grdsMajorGridlines = ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).MajorGridlines

MajorTickMark Devuelve o establece el tipo de marcas de graduación principales del eje especificado. XlTickMark de lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).MajorTickMark = xlTickMarkCross

MajorUnit Devuelve o establece las unidades principales para el eje de valores. Doublede lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).MajorUnit = 10

MajorUnitIsAuto True si Microsoft Word calcula las unidades principales del eje de valores. Boolean de lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).MajorUnitIsAuto = True

MajorUnitScale Devuelve o establece el valor de la escala de unidades principales del eje de categorías cuando la propiedad CategoryType está establecida en xlTimeScale. XlTimeUnit de lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).MajorUnitScale = xlDays

MaximumScale Devuelve o establece el valor máximo del eje de valores. Doublede lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).MaximumScale = 500

MaximumScaleIsAuto True si Microsoft Word calcula el valor máximo del eje de valores. Boolean de lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).MaximumScaleIsAuto = True

MinimumScale Devuelve o establece el valor mínimo del eje de valores. Doublede lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).MinimumScale = 50

MinimumScaleIsAuto True si Microsoft Word calcula el valor mínimo del eje de valores. Boolean de lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).MinimumScaleIsAuto = True

MinorGridlines Devuelve las líneas de cuadrícula secundarias para el eje especificado. Las líneas de cuadrícula de solo lectura.

Dim grdsMinorGridlines As Gridlines
Set grdsMinorGridlines = ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).MinorGridlines

MinorTickMark Devuelve o establece el tipo de marcas de graduación principales del eje especificado. XlTickMark de lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).MinorTickMark = xlTickMarkCross

MinorUnit Devuelve o establece las unidades secundarias del eje de valores. Doublede lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).MinorUnit = 10

MinorUnitIsAuto True si Microsoft Word calcula las unidades secundarias del eje de valores. Boolean de lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).MinorUnitIsAuto = True

MinorUnitScale Devuelve o establece el valor de la escala de unidades secundarias del eje de categorías cuando la propiedad CategoryType está establecida en xlTimeScale. XlTimeUnit de lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).MinorUnitScale = xlDays

Parent Devuelve al objeto primario del objeto especificado. Objetode solo lectura.

Dim objParent As Object
Set objParent = ActiveWindow.RangeFromPoint.Chart.Axes(1).Parent

ScaleType Devuelve o establece el tipo de escala del eje de valores. XlScaleType de lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).ScaleType = xlScaleLinear

TickLabelPosition Describe la posición de los rótulos de marca de graduación en el eje especificado. XlTickLabelPosition de lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).TickLabelPosition = xlTickLabelPositionHigh

TickLabels Devuelve rótulos de marca de graduación para el eje especificado. TickLabels de solo lectura.

Dim tlsTickLabels As TickLabels
Set tlsTickLabels = ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).TickLabels

Top Devuelve la distancia, en puntos, desde el borde superior del objeto hasta la parte superior de la fila 1 (en una hoja de cálculo) o la parte superior del área del gráfico (en un gráfico). Valor Doublede solo lectura.

Dim dblTop As Double
dblTop = ActiveWindow.RangeFromPoint.Chart.Axes(1).Top

Type Devuelve el tipo de eje. XlAxisType de solo lectura.

ActiveWindow.RangeFromPoint.Chart.Axes(1).Type = xlCategory