Classe DataLabel (PowerPoint VBA)

A classe DataLabel representa o rótulo de dados em um ponto de gráfico ou linha de tendência.

Os principais procedimentos da classe DataLabel são Delete, Select, DataLabels.Delete e DataLabels.Select

Set

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

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

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

Temas

Alguns procedimentos nesta classe foram agrupados em temas e são descritos em páginas de tema separadas

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

Métodos

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

Delete - Exclui o objeto.

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

Select - Seleciona o objeto.

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

DataLabels.Delete - Exclui o objeto.

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

DataLabels.Select - Seleciona o objeto.

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

Estes são os principais métodos da classe

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:=

Propriedades

AutoText True se o objeto gerar automaticamente o texto apropriado com base no contexto. Boolean de leitura/gravação.

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

Characters Retorna um objeto ChartCharacters que representa um intervalo de caracteres dentro do texto do objeto. Você pode usar o objeto ChartCharacters para formatar caracteres dentro de uma cadeia de caracteres de texto.

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

HorizontalAlignment Retorna ou define o alinhamento horizontal do objeto especificado. de leitura/gravação.

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

Left Retorna ou define a distância, em pontos, da borda esquerda do objeto até a borda esquerda da área do gráfico. Doublede leitura/gravação.

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

Orientation Retorna ou define a orientação do texto. Long de leitura/gravação.

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

Parent Retorna o pai do objeto especificado. Objetosomente leitura.

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

Position Retorna ou define a posição do rótulo de dados. Leitura/gravação XlDataLabelPosition.

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

Separator Retorna ou define o separador usado para os rótulos de dados em um gráfico. de leitura/gravação.

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

Shadow Retorna ou define um valor que indica se o objeto tem uma sombra. Boolean de leitura/gravação.

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

Text Retorna ou define o texto do objeto especificado. String de leitura/gravação.

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

Top Retorna ou define a distância, em pontos, da borda superior do objeto à parte superior da primeira linha em uma planilha ou a parte superior da área do gráfico (em um gráfico). Doublede leitura/gravação.

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

VerticalAlignment Retorna ou define o alinhamento vertical do objeto especificado. de leitura/gravação.

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

DataLabels.AutoText True se todos os objetos na coleção geram automaticamente o texto apropriado com base no contexto. Boolean de leitura/gravação.

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

DataLabels.Count Retorna o número de objetos na coleção. Long somente leitura.

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

DataLabels.HorizontalAlignment Retorna ou define o alinhamento horizontal do objeto especificado. de leitura/gravação.

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

DataLabels.Orientation Retorna ou define a orientação do texto. Long de leitura/gravação.

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

DataLabels.Parent Retorna o pai do objeto especificado. Objetosomente leitura.

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

DataLabels.Position Retorna um valor da enumeração XlDataLabelPosition que indica a posição dos rótulos de dados em um gráfico. Leitura/gravação.

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

DataLabels.Separator Define ou retorna o separador para os rótulos de dados em um gráfico. de leitura/gravação.

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

DataLabels.Shadow Retorna ou define um valor que indica se o objeto tem uma sombra. Boolean de leitura/gravação.

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

DataLabels.VerticalAlignment Retorna ou define o alinhamento vertical do objeto especificado. de leitura/gravação.

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