Classe Axis (Excel VBA)

A classe Axis representa um único eixo em um gráfico.

Os principais procedimentos da classe Axis são Delete e Select

Set

Para usar uma variável de classe Axis, ela primeiro precisa ser instanciada por exemplo

Dim axi as Axis
Set axi = ActiveChart.Axes(Type:=1)

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo Axis: Chart.Axes e Axes.Item

For Each

Aqui está um exemplo de processamento dos itens Axis em uma coleção.

Dim axiAxe As Axis
For Each axiAxe In ActiveChart.Axes()
	
Next axiAxe

Temas

Os procedimentos a seguir nesta aula foram agrupados e são descritos em uma página de tema separada

Name with its procedures AxisTitle, CategoryNames e HasTitle

Métodos

Estes são os principais métodos da classe Axis

Delete - Exclui o objeto.

ActiveChart.Axes(1).Delete

Select - Seleciona o objeto.

ActiveChart.Axes(1).Select

Estes são os principais métodos da classe

Axes.Item - Retorna um único objeto Axis de uma coleção Axes.

Propriedades

Axes.Count Retorna um valor Long que representa o número de objetos na coleção.

Dim lngCount As Long
lngCount = ActiveChart.Axes.Count

Axes.Parent Retorna o objeto pai do objeto especificado. Somente leitura.

Dim objParent As Object
Set objParent = ActiveChart.Axes.Parent

AxisBetweenCategories True se o eixo dos valores cruzar o eixo das categorias entre categorias. Boolean de leitura/gravação.

ActiveChart.Axes(1).AxisBetweenCategories = True

AxisGroup Retorna o grupo do eixo especificado. Somente leitura.

Dim xagAxisGroup As XlAxisGroup
xagAxisGroup = ActiveChart.Axes(1).AxisGroup

BaseUnit Retorna ou define a unidade base do eixo de categorias especificado. Leitura/gravação XlTimeUnit.

ActiveChart.Axes(1).BaseUnit = xlDays

BaseUnitIsAuto True se o Microsoft Excel escolher as unidades base adequadas para o eixo de categoria especificado. O valor padrão é True. Boolean de leitura/gravação.

ActiveChart.Axes(1).BaseUnitIsAuto = True

Border Retorna um objeto Border que representa a borda do objeto.

Dim brdBorder As Border
Set brdBorder = ActiveChart.Axes(1).Border

CategorySortOrder

ActiveChart.Axes(1).CategorySortOrder = xlCategoryAscending

CategoryType Retorna ou define o tipo de eixo de categorias. XlCategoryType de leitura/gravação.

ActiveChart.Axes(1).CategoryType = xlAutomaticScale

Crosses Retorna ou define o ponto do eixo especificado onde o outro eixo o atravessa. Long de leitura/gravação.

ActiveChart.Axes(1).Crosses = xlAxisCrossesAutomatic

CrossesAt Retorna ou define o ponto do eixo dos valores onde o eixo das categorias o cruza. Só se aplica ao eixo dos valores. Double de leitura/gravação.

ActiveChart.Axes(1).CrossesAt = 3

DisplayUnit Retorna ou define o rótulo da unidade para o eixo dos valores. Leitura/gravação XlDisplayUnit, xlCustom ou xlNone.

ActiveChart.Axes(1).DisplayUnit = xlHundredMillions

DisplayUnitCustom Se o valor da propriedade DisplayUnit for xlCustom, a propriedade DisplayUnitCustom retorna ou define o valor das unidades exibidas. O valor deve estar entre 0 e 10E307. Double de leitura/gravação.

ActiveChart.Axes(1).DisplayUnitCustom = 500

DisplayUnitLabel Retorna um objeto DisplayUnitLabel do eixo especificado. Retorna null se a propriedade HasDisplayUnitLabel estiver definida como False. Somente leitura.

Dim dulDisplayUnitLabel As DisplayUnitLabel
Set dulDisplayUnitLabel = ActiveChart.Axes(1).DisplayUnitLabel

Format Retorna o objeto ChartFormat . Somente leitura.

Dim cftFormatted As ChartFormat
Set cftFormatted = ActiveChart.Axes(1).Format

HasDisplayUnitLabel True se o rótulo especificado pela propriedade DisplayUnit ou DisplayUnitCustom é exibido no eixo especificado. O valor padrão é True. Boolean de leitura/gravação.

ActiveChart.Axes(1).HasDisplayUnitLabel = True

HasMajorGridlines True se o eixo tem linhas de grade principais. Só os eixos do grupo de eixos principal podem ter linhas de grade. Boolean de leitura/gravação.

ActiveChart.Axes(1).HasMajorGridlines = True

HasMinorGridlines True se o eixo tem linhas de grade secundárias. Só os eixos do grupo de eixos principal podem ter linhas de grade. Boolean de leitura/gravação.

ActiveChart.Axes(1).HasMinorGridlines = True

Height Retorna um valor Double que representa a altura, em pontos, do objeto.

Dim dblHeight As Double
dblHeight = ActiveChart.Axes(1).Height

Left Retorna um valor Double que representa a distância, em pontos, da borda esquerda do objeto até a borda esquerda da área do gráfico.

Dim dblLeft As Double
dblLeft = ActiveChart.Axes(1).Left

LogBase Retorna ou define a base do logaritmo quando você estiver usando escalas de log. Double de leitura/gravação.

ActiveChart.Axes(1).LogBase =

