Clase Point (Word 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

For Each

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

Dim shpn As ShapeNode: Set shpn = 
Dim pnt As Point
For Each pnt In shpn.Points
	With pnt
		
	End With
Next pnt

Temas

Los siguientes procedimientos de esta clase se han agrupado y se describen en una página temática separada

Format with its procedures ClearFormats, Format, MarkerBackgroundColor, MarkerBackgroundColorIndex, MarkerForegroundColor, MarkerForegroundColorIndex y MarkerStyle

Métodos

Los principales métodos de la clase Point son

Copy - Si el punto tiene un relleno de imagen, se copia la imagen en el Portapapeles.

7 
pnt.Copy

Delete - Elimina el objeto.

7 
pnt.Delete

Select - Selecciona el objeto.

7 
pnt.Select

Otros Métodos

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

7 
pnt.ApplyDataLabels

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.

7 
Dim dblPieSliceLocation As Double
dblPieSliceLocation = pnt.PieSliceLocation(loc:=xlHorizontalCoordinate)

Propiedades

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

7 
pnt.ApplyPictToEnd = True

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

7 
pnt.ApplyPictToFront = True

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

7 
pnt.ApplyPictToSides = True

DataLabel Devuelve la etiqueta de datos asociada con el punto.

7 
Dim dtlDataLabel As DataLabel
Set dtlDataLabel = pnt.DataLabel

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

7 
pnt.Explosion =

Has3DEffect True si un punto tiene aspecto tridimensional.

7 
pnt.Has3DEffect = True

HasDataLabel True si el punto tiene etiqueta de datos.

7 
pnt.HasDataLabel = True

Height Devuelve el alto, en puntos, del objeto.

7 
Dim dblHeight As Double
dblHeight = pnt.Height

InvertIfNegative True si Microsoft Word invierte el diseño en el objeto cuando éste corresponde a un número negativo.

7 
pnt.InvertIfNegative = True

IsTotal True si el punto representa un total.

7 
pnt.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.

7 
Dim dblLeft As Double
dblLeft = pnt.Left

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

7 
pnt.MarkerSize =

Name Devuelve el nombre del objeto.

7 
Dim strName As String
strName = pnt.Name

Parent Devuelve al objeto primario del objeto especificado.

7 
Dim objParent As Object
Set objParent = pnt.Parent

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

7 
pnt.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).

7 
pnt.PictureUnit2 =

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

7 
pnt.SecondaryPlot = True

Shadow Devuelve o establece un valor que indica si el objeto tiene una sombra.

7 
pnt.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.

7 
Dim dblTop As Double
dblTop = pnt.Top

Width Devuelve el ancho, en puntos, del objeto.

7 
Dim dblWidth As Double
dblWidth = pnt.Width

Points.Count Devuelve el número de objetos de la colección.

Dim pnts As Points: Set pnts =  
Dim lngCount As Long
lngCount = pnts.Count

Points.Parent Devuelve al objeto primario del objeto especificado.

Dim pnts As Points: Set pnts =  
Dim objParent As Object
Set objParent = pnts.Parent