Classe LegendEntry - entrada de legenda (PowerPoint 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 = ActiveWindow.RangeFromPoint.Chart.Legend.LegendEntries(Index:=1)

As variáveis ​​de classe LegendEntry podem ser definidas usando o procedimento LegendEntries.Item.

Delete

Exclui o objeto.

ActiveWindow.RangeFromPoint.Chart.Legend.LegendEntries(1).Delete

Font

Retorna a fonte do objeto especificado. Somente leitura ChartFont.

Dim cftFont As ChartFont
Set cftFont = ActiveWindow.RangeFromPoint.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 = ActiveWindow.RangeFromPoint.Chart.Legend.LegendEntries(1).Format

Height

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

Dim dblHeight As Double
dblHeight = ActiveWindow.RangeFromPoint.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 = ActiveWindow.RangeFromPoint.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 = ActiveWindow.RangeFromPoint.Chart.Legend.LegendEntries(1).Left

LegendKey

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

Dim lkyLegendKey As LegendKey
Set lkyLegendKey = ActivePresentation.Slides(1).Shapes(1).Chart.Legend.LegendEntries(1).LegendKey

Select

Seleciona o objeto.

ActiveWindow.RangeFromPoint.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 = ActiveWindow.RangeFromPoint.Chart.Legend.LegendEntries(1).Top

Width

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

Dim dblWidth As Double
dblWidth = ActiveWindow.RangeFromPoint.Chart.Legend.LegendEntries(1).Width