MajorGridlines Retorna um objeto GridLines que representa as linhas de grade principais do eixo especificado. Só os eixos do grupo de eixos principal podem ter linhas de grade. Somente leitura.

Dim grdsMajorGridlines As Gridlines
Set grdsMajorGridlines = ActiveChart.Axes(1).MajorGridlines

MajorTickMark Retorna ou define o tipo de marca de escala principal do eixo especificado. XlTickMark de leitura/gravação.

ActiveChart.Axes(1).MajorTickMark = xlTickMarkCross

MajorUnit Retorna ou define as unidades principais do eixo de valores. Double de leitura/gravação.

ActiveChart.Axes(1).MajorUnit = 200

MajorUnitIsAuto True se o Microsoft Excel calcular as unidades principais para o eixo de valores. Boolean de leitura/gravação.

ActiveChart.Axes(1).MajorUnitIsAuto = True

MajorUnitScale Retorna ou define o valor de escala de unidade principal para o eixo de categoria quando a propriedade CategoryType é definida como xlTimeScale. Leitura/gravaçãoXlTimeUnit.

ActiveChart.Axes(1).MajorUnitScale = xlDays

MaximumScale Retorna ou define o valor máximo no eixo dos valores. Double de leitura/gravação.

ActiveChart.Axes(1).MaximumScale = 120

MaximumScaleIsAuto True se o Microsoft Excel calcular o valor máximo para o eixo dos valores. Boolean de leitura/gravação.

ActiveChart.Axes(1).MaximumScaleIsAuto = True

MinimumScale Retorna ou define o valor mínimo no eixo dos valores. Double de leitura/gravação.

ActiveChart.Axes(1).MinimumScale =

MinimumScaleIsAuto True se o Microsoft Excel calcular o valor mínimo para o eixo dos valores. Boolean de leitura/gravação.

ActiveChart.Axes(1).MinimumScaleIsAuto = True

MinorGridlines Retorna um objeto GridLines que representa as linhas de grade secundárias do eixo especificado. Só os eixos do grupo de eixos principal podem ter linhas de grade. Somente leitura.

Dim grdsMinorGridlines As Gridlines
Set grdsMinorGridlines = ActiveChart.Axes(1).MinorGridlines

MinorTickMark Retorna ou define o tipo de marca de escala secundária do eixo especificado. XlTickMark de leitura/gravação.

ActiveChart.Axes(1).MinorTickMark = xlTickMarkCross

MinorUnit Retorna ou define as unidades secundárias do eixo dos valores. Double de leitura/gravação.

ActiveChart.Axes(1).MinorUnit =

MinorUnitIsAuto True se o Microsoft Excel calcular as unidades secundárias para o eixo dos valores. Boolean de leitura/gravação.

ActiveChart.Axes(1).MinorUnitIsAuto = True

MinorUnitScale Retorna ou define o valor de escala de unidade secundária para o eixo de categoria quando a propriedade CategoryType é definida como xlTimeScale. Leitura/gravaçãoXlTimeUnit.

ActiveChart.Axes(1).MinorUnitScale = xlDays

Parent Retorna o objeto pai do objeto especificado. Somente leitura.

Dim objParent As Object
Set objParent = ActiveChart.Axes(1).Parent

ReversePlotOrder True se o Microsoft Excel plotar os pontos de dados do último ao primeiro. Boolean de leitura/gravação.

ActiveChart.Axes(1).ReversePlotOrder = True

ScaleType Retorna ou define o tipo de escala do eixo dos valores. XlScaleType de leitura/gravação.

ActiveChart.Axes(1).ScaleType = xlScaleLinear

TickLabelPosition Descreve a posição dos rótulos de marcas de escala no eixo especificado. XlTickLabelPosition de leitura/gravação.

ActiveChart.Axes(1).TickLabelPosition = xlTickLabelPositionHigh

TickLabels Retorna um objeto TickLabels que representa os rótulos de marca de escala para o eixo especificado. Somente leitura.

Dim tlsTickLabels As TickLabels
Set tlsTickLabels = ActiveChart.Axes(1).TickLabels

TickLabelSpacing Retorna ou define o número de categorias ou séries entre os rótulos de marca de escala. Só se aplica a eixos de séries e de categorias. Pode ter um valor de 1 a 31999. Long de leitura/gravação.

ActiveChart.Axes(1).TickLabelSpacing = 10

TickLabelSpacingIsAuto Retorna ou define se o espaçamento dos rótulos de marca é automático ou não. Boolean de leitura/gravação.

ActiveChart.Axes(1).TickLabelSpacingIsAuto = True

TickMarkSpacing Retorna ou define o número de categorias ou séries entre marcas de escala. Só se aplica a eixos de séries e de categorias. Pode ter um valor de 1 a 31999. Long de leitura/gravação.

ActiveChart.Axes(1).TickMarkSpacing = 10

Top Retorna um valor Double que representa a distância, em pontos, da borda superior do objeto até a parte superior da linha 1 em uma planilha ou a parte superior da área do gráfico (em um gráfico).

Dim dblTop As Double
dblTop = ActiveChart.Axes(1).Top

Type Retorna um valor XlAxisType que representa o tipo de eixo.

ActiveChart.Axes(1).Type = xlCategory

Width Retorna um valor Double que representa a largura, em pontos, do objeto.

Dim dblWidth As Double
dblWidth = ActiveChart.Axes(1).Width