Classe LegendEntry (PowerPoint VBA)

A classe LegendEntry representa uma entrada de legenda em uma legenda de gráfico.

Os principais procedimentos da classe LegendEntry são Delete e Select

Set

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

Dim lgne as LegendEntry
Set lgne = ActiveWindow.RangeFromPoint.Chart.Legend.LegendEntries(Index:=1)

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo LegendEntry: Legend.LegendEntries e LegendEntries.Item

Temas

Os procedimentos a seguir nesta aula foram agrupados e são descritos em uma página de tema separada

Format with its procedures Font, Format, Height e Width

Métodos

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

Delete - Exclui o objeto.

ActiveWindow.RangeFromPoint.Chart.Legend.LegendEntries(1).Delete

Select - Seleciona o objeto.

ActiveWindow.RangeFromPoint.Chart.Legend.LegendEntries(1).Select

Propriedades

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

Dim lngCount As Long
lngCount = ActiveWindow.RangeFromPoint.Chart.Legend.LegendEntries.Count

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

Dim objParent As Object
Set objParent = ActiveWindow.RangeFromPoint.Chart.Legend.LegendEntries.Parent

Index Retorna o número de índice do objeto dentro da coleção de objetos similares. Long somente leitura.

Dim lngIndex As Long
lngIndex = ActiveWindow.RangeFromPoint.Chart.Legend.LegendEntries(1).Index

Left Retorna a distância, em pontos, da borda esquerda do objeto à borda esquerda da área do gráfico. Doublesomente leitura.

Dim dblLeft As Double
dblLeft = ActiveWindow.RangeFromPoint.Chart.Legend.LegendEntries(1).Left

LegendKey Retorna o código da legenda associado a essa entrada. LegendKey somente leitura.

Dim lkyLegendKey As LegendKey
Set lkyLegendKey = ActivePresentation.Slides(1).Shapes(1).Chart.Legend.LegendEntries(1).LegendKey

Parent Retorna o pai do objeto especificado. Objetosomente leitura.

Dim objParent As Object
Set objParent = ActiveWindow.RangeFromPoint.Chart.Legend.LegendEntries(1).Parent

Top Retorna 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). Doublesomente leitura.

Dim dblTop As Double
dblTop = ActiveWindow.RangeFromPoint.Chart.Legend.LegendEntries(1).Top