Classe Legend (PowerPoint VBA)

A classe Legend representa a legenda em um gráfico. Cada gráfico pode ter apenas uma legenda.

Os principais procedimentos da classe Legend são Delete e Select

Set

Para usar uma variável de classe Legend, ela primeiro precisa ser instanciada por exemplo

Dim lgn as Legend
Set lgn = ActiveWindow.RangeFromPoint.Chart.Legend

As variáveis ​​de classe Legend podem ser definidas usando o procedimento Chart.Legend.

Temas

Os procedimentos a seguir nesta aula foram agrupados e são descritos em uma página de tema separada

Format with its procedures Format, Height, IncludeInLayout e Width

Métodos

Estes são os principais métodos da classe Legend

Delete - Exclui o objeto.

ActiveWindow.RangeFromPoint.Chart.Legend.Delete

Select - Seleciona o objeto.

ActiveWindow.RangeFromPoint.Chart.Legend.Select

Estes são os principais métodos da classe

SetProperty -

Dim strId As String: strId = 
ActiveWindow.RangeFromPoint.Chart.Legend.SetProperty Id:=strId, Value:=

Propriedades

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

ActiveWindow.RangeFromPoint.Chart.Legend.Left =

Name Retorna o nome do objeto. Cadeia de caracteressomente leitura.

Dim strName As String
strName = ActiveWindow.RangeFromPoint.Chart.Legend.Name

Parent Retorna o pai do objeto especificado. Objetosomente leitura.

Dim objParent As Object
Set objParent = ActiveWindow.RangeFromPoint.Chart.Legend.Parent

Position Retorna ou define a posição da legenda no gráfico. Leitura/gravação XlLegendPosition.

ActivePresentation.Slides(1).Shapes(1).Chart.Legend.Position = xlLegendPositionBottom

Shadow Retorna ou define um valor que indica se o objeto tem uma sombra. Boolean de leitura/gravação.

ActiveWindow.RangeFromPoint.Chart.Legend.Shadow = True

Top Retorna ou define 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). Doublede leitura/gravação.

ActiveWindow.RangeFromPoint.Chart.Legend.Top =