Klasse LegendEntry (PowerPoint VBA)

Die Klasse LegendEntry stellt einen Legendeneintrag in einer Diagrammlegende dar.

Die wichtigste Prozeduren der Klasse LegendEntry sind Delete und Select

Set

Um eine LegendEntry -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim lgne as LegendEntry
Set lgne = ActiveWindow.RangeFromPoint.Chart.Legend.LegendEntries(Index:=1)

Die folgenden Prozeduren können zum Festlegen der LegendEntry Klassenvariablen verwendet werden : Legend.LegendEntries und LegendEntries.Item

Themas

Die folgenden Prozeduren in dieser Klasse wurden zusammengefasst und auf eine separate Themenseite beschrieben

Format with its procedures Font, Format, Height und Width

Methoden

Die Hauptmethoden der Klasse LegendEntry sind

Delete - Löscht das Objekt.

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

Select - Markiert das Objekt.

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

Eigenschaften

LegendEntries.Count Gibt die Anzahl der Objekte in der Auflistung zurück. Schreibgeschützter Wert vom Typ Long.

Dim lngCount As Long
lngCount = ActiveWindow.RangeFromPoint.Chart.Legend.LegendEntries.Count

LegendEntries.Parent Gibt das übergeordnete Element für das angegebene Objekt zurück.

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

Index Gibt die Indexnummer des Objekts in einer Auflistung ähnlicher Objekte zurück. Schreibgeschützter Wert vom Typ Long.

Dim lngIndex As Long
lngIndex = ActiveWindow.RangeFromPoint.Chart.Legend.LegendEntries(1).Index

Left Gibt den Abstand (in Punkt) vom linken Rand des Objekts zum linken Rand des Diagrammbereichs zurück.

Dim dblLeft As Double
dblLeft = ActiveWindow.RangeFromPoint.Chart.Legend.LegendEntries(1).Left

LegendKey Gibt das Legendensymbol an, das dem Eintrag zugeordnet ist. Schreibgeschützter LegendKey.

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

Parent Gibt das übergeordnete Element für das angegebene Objekt zurück.

Dim objParent As Object
Set objParent = ActiveWindow.RangeFromPoint.Chart.Legend.LegendEntries(1).Parent

Top Gibt den Abstand (in Punkt) vom oberen Rand des Objekts zum Anfang der ersten Zeile (auf einem Arbeitsblatt) oder der oberen Seite des Diagrammbereichs (in einem Diagramm) zurück.

Dim dblTop As Double
dblTop = ActiveWindow.RangeFromPoint.Chart.Legend.LegendEntries(1).Top