Klasse DataTable - Diagrammdatentabelle (Word VBA)

Die Klasse DataTable stellt eine Diagrammdatentabelle dar.

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

Dim dte as DataTable
Set dte = ActiveDocument.Background.Chart.DataTable

Klassen Variablen vom Typ DataTable können mit der Prozedur Chart.DataTable festgelegt werden

Border

Gibt den Rahmen des Objekts zurück.

Dim cbrBorder As ChartBorder
Set cbrBorder = ActiveDocument.Background.Chart.DataTable.Border

Delete

Löscht das Objekt.

ActiveDocument.Background.Chart.DataTable.Delete

Font

Gibt die Schriftart des angegebenen Objekts zurück.

Dim cftFont As ChartFont
Set cftFont = ActiveDocument.Background.Chart.DataTable.Font

Format

Gibt die Linien-, Füll- und effektformatierung für das Objekt.

Dim cftFormatted As ChartFormat
Set cftFormatted = ActiveDocument.Background.Chart.DataTable.Format

HasBorderHorizontal

True, wenn die Diagrammdatentabelle horizontale Zellrahmenlinien besitzt.

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 With .Chart 
 .HasDataTable = True 
 With .DataTable 
 .HasBorderHorizontal = False 
 .HasBorderVertical = False 
 .HasBorderOutline = True 
 End With 
 End With 
 End If 
End With

HasBorderOutline

True, wenn die Diagrammdatentabelle Gesamtrahmenlinien besitzt.

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 With .Chart 
 .HasDataTable = True 
 With .DataTable 
 .HasBorderHorizontal = False 
 .HasBorderVertical = False 
 .HasBorderOutline = True 
 End With 
 End With 
 End If 
End With

HasBorderVertical

True, wenn die Diagrammdatentabelle vertikale Zellrahmenlinien besitzt.

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 With .Chart 
 .HasDataTable = True 
 With .DataTable 
 .HasBorderHorizontal = False 
 .HasBorderVertical = False 
 .HasBorderOutline = True 
 End With 
 End With 
 End If 
End With

Select

Markiert das Objekt.

ActiveDocument.Background.Chart.DataTable.Select

ShowLegendKey

True, wenn das Legendensymbol der Datenbeschriftung angezeigt wird.

ActiveDocument.Background.Chart.DataTable.ShowLegendKey = True