Clase LegendEntry (Excel VBA)

La clase LegendEntry representa una entrada de leyenda de un gráfico.

Los principales procedimientos de la clase LegendEntry son Delete y Select

Set

Para usar una variable de clase LegendEntry, primero debe ser instanciado, por ejemplo

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

Los siguientes procedimientos se pueden usar para establecer variables de clase LegendEntry : Legend.LegendEntries y LegendEntries.Item

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

Métodos

Los principales métodos de la clase LegendEntry son

Delete - Elimina el objeto.

ActiveChart.Legend.LegendEntries(1).Delete

Select - Selecciona el objeto.

ActiveChart.Legend.LegendEntries(1).Select

Otros Métodos

LegendEntries.Item - Devuelve un solo objeto de una colección.

Propiedades

LegendEntries.Count Devuelve un valor Long que representa el número de objetos de la colección.

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

LegendEntries.Parent Devuelve el objeto primario del objeto especificado.

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

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

Parent Devuelve el objeto primario del objeto especificado.

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

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