Klasse LegendKey (PowerPoint VBA)

Die Klasse LegendKey stellt ein Legendensymbol in einer Diagrammlegende dar.

Die wichtigste Prozedur der Klasse LegendKey ist Delete

Set

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

Dim lky as LegendKey
Set lky = ActiveWindow.RangeFromPoint.Chart.Legend.LegendEntries(1).LegendKey

Klassen Variablen vom Typ LegendKey können mit der Prozedur LegendEntry.LegendKey festgelegt werden

Themas

Einige Prozeduren in dieser Klasse wurden in Themen zusammengefasst und auf separaten Themenseiten beschrieben

Format with its procedures ClearFormats, Format, Height, MarkerBackgroundColor, MarkerBackgroundColorIndex, MarkerForegroundColor, MarkerForegroundColorIndex, MarkerStyle und Width
Picture with its procedures PictureType und PictureUnit2

Methoden

Dies ist die Hauptmethode der Klasse LegendKey

Delete - Löscht das Objekt.

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

Eigenschaften

InvertIfNegative True, Wenn Microsoft Word das Muster im Objekt invertiert, wenn es eine negative Zahl entspricht. Variant mit Lese-/Schreibzugriff.

ActiveWindow.RangeFromPoint.Chart.Legend.LegendEntries(1).LegendKey.InvertIfNegative = True

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).LegendKey.Left

MarkerSize Gibt die Größe der Datenpunktmarkierung in Punkt zurück. Langer Wert mit Lese-/Schreibzugriff.

ActiveWindow.RangeFromPoint.Chart.Legend.LegendEntries(1).LegendKey.MarkerSize =

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

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

Shadow Zurückgeben oder festlegen ein Werts, das angibt, ob das Objekt einen Schatten aufweist. Lese-/Schreibzugriff - Boolean.

ActiveWindow.RangeFromPoint.Chart.Legend.LegendEntries(1).LegendKey.Shadow = True

Smooth True, Wenn die Kurve Glättung für das Legendensymbol aktiviert ist. Boolescher Wert mit Lese-/Schreibzugriff.

ActiveWindow.RangeFromPoint.Chart.Legend.LegendEntries(1).LegendKey.Smooth = True

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).LegendKey.Top