Classe LegendEntry (Excel 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 = ActiveChart.Legend.LegendEntries(Index:=1)

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

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

Métodos

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

Delete - Exclui o objeto.

ActiveChart.Legend.LegendEntries(1).Delete

Select - Seleciona o objeto.

ActiveChart.Legend.LegendEntries(1).Select

Estes são os principais métodos da classe

LegendEntries.Item - Retorna um único objeto de uma coleção.

Propriedades

LegendEntries.Count Retorna um valor Long que representa o número de objetos na coleção.

Dim lngCount As Long
lngCount = ActiveChart.Legend.LegendEntries.Count

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

Dim objParent As Object
Set objParent = ActiveChart.Legend.LegendEntries.Parent

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

Parent Retorna o objeto pai do objeto especificado. Somente leitura.

Dim objParent As Object
Set objParent = ActiveChart.Legend.LegendEntries(1).Parent

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