Classe LegendEntry - une entrée de légende (Word VBA)

Cet objet représente une entrée de légende dans une légende de graphique. Pour utiliser une variable de classe LegendEntry, elle doit d'abord être instanciée, par exemple

Dim lgne as LegendEntry
Set lgne = ActiveDocument.Background.Chart.Legend.LegendEntries(Index:=1)

For Each

Voici un exemple de traitement des éléments LegendEntry dans une collection

Dim lgne As LegendEntry
For Each lgne In ActiveDocument.Background.Chart.Legend.LegendEntries()
	
Next lgne

Delete

Cette méthode supprime l'objet.

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

Font

Renvoie la police de l'objet spécifié.

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

Format

Renvoie la ligne, le remplissage et l'effet de la mise en forme pour l'objet.

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

Height

Renvoie la hauteur, exprimée en points, de l’objet.

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

Index

Cette propriété renvoie le numéro d'index de l'objet dans la collection des objets similaires.

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

Left

Renvoie la distance, exprimée en points, entre le bord gauche de l’objet et le bord gauche de la zone de graphique.

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

LegendKey

Renvoie le symbole de légende associé à l'entrée.

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

Select

Cette méthode sélectionne l'objet.

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

Top

Renvoie la distance, en points, entre le bord supérieur de l’objet et le haut de la première ligne (dans une feuille de calcul) ou le haut de la zone de graphique (dans un graphique).

Dim dblTop As Double
dblTop = ActiveDocument.Background.Chart.Legend.LegendEntries(1).Top

Width

Renvoie la largeur, exprimée en points, de l’objet.

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