Klasse DataLabel (PowerPoint VBA)

Die Klasse DataLabel stellt die Datenbeschriftung eines Datenpunkts oder einer Trendlinie dar.

Die wichtigste Prozeduren der Klasse DataLabel sind Delete, Select, DataLabels.Delete und DataLabels.Select

Set

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

Dim dtl as DataLabel
Set dtl = ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).DataLabels()

Die folgenden Prozeduren können zum Festlegen der DataLabel Klassenvariablen verwendet werden : DataLabels.Item, Point.DataLabel, Series.DataLabels, Trendline.DataLabel und Series.DataLabels

Themas

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

Name with its procedures Caption, Name und DataLabels.Name
Format with its procedures Format, Height, Width und DataLabels.Format
Formula with its procedures Formula, FormulaLocal, FormulaR1C1 und FormulaR1C1Local
Number with its procedures NumberFormat, NumberFormatLinked, NumberFormatLocal, DataLabels.NumberFormat, DataLabels.NumberFormatLinked und DataLabels.NumberFormatLocal
Sort/Order with its procedures ReadingOrder und DataLabels.ReadingOrder
Display/Show with its procedures ShowBubbleSize, ShowCategoryName, ShowLegendKey, ShowPercentage, ShowRange, ShowSeriesName, DataLabels.ShowBubbleSize, DataLabels.ShowCategoryName, DataLabels.ShowLegendKey, DataLabels.ShowPercentage, DataLabels.ShowRange und DataLabels.ShowSeriesName
Value with its procedures ShowValue und DataLabels.ShowValue

Methoden

Die Hauptmethoden der Klasse DataLabel sind

Delete - Löscht das Objekt.

ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).DataLabels.Delete

Select - Markiert das Objekt.

ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).DataLabels.Select

DataLabels.Delete - Löscht das Objekt.

ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).DataLabels.Delete

DataLabels.Select - Markiert das Objekt.

ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).DataLabels.Select

Andere Methoden

SetProperty -

Dim strId As String: strId = 
ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).DataLabels.SetProperty Id:=strId, Value:=

DataLabels.SetProperty -

Dim strId As String: strId = 
ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).DataLabels.SetProperty Id:=strId, Value:=

Eigenschaften

AutoText True, wenn das Objekt automatisch geeigneten Text aufgrund des Kontexts erstellt. Boolescher Wert mit Lese-/Schreibzugriff.

ActivePresentation.Slides(1).Shapes(1).Chart.FullSeriesCollection(1).DataLabels.AutoText = True

Characters Gibt ein ChartCharacters -Objekt, das einen Bereich von Zeichen im Text Objekt darstellt. Sie können das ChartCharacters -Objekt zum Formatieren von Zeichen innerhalb einer Textzeichenfolge zurückgegeben.

Dim ccsCharacters As ChartCharacters
Set ccsCharacters = ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).DataLabels.Characters

HorizontalAlignment Zurückgeben oder festlegen die horizontale Ausrichtung für das angegebene Objekt. Variant mit Lese-/Schreibzugriff.

ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).DataLabels.HorizontalAlignment = xl3DBar

Left Gibt den Abstand (in Punkt) vom linken Rand des Objekts zum linken Rand des Diagrammbereichs zurück oder legt ihn fest. Doppelter Wert mit Lese-/Schreibzugriff.

ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).DataLabels.Left =

Orientation Zurückgeben oder festlegen die Ausrichtung von Text. Langer Wert mit Lese-/Schreibzugriff.

ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).DataLabels.Orientation =

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

Dim objParent As Object
Set objParent = ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).DataLabels.Parent

Position Gibt die Position der Datenbeschriftung zurück oder legt sie fest. Lese-/Schreibzugriff XlDataLabelPosition.

ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).DataLabels.Position = xlLabelPositionAbove

Separator Zurück oder legt das Trennzeichen für die datenbeschriftungen in einem Diagramm. Variant mit Lese-/Schreibzugriff.

ActivePresentation.Slides(1).Shapes(1).Chart.FullSeriesCollection(1).DataLabels.Separator = ";"

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

ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).DataLabels.Shadow = True

Text Gibt den Text des angegebenen Objekts zurück oder legt ihn fest. Zeichenfolge mit Lese-/Schreibzugriff.

ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).DataLabels.Text =

Top Gibt zurück oder legt den Abstand in Punktvom oberen Rand des Objekts zum Anfang der ersten Zeile (auf einem Arbeitsblatt) oder die Oberseite der Diagrammfläche (in einem Diagramm). Doppelter Wert mit Lese-/Schreibzugriff.

ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).DataLabels.Top =

VerticalAlignment Gibt zurück oder legt die vertikale Ausrichtung des angegebenen Objekts. Variant mit Lese-/Schreibzugriff.

ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).DataLabels.VerticalAlignment = xl3DBar

DataLabels.AutoText True, Wenn alle Objekte in der Auflistung automatisch basierend auf Kontext angemessenen Text generiert. Boolescher Wert mit Lese-/Schreibzugriff.

ActivePresentation.Slides(1).Shapes(1).Chart.FullSeriesCollection(1).DataLabels.AutoText = True

DataLabels.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.FullSeriesCollection(1).DataLabels.Count

DataLabels.HorizontalAlignment Zurückgeben oder festlegen die horizontale Ausrichtung für das angegebene Objekt. Variant mit Lese-/Schreibzugriff.

ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).DataLabels.HorizontalAlignment = xl3DBar

DataLabels.Orientation Zurückgeben oder festlegen die Ausrichtung von Text. Langer Wert mit Lese-/Schreibzugriff.

ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).DataLabels.Orientation =

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

Dim objParent As Object
Set objParent = ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).DataLabels.Parent

DataLabels.Position Gibt einen Wert aus der XlDataLabelPosition -Aufzählung zurück, der die Position der Datenbeschriftungen in einem Diagramm angibt. Lese-/Schreibzugriff.

ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).DataLabels.Position = xlLabelPositionAbove

DataLabels.Separator Legt fest oder gibt das Trennzeichen für datenbeschriftungen in einem Diagramm zurück. Variant mit Lese-/Schreibzugriff.

ActivePresentation.Slides(1).Shapes(1).Chart.FullSeriesCollection(1).DataLabels.Separator = ";"

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

ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).DataLabels.Shadow = True

DataLabels.VerticalAlignment Gibt zurück oder legt die vertikale Ausrichtung des angegebenen Objekts. Variant mit Lese-/Schreibzugriff.

ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).DataLabels.VerticalAlignment = xl3DBar