Classe Point (Excel VBA)

A classe Point representa um único ponto de uma série em um gráfico.

Os principais procedimentos da classe Point são Copy, Delete e Select

Set

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

Dim pnt as Point
Set pnt = Charts(1).SeriesCollection(1)

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo Point: Points.Item e Series.Points

For Each

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

Dim pnt() As Double
For Each pnt In Charts(1).SeriesCollection(1).Points
	
Next pnt

Métodos

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

Copy - Se o ponto tiver um preenchimento de imagem, este método copiará a imagem para a área de transferência.

ActiveCell.Width(1).Copy

Delete - Exclui a série à qual o ponto pertence.

ActiveCell.Width(1).Delete

Select - Seleciona o objeto.

ActiveCell.Width(1).Select

Estes são os principais métodos da classe

ApplyDataLabels - Aplica rótulos de dados a um ponto.

ClearFormats - Limpa a formatação do objeto.

Paste - Cola uma imagem da Área de Transferência como marcador no ponto selecionado.

PieSliceLocation - Retorna a posição vertical ou horizontal de um ponto em um item de gráfico, em pontos, da borda superior ou esquerda do objeto à borda superior ou esquerda da área do gráfico.

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

Propriedades

ApplyPictToEnd True se uma figura for aplicada ao final do ponto ou de todos os pontos na série. Boolean de leitura/gravação.

ActiveCell.Width(1).ApplyPictToEnd = True

ApplyPictToFront True se uma figura for aplicada à frente do ponto ou de todos os pontos na série. Boolean de leitura/gravação.

ActiveCell.Width(1).ApplyPictToFront = True

ApplyPictToSides True se uma figura for aplicada aos lados do ponto ou de todos os pontos na série. Boolean de leitura/gravação.

ActiveCell.Width(1).ApplyPictToSides = True

DataLabel Retorna um objeto DataLabel que representa o rótulo de dados associado ao ponto. Somente leitura.

Dim dtlDataLabel As DataLabel
Set dtlDataLabel = ActiveCell.Width(1).DataLabel

Explosion Retorna ou define o valor de explosão para um gráfico de pizza ou fatia de gráfico de rosca. Retorna 0 zero se não houver explosão (a ponta da fatia está no centro da pizza). Long de leitura/gravação.

ActiveCell.Width(1).Explosion = 20

Format Retorna o objeto ChartFormat . Somente leitura.

Dim cftFormatted As ChartFormat
Set cftFormatted = ActiveCell.Width(1).Format

Has3DEffect True se um ponto tiver uma aparência tridimensional. Boolean de leitura/gravação.

ActiveCell.Width(1).Has3DEffect = True

HasDataLabel True se o ponto tem um rótulo de dados. Boolean de leitura/gravação.

ActiveCell.Width(1).HasDataLabel = True

Height Retorna a altura, em pontos, do objeto. Somente leitura.

Dim dblHeight As Double
dblHeight = ActiveCell.Width(1).Height

InvertIfNegative True se o Microsoft Excel inverte o padrão no item quando ele corresponde a um número negativo. Boolean de leitura/gravação.

ActiveCell.Width(1).InvertIfNegative = True

IsTotal True se o ponto representar um total. Boolean de leitura/gravação.

ActiveCell.Width(1).IsTotal = True

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

Dim dblLeft As Double
dblLeft = ActiveCell.Width(1).Left

MarkerBackgroundColor Define a cor de plano de fundo do marcador como um valor RGB ou retorna o valor de índice de cor correspondente. Só se aplica a gráficos de linhas, de dispersão e de radar. Long de leitura/gravação.

Charts("Chart1").SeriesCollection(1).Points(2) .MarkerBackgroundColor = RGB(0,0,255)'blue

MarkerBackgroundColorIndex Retorna ou define a cor de plano de fundo do marcador como um índice na paleta de cores atual ou como uma das seguintes constantes XlColorIndex: xlColorIndexAutomatic ou xlColorIndexNone. Só se aplica a gráficos de linhas, de dispersão e de radar. Long de leitura/gravação.

ActiveCell.Width(1).MarkerBackgroundColorIndex = xlColorIndexAutomatic

MarkerForegroundColor Define a cor de primeiro plano do marcador como um valor RGB ou retorna o valor de índice de cor correspondente. Só se aplica a gráficos de linhas, de dispersão e de radar. Long de leitura/gravação.

Charts("Chart1").SeriesCollection(1).Points(2) ).MarkerForegroundColor = RGB(0,0,255)'blue

MarkerForegroundColorIndex Retorna ou define a cor de primeiro plano do marcador como um índice na paleta de cores atual ou como uma das seguintes constantes XlColorIndex: xlColorIndexAutomatic ou xlColorIndexNone. Só se aplica a gráficos de linhas, de dispersão e de radar. Long de leitura/gravação.

ActiveCell.Width(1).MarkerForegroundColorIndex = xlColorIndexAutomatic

MarkerSize Retorna ou define o tamanho do marcador de dados, em pontos. Pode ser um valor de 2 a 72. Long de leitura/gravação.

ActiveCell.Width(1).MarkerSize =

MarkerStyle Retorna ou define o estilo de marcador para um ponto ou uma série em um gráfico de linhas, de dispersão ou de radar. XlMarkerStyle de leitura/gravação.

ActiveCell.Width(1).MarkerStyle = xlMarkerStyleAutomatic

Name Retorna o nome do objeto. Somente leitura.

Dim strName As String
strName = ActiveCell.Width(1).Name

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

Dim objParent As Object
Set objParent = ActiveCell.Width(1).Parent

PictureType Retorna ou define um valor XlChartPictureType que representa a maneira como as imagens são exibidas em um gráfico de imagem de barra ou coluna.

ActiveCell.Width(1).PictureType = xlStack

PictureUnit2 Retorna ou define a unidade de cada figura no gráfico se a propriedade PictureType for definida como xlStackScale caso contrário, essa propriedade será ignorada. Double de leitura/gravação.

ActiveCell.Width(1).PictureUnit2 =

SecondaryPlot True se o ponto estiver na seção secundária de uma pizza de gráfico de pizza ou uma barra de gráfico de pizza. Aplica-se somente a pontos em pizza de gráficos de pizza ou barra de gráficos de pizza. Boolean de leitura/gravação.

ActiveCell.Width(1).SecondaryPlot = True

Shadow Retorna ou define um valor Boolean que determina se o objeto possuirá uma sombra.

ActiveCell.Width(1).Shadow = True

Top Retorna um valor que representa a distância, em pontos, da borda superior do objeto até a borda superior da área do gráfico. Somente leitura.

Dim dblTop As Double
dblTop = ActiveCell.Width(1).Top

Width Retorna a largura, em pontos, do objeto. Somente leitura.

Dim dblWidth As Double
dblWidth = ActiveCell.Width(1).Width

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

Dim lngCount As Long
lngCount = ActiveCell.Width.Count

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

Dim objParent As Object
Set objParent = ActiveCell.Width.Parent