Clase LegendEntry - una entrada de leyenda (Excel VBA)

La clase LegendEntry representa una entrada de leyenda de un gráfico. Para usar una variable de clase LegendEntry, primero debe ser instanciado, por ejemplo

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

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos LegendEntry en una colección.

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

Delete

Elimina el objeto.

ActiveChart.Legend.LegendEntries(1).Delete

Font

Devuelve un objeto Font que representa la fuente del objeto especificado.

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

Format

Devuelve el objeto ChartFormat .

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

Height

Devuelve un valor de tipo Double que representa el alto, en puntos, del objeto.

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

Index

Devuelve un valor de tipo Long que representa el número de índice del objeto dentro de una colección de objetos similares.

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

Left

Devuelve un valor de tipo Double que representa la distancia, en puntos, desde el borde izquierdo del objeto hasta el borde izquierdo del área del gráfico.

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

LegendKey

Devuelve un objeto LegendKey que representa la clave de leyenda asociada con la entrada.

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

Select

Selecciona el objeto.

ActiveChart.Legend.LegendEntries(1).Select

Top

Devuelve un valor de tipo Double que representa la distancia, en puntos, desde el borde superior del objeto hasta la parte superior de la fila 1 (en una hoja de cálculo) o hasta la parte superior del área del gráfico (en un gráfico).

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

Width

Devuelve un valor de tipo Double que representa el ancho, en puntos, del objeto.

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