Clase DataLabel (PowerPoint VBA)

La clase DataLabel representa el rótulo de datos de una línea de tendencia o un punto del gráfico.

Los principales procedimientos de la clase DataLabel son Delete, Select, DataLabels.Delete y DataLabels.Select

Set

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

Dim dtl as DataLabel
Set dtl = ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).DataLabels()

Los siguientes procedimientos se pueden usar para establecer variables de clase DataLabel : DataLabels.Item, Point.DataLabel, Series.DataLabels, Trendline.DataLabel y Series.DataLabels

Temas

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

Name with its procedures Caption, Name y DataLabels.Name
Format with its procedures Format, Height, Width y DataLabels.Format
Formula with its procedures Formula, FormulaLocal, FormulaR1C1 y FormulaR1C1Local
Number with its procedures NumberFormat, NumberFormatLinked, NumberFormatLocal, DataLabels.NumberFormat, DataLabels.NumberFormatLinked y DataLabels.NumberFormatLocal
Sort/Order with its procedures ReadingOrder y DataLabels.ReadingOrder
Display/Show with its procedures ShowBubbleSize, ShowCategoryName, ShowLegendKey, ShowPercentage, ShowRange, ShowSeriesName, DataLabels.ShowBubbleSize, DataLabels.ShowCategoryName, DataLabels.ShowLegendKey, DataLabels.ShowPercentage, DataLabels.ShowRange y DataLabels.ShowSeriesName
Value with its procedures ShowValue y DataLabels.ShowValue

Métodos

Los principales métodos de la clase DataLabel son

Delete - Elimina el objeto.

ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).DataLabels.Delete

Select - Selecciona el objeto.

ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).DataLabels.Select

DataLabels.Delete - Elimina el objeto.

ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).DataLabels.Delete

DataLabels.Select - Selecciona el objeto.

ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).DataLabels.Select

Otros Métodos

SetProperty -

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

DataLabels.SetProperty -

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

Propiedades

AutoText True si el objeto genera automáticamente un texto apropiado basado en el contexto. Boolean de lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).Chart.FullSeriesCollection(1).DataLabels.AutoText = True

Characters Devuelve un objeto ChartCharacters que representa un rango de caracteres del texto del objeto. Puede utilizar el objeto ChartCharacters para formatear caracteres dentro de una cadena de texto.

Dim ccsCharacters As ChartCharacters
Set ccsCharacters = ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).DataLabels.Characters

HorizontalAlignment Devuelve o establece la alineación horizontal del objeto especificado. Variant de lectura y escritura.

ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).DataLabels.HorizontalAlignment = xl3DBar

Left Devuelve o establece la distancia, en puntos, desde el borde izquierdo del objeto hasta el borde izquierdo del área del gráfico. Doublede lectura y escritura.

ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).DataLabels.Left =

Orientation Devuelve o establece la orientación del texto. Long de lectura y escritura.

ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).DataLabels.Orientation =

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

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

Position Devuelve o establece la posición del rótulo de datos. XlDataLabelPosition de lectura y escritura.

ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).DataLabels.Position = xlLabelPositionAbove

Separator Devuelve o establece el separador utilizado para los rótulos de datos en un gráfico. Variant de lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).Chart.FullSeriesCollection(1).DataLabels.Separator = ";"

Shadow Devuelve o establece un valor que indica si el objeto tiene una sombra. Boolean de lectura y escritura.

ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).DataLabels.Shadow = True

Text Devuelve o establece el texto del objeto especificado. Cadena de lectura y escritura.

ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).DataLabels.Text =

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

ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).DataLabels.Top =

VerticalAlignment Devuelve o establece la alineación vertical del objeto especificado. Variant de lectura y escritura.

ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).DataLabels.VerticalAlignment = xl3DBar

DataLabels.AutoText True si todos los objetos de la colección de generan automáticamente el texto adecuado basado en contexto. Boolean de lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).Chart.FullSeriesCollection(1).DataLabels.AutoText = True

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

Dim lngCount As Long
lngCount = ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).DataLabels.Count

DataLabels.HorizontalAlignment Devuelve o establece la alineación horizontal del objeto especificado. Variant de lectura y escritura.

ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).DataLabels.HorizontalAlignment = xl3DBar

DataLabels.Orientation Devuelve o establece la orientación del texto. Long de lectura y escritura.

ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).DataLabels.Orientation =

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

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

DataLabels.Position Devuelve un valor de la enumeración XlDataLabelPosition que indica la posición de los rótulos de datos en un gráfico. Lectura y escritura.

ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).DataLabels.Position = xlLabelPositionAbove

DataLabels.Separator Establece o devuelve el separador de los rótulos de datos en un gráfico. Variant de lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).Chart.FullSeriesCollection(1).DataLabels.Separator = ";"

DataLabels.Shadow Devuelve o establece un valor que indica si el objeto tiene una sombra. Boolean de lectura y escritura.

ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).DataLabels.Shadow = True

DataLabels.VerticalAlignment Devuelve o establece la alineación vertical del objeto especificado. Variant de lectura y escritura.

ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).DataLabels.VerticalAlignment = xl3DBar