Classe LegendEntry - entrada de legenda (Excel VBA)

A classe LegendEntry representa uma entrada de legenda em uma legenda de gráfico. Para usar uma variável de classe LegendEntry, ela primeiro precisa ser instanciada por exemplo

Dim lgne as LegendEntry
Set lgne = ActiveChart.Legend.LegendEntries(Index:=1)

For Each

Aqui está um exemplo de processamento dos itens LegendEntry em uma coleção.

Dim lgneLegendEntrie As LegendEntry
For Each lgneLegendEntrie In ActiveChart.Legend.LegendEntries()
	
Next lgneLegendEntrie

Delete

Exclui o objeto.

ActiveChart.Legend.LegendEntries(1).Delete

Font

Retorna um objeto Font que representa a fonte do objeto especificado.

Dim fntFont As Font
Set fntFont = ActiveChart.Legend.LegendEntries(1).Font

Format

Retorna o objeto ChartFormat . Somente leitura.

Dim cftFormatted As ChartFormat
Set cftFormatted = ActiveChart.Legend.LegendEntries(1).Format

Height

Retorna um valor Double que representa a altura, em pontos, do objeto.

Dim dblHeight As Double
dblHeight = ActiveChart.Legend.LegendEntries(1).Height

Index

Retorna um valor Long que representa o número de índice do objeto dentro da coleção de objetos semelhantes.

Dim lngIndex As Long
lngIndex = ActiveChart.Legend.LegendEntries(1).Index

Left

Retorna um valor Double que representa a distância, em pontos, da borda esquerda do objeto até a borda esquerda da área do gráfico.

Dim dblLeft As Double
dblLeft = ActiveChart.Legend.LegendEntries(1).Left

LegendKey

Retorna um objeto LegendKey que representa o código de legenda associado à entrada.

Dim lkyLegendKey As LegendKey
Set lkyLegendKey = ActiveChart.Legend.LegendEntries(1).LegendKey

Select

Seleciona o objeto.

ActiveChart.Legend.LegendEntries(1).Select

Top

Retorna um valor Double que representa a distância, em pontos, da borda superior do objeto até a parte superior da linha 1 em uma planilha ou a parte superior da área do gráfico (em um gráfico).

Dim dblTop As Double
dblTop = ActiveChart.Legend.LegendEntries(1).Top

Width

Retorna um valor Double que representa a largura, em pontos, do objeto.

Dim dblWidth As Double
dblWidth = ActiveChart.Legend.LegendEntries(1).Width