Klasse DataLabel (Excel 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 = ActiveCell.Width(1).DataLabel

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

For Each

Hier ist ein Beispiel für die Verarbeitung der DataLabel -Elemente in einer Sammlung

Dim dtl As DataLabel
For Each dtl In ActiveCell.Width.DataLabels()
	
Next dtl

Themas

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

Formula with its procedures Formula, FormulaLocal, FormulaR1C1 und FormulaR1C1Local
Number with its procedures NumberFormatLinked, NumberFormatLocal, 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

Methoden

Die Hauptmethoden der Klasse DataLabel sind

Delete - Löscht das Objekt.

ActiveCell.Width(1).DataLabel.Delete

Select - Markiert das Objekt.

ActiveCell.Width(1).DataLabel.Select

DataLabels.Delete - Löscht das Objekt.

ActiveChart.FullSeriesCollection(1).DataLabels.Delete

DataLabels.Select - Markiert das Objekt.

ActiveChart.FullSeriesCollection(1).DataLabels.Select

Andere Methoden

DataLabels.Item - Gibt ein einzelnes Objekt aus einer Auflistung zurück.

DataLabels.Propagate - Ermöglicht es Ihnen, den Inhalt und die Formatierung einer einzelnen Datenbeschriftung zu übernehmen und Sie auf jede andere Datenbeschriftung in der Reihe anzuwenden.

Eigenschaften

AutoText True, wenn das Objekt automatisch geeigneten Text aufgrund des Kontexts erstellt.

ActiveCell.Width(1).DataLabel.AutoText = True

Caption Gibt einen String-Wert zurück, der den Text der Datenbeschriftung darstellt, oder legt diesen Wert fest.

ActiveCell.Width(1).DataLabel.Caption =

Characters Gibt ein Characters -Objekt zurück, das einen Bereich von Zeichen innerhalb des Objekt Texts darstellt.

Dim chrsCharacters As Characters
Set chrsCharacters = ActiveCell.Width(1).DataLabel.Characters

Format Gibt das ChartFormat -Objekt zurück.

Dim cftFormatted As ChartFormat
Set cftFormatted = ActiveCell.Width(1).DataLabel.Format

Height Gibt die Höhe des Objekts in Punktzurück.

ActiveCell.Width(1).DataLabel.Height =

HorizontalAlignment Gibt einen Variant-Wert zurück, der die horizontale Ausrichtung für das angegebene Objekt darstellt, oder legt diesen fest.

ActiveCell.Width(1).DataLabel.HorizontalAlignment = xlHAlignCenter

Left Gibt einen Double -Wert zurück, der den Abstand (in Punkt) vom linken Rand des Objekts zum linken Rand der Spalte a (auf einem Arbeitsblatt) oder zum linken Rand des Diagrammbereichs (in einem Diagramm) darstellt, oder legt diesen fest.

ActiveCell.Width(1).DataLabel.Left =

Name Gibt einen String -Wert, der den Namen des Objekts darstellt.

Dim strName As String
strName = ActiveCell.Width(1).DataLabel.Name

NumberFormat Gibt einen String-Wert zurück, der den Formatierungscode für das Objekt darstellt, oder legt diesen Wert fest.

ActiveCell.Width(1).DataLabel.NumberFormat =

Orientation Gibt einen Variant-Wert zurück, der die Textausrichtung darstellt, oder legt diesen Wert fest.

ActiveCell.Width(1).DataLabel.Orientation = xlDownward

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

Dim objParent As Object
Set objParent = ActiveCell.Width(1).DataLabel.Parent

Position Gibt einen XlDataLabelPosition -Wert zurück, der die Position der Datenbeschriftung darstellt, oder legt diesen fest.

ActiveCell.Width(1).DataLabel.Position = xlLabelPositionAbove

Separator Gibt einen Variant-Wert zurück, der das Trennzeichen für die Datenbeschriftungen in einem Diagramm darstellt, oder legt diesen Wert fest.

ActiveCell.Width(1).DataLabel.Separator = ";"

Shadow Gibt einen Boolean-Wert zurück, der bestimmt, ob das Objekt einen Schatten aufweist, oder legt diesen Wert fest.

ActiveCell.Width(1).DataLabel.Shadow = True

ShowValue Gibt einen Boolean-Wert zurück, der dem Anzeigeverhalten der Datenbeschriftungswerte eines angegebenen Diagramms entspricht, oder legt diesen Wert fest.

ActiveCell.Width(1).DataLabel.ShowValue = True

Text Gibt den Text des angegebenen Objekts zurück oder legt ihn fest.

ActiveCell.Width(1).DataLabel.Text =

Top Gibt einen Double -Wert zurück, der den Abstand (in Punkt) vom oberen Rand des Objekts zum Anfang von Zeile 1 (auf einem Arbeitsblatt) oder oben im Diagrammbereich (in einem Diagramm) darstellt, oder legt diesen fest.

ActiveCell.Width(1).DataLabel.Top =

VerticalAlignment Gibt einen Variant-Wert zurück, der die vertikale Ausrichtung des angegebenen Objekts darstellt, oder legt diesen Wert fest.

ActiveCell.Width(1).DataLabel.VerticalAlignment = xlVAlignBottom

Width Gibt die Breite des Objekts in Punktzurück.

ActiveCell.Width(1).DataLabel.Width =

DataLabels.AutoText True, wenn das Objekt automatisch geeigneten Text aufgrund des Kontexts erstellt.

ActiveChart.FullSeriesCollection(1).DataLabels.AutoText = True

DataLabels.Count Gibt einen Long-Wert zurück, der die Anzahl der Objekte in der Auflistung darstellt.

Dim lngCount As Long
lngCount = ActiveChart.FullSeriesCollection(1).DataLabels.Count

DataLabels.Format Gibt das ChartFormat -Objekt zurück.

Dim cftFormatted As ChartFormat
Set cftFormatted = ActiveChart.FullSeriesCollection(1).DataLabels.Format

DataLabels.HorizontalAlignment Gibt einen Variant-Wert zurück, der die horizontale Ausrichtung für das angegebene Objekt darstellt, oder legt diesen fest.

ActiveChart.FullSeriesCollection(1).DataLabels.HorizontalAlignment = xlHAlignCenter

DataLabels.Name Gibt einen String -Wert, der den Namen des Objekts darstellt.

Dim strName As String
strName = ActiveChart.FullSeriesCollection(1).DataLabels.Name

DataLabels.NumberFormat Gibt einen String-Wert zurück, der den Formatierungscode für das Objekt darstellt, oder legt diesen Wert fest.

ActiveChart.FullSeriesCollection(1).DataLabels.NumberFormat =

DataLabels.Orientation Gibt einen Variant-Wert zurück, der die Textausrichtung darstellt, oder legt diesen Wert fest.

ActiveChart.FullSeriesCollection(1).DataLabels.Orientation = xlDownward

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

Dim objParent As Object
Set objParent = ActiveChart.FullSeriesCollection(1).DataLabels.Parent

DataLabels.Position Gibt einen XlDataLabelPosition -Wert zurück, der die Position der Datenbeschriftung darstellt, oder legt diesen fest.

ActiveChart.FullSeriesCollection(1).DataLabels.Position = xlLabelPositionAbove

DataLabels.Separator Gibt einen Variant-Wert zurück, der das Trennzeichen für die Datenbeschriftungen in einem Diagramm darstellt, oder legt diesen Wert fest.

ActiveChart.FullSeriesCollection(1).DataLabels.Separator = ";"

DataLabels.Shadow Gibt einen Boolean-Wert zurück, der bestimmt, ob das Objekt einen Schatten aufweist, oder legt diesen Wert fest.

ActiveChart.FullSeriesCollection(1).DataLabels.Shadow = True

DataLabels.ShowValue Gibt einen Boolean-Wert zurück, der dem Anzeigeverhalten der Datenbeschriftungswerte eines angegebenen Diagramms entspricht, oder legt diesen Wert fest.

ActiveChart.FullSeriesCollection(1).DataLabels.ShowValue = True

DataLabels.VerticalAlignment Gibt einen Variant-Wert zurück, der die vertikale Ausrichtung des angegebenen Objekts darstellt, oder legt diesen Wert fest.

ActiveChart.FullSeriesCollection(1).DataLabels.VerticalAlignment = xlVAlignBottom