Clase LegendEntry - una entrada de leyenda (Word 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 = ActiveDocument.Background.Chart.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 lgne As LegendEntry
For Each lgne In ActiveDocument.Background.Chart.Legend.LegendEntries()
	
Next lgne

Delete

Elimina el objeto.

ActiveDocument.Background.Chart.Legend.LegendEntries(1).Delete

Font

Devuelve la fuente del objeto especificado.

Dim cftFont As ChartFont
Set cftFont = ActiveDocument.Background.Chart.Legend.LegendEntries(1).Font

Format

Devuelve la línea, relleno y efecto de formato para el objeto.

Dim cftFormatted As ChartFormat
Set cftFormatted = ActiveDocument.Background.Chart.Legend.LegendEntries(1).Format

Height

Devuelve el alto, en puntos, del objeto.

Dim dblHeight As Double
dblHeight = ActiveDocument.Background.Chart.Legend.LegendEntries(1).Height

Index

Devuelve el número de índice del objeto contenido en el conjunto de objetos similares.

Dim lngIndex As Long
lngIndex = ActiveDocument.Background.Chart.Legend.LegendEntries(1).Index

Left

Devuelve la distancia, en puntos, desde el borde izquierdo del objeto hasta el borde izquierdo del área del gráfico.

Dim dblLeft As Double
dblLeft = ActiveDocument.Background.Chart.Legend.LegendEntries(1).Left

LegendKey

Devuelve la clave de leyenda asociada a la entrada.

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 .Chart.Legend.LegendEntries(1).LegendKey _ 
 .MarkerStyle = xlMarkerStyleTriangle 
 End If 
End With

Select

Selecciona el objeto.

ActiveDocument.Background.Chart.Legend.LegendEntries(1).Select

Top

Devuelve la distancia, en puntos, desde el borde superior del objeto hasta la parte superior de la primera fila (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 = ActiveDocument.Background.Chart.Legend.LegendEntries(1).Top

Width

Devuelve el ancho, en puntos, del objeto.

Dim dblWidth As Double
dblWidth = ActiveDocument.Background.Chart.Legend.LegendEntries(1).Width