Classe LegendEntry - entrada de legenda (Word VBA)

A classe LegendEntry representa uma entrada de legenda em uma legenda de gráfico. Para usar uma variável de classe LegendEntry, ela primeiro precisa ser instanciada por exemplo

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

For Each

Aqui está um exemplo de processamento dos itens LegendEntry em uma coleção.

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

Delete

Exclui o objeto.

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

Font

Retorna a fonte do objeto especificado. Somente leitura ChartFont.

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

Format

Retorna a linha, preenchimento e efeito da formatação do objeto. Somente leitura ChartFormat.

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

Height

Retorna a altura, em pontos, do objeto. Doublesomente leitura.

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

Index

Retorna o número de índice do objeto dentro da coleção de objetos similares. Long somente leitura.

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

Left

Retorna a distância, em pontos, da borda esquerda do objeto à borda esquerda da área do gráfico. Doublesomente leitura.

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

LegendKey

Retorna o código da legenda associado a essa entrada. LegendKey somente leitura.

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

Select

Seleciona o objeto.

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

Top

Retorna a distância, em pontos, da borda superior do objeto à parte superior da primeira linha em uma planilha ou a parte superior da área do gráfico (em um gráfico). Doublesomente leitura.

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

Width

Retorna a largura, em pontos, do objeto. Doublesomente leitura.

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