Nota
O acceso a esta páxina require autorización. Pode tentar iniciar sesión ou modificar os directorios.
O acceso a esta páxina require autorización. Pode tentar modificar os directorios.
Colección de todos los objetos LegendEntry en la leyenda de gráfico especificada.
Observaciones
Cada entrada de leyenda tiene dos partes:
El texto de la entrada, que corresponde al nombre de la serie o línea de tendencia asociada con la entrada de leyenda.
El marcador de entrada, que vincula visualmente la entrada de leyenda con la serie o línea de tendencia asociada a ella en el gráfico.
Las propiedades de formato del marcador de entrada y su serie o línea de tendencia correspondiente están contenidas en el objeto LegendKey.
Ejemplo
Nota:
[!NOTA] Si bien el siguiente código se aplica a Microsoft Word, puede modificarlo para que se aplique a PowerPoint.
Use el método LegendEntries para devolver la colección LegendEntries. En el siguiente ejemplo se recorre la colección de entradas de leyenda para el primer gráfico del documento activo y se cambia su color de fuente.
With ActiveDocument.InlineShapes(1)
If .HasChart Then
With .Chart.Legend
For i = 1 To .LegendEntries.Count
.LegendEntries(i).Font.ColorIndex = 5
Next
End With
End If
End With
Nota:
[!NOTA] Si bien el siguiente código se aplica a Microsoft Word, puede modificarlo para que se aplique a PowerPoint.
Use LegendEntries (index), donde index es el número de índice de entrada de leyenda, para devolver un único objeto LegendEntry . No se puede devolver las entradas de leyenda por nombre.
El número de índice representa la posición de la entrada en la leyenda.
LegendEntries(1) está en la parte superior de la leyenda; LegendEntries(LegendEntries.Count) está en la parte inferior. En el siguiente ejemplo, se cambia a cursiva el estilo de fuente del texto de la entrada de leyenda que está en la parte superior de la leyenda (suele ser la leyenda de la serie uno) para el primer gráfico del documento activo.
With ActiveDocument.InlineShapes(1)
If .HasChart Then
.Chart.Legend.LegendEntries(1).Font.Italic = True
End If
End With
Vea también
Referencia del modelo de objetos de PowerPoint
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.