Clase Point (Excel VBA)

La clase Point representa un solo punto de una serie de un gráfico.

Los principales procedimientos de la clase Point son Copy, Delete y Select

Set

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

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

Los siguientes procedimientos se pueden usar para establecer variables de clase Point : Points.Item y Series.Points

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos Point en una colección.

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

Métodos

Los principales métodos de la clase Point son

Copy - Si el punto tiene un relleno de imagen, este método copia la imagen en el portapapeles.

ActiveCell.Width(1).Copy

Delete - Elimina la serie a la que pertenece el punto.

ActiveCell.Width(1).Delete

Select - Selecciona el objeto.

ActiveCell.Width(1).Select

Otros Métodos

ApplyDataLabels - Aplica rótulos de datos a un punto.

ClearFormats - Borra el formato del objeto.

Paste - Pega una imagen del Portapapeles como marcador en el punto seleccionado.

PieSliceLocation - Devuelve la posición horizontal o vertical de un punto en un elemento de gráfico, en puntos, desde el borde superior o izquierdo del objeto hasta el borde superior o izquierdo del área del gráfico.

SetProperty -

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

Propiedades

ApplyPictToEnd True si una imagen se aplica al final del punto o a todos los puntos de la serie.

ActiveCell.Width(1).ApplyPictToEnd = True

ApplyPictToFront True si una imagen se aplica a la parte delantera del punto o a todos los puntos de la serie.

ActiveCell.Width(1).ApplyPictToFront = True

ApplyPictToSides True si una imagen se aplica a los lados del punto o a todos los puntos de la serie.

ActiveCell.Width(1).ApplyPictToSides = True

DataLabel Devuelve un objeto DataLabel que representa el rótulo de datos asociado al punto.

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

Explosion Devuelve o establece el valor de expansión de un sector del gráfico circular o gráfico de anillos.

ActiveCell.Width(1).Explosion = 20

Format Devuelve el objeto ChartFormat .

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

Has3DEffect True si un punto tiene aspecto tridimensional.

ActiveCell.Width(1).Has3DEffect = True

HasDataLabel True si el punto tiene etiqueta de datos.

ActiveCell.Width(1).HasDataLabel = True

Height Devuelve el alto, en puntos, del objeto.

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

InvertIfNegative True si Microsoft Excel invierte el diseño del elemento cuando éste corresponde a un número negativo.

ActiveCell.Width(1).InvertIfNegative = True

IsTotal True si el punto representa un total.

ActiveCell.Width(1).IsTotal = True

Left Devuelve un valor que representa la distancia, en puntos, desde el borde izquierdo del objeto hasta el borde izquierdo del área del gráfico.

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

MarkerBackgroundColor Establece el color de fondo del marcador como un valor RGB o devuelve el valor de índice de color correspondiente.

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

MarkerBackgroundColorIndex Devuelve o establece el color de fondo del marcador como un índice para la paleta de colores activa o bien como una de las siguientes constantes XlColorIndex: xlColorIndexAutomatic o xlColorIndexNone.

ActiveCell.Width(1).MarkerBackgroundColorIndex = xlColorIndexAutomatic

MarkerForegroundColor Establece el color de primer plano del marcador como un valor RGB o devuelve el valor del índice de color correspondiente.

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

MarkerForegroundColorIndex Devuelve o establece el color de primer plano del marcador como un índice para la paleta de colores activa o bien como una de las siguientes constantes XlColorIndex: xlColorIndexAutomatic o xlColorIndexNone.

ActiveCell.Width(1).MarkerForegroundColorIndex = xlColorIndexAutomatic

MarkerSize Devuelve o establece el tamaño de los marcadores de datos, en puntos.

ActiveCell.Width(1).MarkerSize =

MarkerStyle Devuelve o establece el estilo del marcador de un punto o una serie en un gráfico de líneas, de dispersión o radial.

ActiveCell.Width(1).MarkerStyle = xlMarkerStyleAutomatic

Name Devuelve el nombre del objeto.

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

Parent Devuelve el objeto primario del objeto especificado.

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

PictureType Devuelve o establece un valor XlChartPictureType que representa el modo en que se muestran las imágenes en un gráfico de imágenes de barras o columnas.

ActiveCell.Width(1).PictureType = xlStack

PictureUnit2 Devuelve o establece la unidad de cada imagen del gráfico si la propiedad PictureType es el valor xlStackScale (de lo contrario, esta propiedad se omite).

ActiveCell.Width(1).PictureUnit2 =

SecondaryPlot True si el punto está en la sección secundaria de un gráfico circular con subgráfico circular o de barras de gráfico circular.

ActiveCell.Width(1).SecondaryPlot = True

Shadow Devuelve o establece un valor de tipo Boolean que determina si el objeto tiene una sombra.

ActiveCell.Width(1).Shadow = True

Top Devuelve un valor que representa la distancia, en puntos, desde el borde superior del objeto hasta el borde superior del área del gráfico.

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

Width Devuelve el ancho, en puntos, del objeto.

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

Points.Count Devuelve un valor Long que representa el número de objetos de la colección.

Dim lngCount As Long
lngCount = ActiveCell.Width.Count

Points.Parent Devuelve el objeto primario del objeto especificado.

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